diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-01-24 11:49:28 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:42 +1000 |
commit | b367df9ca11f36a392b97afc2767694f8bfe1c4f (patch) | |
tree | b61a231c02622789cadaee3f3ed7c824d2a221d1 /tests/tree.test | |
parent | fb44f9ee2d4b23bc4f5f46ad3b01b33e563932cd (diff) | |
download | jimtcl-b367df9ca11f36a392b97afc2767694f8bfe1c4f.zip jimtcl-b367df9ca11f36a392b97afc2767694f8bfe1c4f.tar.gz jimtcl-b367df9ca11f36a392b97afc2767694f8bfe1c4f.tar.bz2 |
Bugs, features, tests
Subst was broken for backslash escapes
Add support for return, break, continue in subst commands
Accept abbreviations for switches to subst
Fix 'list #'
More tests
Diffstat (limited to 'tests/tree.test')
-rw-r--r-- | tests/tree.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/tree.test b/tests/tree.test index 1b91559..e5b539a 100644 --- a/tests/tree.test +++ b/tests/tree.test @@ -76,15 +76,15 @@ test tree-2.0 "Add more nodes" { test tree-2.1 "walk dfs" { set result {} - puts "" + #puts "" 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]" + #puts "$indent[pt get $n name]" } } - puts "" + #puts "" set result } {rootnode childnode1 childnode2 n.c4 n.c5 n.c5.c6 root.c2 root.c3} |