From d3ad7d2242d063f729892edfe47a1fde7f60915a Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Sun, 24 Oct 2010 09:48:09 +1000 Subject: Implement 'tree' in terms of 'oo' Signed-off-by: Steve Bennett --- tests/tree.test | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'tests/tree.test') 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] -- cgit v1.1