[item id all] is allowed.

Added tests for new item-description keywords: list range, ancestors and children which select multiple items.

1 files changed, 29 insertions, 3 deletions

diff --git a/tests/treectrl.test b/tests/treectrl.test
index cff4ec5..b71b613 100644
--- a/tests/treectrl.test
+++ b/tests/treectrl.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: treectrl.test,v 1.29 2006/09/16 20:33:39 treectrl Exp $
+# RCS: @(#) $Id: treectrl.test,v 1.30 2006/09/22 23:29:46 treectrl Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -253,8 +253,11 @@ test treectrl-2.1 {bogus itemdesc} -body {
 } -returnCodes error -result {bad item description "foo"}
 
 test treectrl-2.2 {is all allowed?} -body {
-    .t item id all
-} -returnCodes error -result {can't specify "all" for this command}
+    .t item create -count 10
+    set res [lsort -integer [.t item id all]]
+    .t item delete all
+    set res
+} -result {0 1 2 3 4 5 6 7 8 9 10}
 
 test treectrl-2.3 {itemdesc number unknown} -body {
     .t see 999
@@ -495,6 +498,29 @@ test treectrl-2.37 {modifier cocktail} -body {
     set res
 } -result {8 8 1 5 4 3 2 1 5 7 8}
 
+test treectrl-2.38 {multiple items: list} -body {
+    .t item id "list {3 8 8}"
+} -result {3 8 8}
+
+test treectrl-2.39 {multiple items: range} -body {
+    .t item id "range 1 6"
+} -result {1 2 3 4 5 6}
+
+test treectrl-2.40 {multiple items: range reversed} -body {
+    .t item id "range 6 1"
+} -result {1 2 3 4 5 6}
+
+test treectrl-2.41 {multiple items: ancestors} -body {
+    .t item id "4 ancestors"
+} -result {3 1 0}
+
+test treectrl-2.42 {multiple items: children} -body {
+    .t item id "root children"
+} -result {1 5 8}
+
+test treectrl-2.43 {multiple items: nested list} -body {
+    .t item id "list {3 {list {1 root}} 4}"
+} -result {3 1 0 4}
 
 # qualifiers in item descriptions
 test treectrl-3.1 {where visible is allowed} -body {