diff options
author | Steve Bennett <steveb@workware.net.au> | 2017-06-02 12:10:27 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2017-08-03 09:07:24 +1000 |
commit | 59f01cb74b4b6f8c32cc4083735050b233ad4380 (patch) | |
tree | a437d4ae73208503a45fe5cfc9c9d660dece6b94 /tests | |
parent | 00c8f8991c6dd72baa3a281db0631a8268086f2a (diff) | |
download | jimtcl-59f01cb74b4b6f8c32cc4083735050b233ad4380.zip jimtcl-59f01cb74b4b6f8c32cc4083735050b233ad4380.tar.gz jimtcl-59f01cb74b4b6f8c32cc4083735050b233ad4380.tar.bz2 |
tree: Allow nodes to be deleted
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/tree.test | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/tree.test b/tests/tree.test index 5a7cf74..22a16f5 100644 --- a/tests/tree.test +++ b/tests/tree.test @@ -110,6 +110,21 @@ test tree-2.3 "walk bfs" { set result } {rootnode childnode1 root.c2 root.c3 childnode2 n.c4 n.c5 n.c5.c6} +test tree-3.1 "delete nodes" { + $pt delete node6 + set result {} + $pt walk root bfs {action n} { + if {$action == "enter"} { + lappend result [$pt get $n name] + } + } + set result +} {rootnode childnode1 root.c2 root.c3 childnode2 n.c4} + +test tree-3.2 "can't delete root node" -body { + $pt delete root +} -returnCodes error -result {can't delete root node} + $pt destroy testreport |