diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-03-03 16:02:25 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:49 +1000 |
commit | 8a21e1c0ea44a829f84e526a8302e6effbc4a9b1 (patch) | |
tree | 84f7fe867f2a3adce1a936a5f1e7cdcb724f4cfd /tests/tree.test | |
parent | b83beb2febcbe0abcf338e3f915b43889ce93eca (diff) | |
download | jimtcl-8a21e1c0ea44a829f84e526a8302e6effbc4a9b1.zip jimtcl-8a21e1c0ea44a829f84e526a8302e6effbc4a9b1.tar.gz jimtcl-8a21e1c0ea44a829f84e526a8302e6effbc4a9b1.tar.bz2 |
Improvements to tailcall
Add tests and documentation
Make tailcall work within 'try'
Fix tailcall interaction with uplevel
Use tailcall for dispatch in tree.tcl
Also some related improvements in tree.tcl
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/tree.test')
-rw-r--r-- | tests/tree.test | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/tests/tree.test b/tests/tree.test index e5b539a..d9aa389 100644 --- a/tests/tree.test +++ b/tests/tree.test @@ -3,6 +3,10 @@ package require tree section "tree" +proc dputs {msg} { + #puts $msg +} + test tree-1.1 "Create tree" { tree create pt return 1 @@ -76,15 +80,15 @@ test tree-2.0 "Add more nodes" { test tree-2.1 "walk dfs" { set result {} - #puts "" + dputs "" pt walk root dfs {action n} { set indent [string repeat " " [pt depth $n]] if {$action == "enter"} { lappend result [pt get $n name] - #puts "$indent[pt get $n name]" + dputs "$indent[pt get $n name]" } } - #puts "" + dputs "" set result } {rootnode childnode1 childnode2 n.c4 n.c5 n.c5.c6 root.c2 root.c3} @@ -109,6 +113,3 @@ test tree-2.3 "walk bfs" { } {rootnode childnode1 root.c2 root.c3 childnode2 n.c4 n.c5 n.c5.c6} tree destroy pt - -collect -#pt set root name value |