diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-10-24 09:48:09 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-12-16 08:10:39 +1000 |
| commit | d3ad7d2242d063f729892edfe47a1fde7f60915a (patch) | |
| tree | 82023e498a6b2f883fefd957a2f356ffc5239f18 /tests/tree.test | |
| parent | d69cd759e16a4572202f8e95e422604fb5725707 (diff) | |
| download | jimtcl-d3ad7d2242d063f729892edfe47a1fde7f60915a.zip jimtcl-d3ad7d2242d063f729892edfe47a1fde7f60915a.tar.gz jimtcl-d3ad7d2242d063f729892edfe47a1fde7f60915a.tar.bz2 | |
Implement 'tree' in terms of 'oo'
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/tree.test')
| -rw-r--r-- | tests/tree.test | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/tests/tree.test b/tests/tree.test index 90f7761..03c013f 100644 --- a/tests/tree.test +++ b/tests/tree.test @@ -54,13 +54,12 @@ test tree-1.7 "Key exists false" { $pt keyexists $n boguskey } {0} -test tree-1.8 "lappend new key" { +test tree-1.8 "lappend" { $pt lappend $n newkey first -} {first} - -test tree-1.9 "lappend existing key" { - $pt lappend $n newkey next -} {first next} + $pt lappend $n newkey second + $pt lappend $n newkey third + $pt lappend $n newkey last +} {first second third last} test tree-2.0 "Add more nodes" { set c [$pt insert root] |