diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/expand.test | 29 | ||||
| -rw-r--r-- | tests/expr.test | 45 | ||||
| -rw-r--r-- | tests/lsearch.test | 179 |
3 files changed, 245 insertions, 8 deletions
diff --git a/tests/expand.test b/tests/expand.test new file mode 100644 index 0000000..1527cd9 --- /dev/null +++ b/tests/expand.test @@ -0,0 +1,29 @@ +source testing.tcl + +section "Expand Testing" + +test expand-1.1 "Basic tests" { + set a {1 2 3} + set b {4 5 6} + lappend a {*}$b +} {1 2 3 4 5 6} + +test expand-1.2 "Basic tests" { + set a {1 2 3} + set b {4 5 6} + lappend a {expand}$b +} {1 2 3 4 5 6} + +test expand-1.3 "Basic tests" { + set a {1 2 3} + set b {4 5 6} + lappend a *$b +} {1 2 3 {*4 5 6}} + +test expand-1.4 "Basic tests" { + set a {1 2 3} + set b {4 5 6} + lappend a expand$b +} {1 2 3 {expand4 5 6}} + +testreport diff --git a/tests/expr.test b/tests/expr.test index b15ee36..d7c7b5e 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -86,19 +86,48 @@ test expr-1.17 "Rotate left" { # This crashes older jim test expr-2.1 "bogus unarymin" { - expr {unarymin 1} -} {-1} + catch {expr {unarymin 1}} + return 1 +} {1} test expr-2.2 "Ternary operator - missing colon" { - list [catch {expr {1 ? 2 3}} msg] $msg -} {1 {Invalid expression: 1 ? 2 3}} + list [catch {expr {1 ? 2 3}} msg] +} {1} test expr-2.3 "Ternary operator - missing third term" { - list [catch {expr {1 ? 2}} msg] $msg -} {1 {Invalid expression: 1 ? 2}} + list [catch {expr {1 ? 2}} msg] +} {1} test expr-2.4 "Ternary operator - missing question" { - list [catch {expr {1 : 2}} msg] $msg -} {1 {Invalid expression: 1 : 2}} + list [catch {expr {1 : 2}} msg] +} {1} + +test expr-3.1 "in, ni operators" { + set l {a b c d} + set c C + list [expr {"a" in $l}] [expr {$c in $l}] [expr {"b" ni $l}] [expr {$c ni $l}] +} {1 0 0 1} + +test expr-3.2 "if: in, ni operators" { + set l {a b c d} + set a a + set c C + set result {} + if {$a in $l} { + lappend result 1 + } + if {$c in $l} { + lappend result 2 + } + if {$a ni $l} { + lappend result 3 + } + if {$c ni $l} { + lappend result 4 + } + if {"d" in $l} { + lappend result 5 + } +} {1 4 5} testreport diff --git a/tests/lsearch.test b/tests/lsearch.test new file mode 100644 index 0000000..d1453b6 --- /dev/null +++ b/tests/lsearch.test @@ -0,0 +1,179 @@ +# Commands covered: lsearch +# +# This file contains a collection of tests for one or more of the Tcl +# built-in commands. Sourcing this file into Tcl runs the tests and +# generates output for errors. No output means no errors were found. +# +# Copyright (c) 1991-1993 The Regents of the University of California. +# Copyright (c) 1994 Sun Microsystems, Inc. +# Copyright (c) 1998-1999 by Scriptics Corporation. +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# RCS: @(#) $Id: lsearch.test,v 1.5 2000/04/10 17:19:01 ericm Exp $ + +source testing.tcl + +set x {abcd bbcd 123 234 345} +test lsearch-1.1 {lsearch command} { + lsearch $x 123 +} 2 +test lsearch-1.2 {lsearch command} { + lsearch $x 3456 +} -1 +test lsearch-1.3 {lsearch command} { + lsearch -glob $x *5 +} 4 +test lsearch-1.4 {lsearch command} { + lsearch -glob $x *bc* +} 0 + +test lsearch-2.1 {search modes} { + lsearch -exact {xyz bbcc *bc*} *bc* +} 2 +test lsearch-2.2 {search modes} { + lsearch -exact {b.x ^bc xy bcx} ^bc +} 1 +test lsearch-2.3 {search modes} { + lsearch -exact {foo bar cat} ba +} -1 +test lsearch-2.4 {search modes} { + lsearch -exact {foo bar cat} bart +} -1 +test lsearch-2.5 {search modes} { + lsearch -exact {foo bar cat} bar +} 1 +test lsearch-2.6 {search modes} { + list [catch {lsearch -regexp {xyz bbcc *bc*} *bc*} msg] +} {1} +test lsearch-2.7 {search modes} { + lsearch -regexp {b.x ^bc xy bcx} ^bc +} 3 +test lsearch-2.8 {search modes} { + lsearch -glob {xyz bbcc *bc*} *bc* +} 1 +test lsearch-2.9 {search modes} { + lsearch -glob {b.x ^bc xy bcx} ^bc +} 1 +test lsearch-2.10 {search modes} { + list [catch {lsearch -glib {b.x bx xy bcx} b.x} msg] +} {1} +test lsearch-2.7 {search modes, -nocase} { + lsearch -nocase -regexp {b.x ^bc xy bcx} ^BC +} 3 +test lsearch-2.8 {search modes, -nocase} { + lsearch -nocase -exact {b.x ^bc xy bcx} ^BC +} 1 +test lsearch-2.9 {search modes, -nocase} { + lsearch -nocase -glob {b.x ^bc xy bcx} B* +} 0 + +test lsearch-3.1 {lsearch errors} { + list [catch lsearch msg] +} {1} +test lsearch-3.2 {lsearch errors} { + list [catch {lsearch a} msg] +} {1} +test lsearch-3.3 {lsearch errors} { + list [catch {lsearch a b c} msg] +} {1} +test lsearch-3.4 {lsearch errors} { + list [catch {lsearch a b c d} msg] +} {1} + +test lsearch-4.1 {binary data} { + lsearch -exact [list foo one\000two bar] bar +} 2 +test lsearch-4.2 {binary data} { + set x one + append x \x00 + append x two + lsearch -exact [list foo one\000two bar] $x +} 1 + +test lsearch-5.1 {lsearch -all} { + lsearch -glob -all {a1 a2 b1 b2 a3 b3} a* +} {0 1 4} + +test lsearch-5.2 {lsearch -all no match} { + lsearch -glob -all {a1 a2 b1 b2 a3 b3} B* +} {} + +test lsearch-5.3 {lsearch -all -nocase} { + lsearch -glob -all -nocase {a1 a2 b1 b2 a3 b3} B* +} {2 3 5} + +test lsearch-5.4 {lsearch -all -inline} { + lsearch -glob -all -inline -nocase {a1 a2 b1 b2 a3 b3} A* +} {a1 a2 a3} + +test lsearch-5.5 {lsearch -inline} { + lsearch -glob -inline {a1 a2 b1 b2 a3 b3} b* +} {b1} + +test lsearch-5.6 {lsearch -not -all} { + lsearch -not -glob -all {a1 a2 b1 b2 a3 b3} a* +} {2 3 5} + +test lsearch-5.7 {lsearch -not -all no match} { + lsearch -not -glob -all {a1 a2 b1 b2 a3 b3} B* +} {0 1 2 3 4 5} + +test lsearch-5.8 {lsearch -not -all -nocase} { + lsearch -not -glob -all -nocase {a1 a2 b1 b2 a3 b3} B* +} {0 1 4} + +test lsearch-5.9 {lsearch -not -all -inline} { + lsearch -not -glob -all -inline -nocase {a1 a2 b1 b2 a3 b3} A* +} {b1 b2 b3} + +test lsearch-5.10 {lsearch -not -inline} { + lsearch -not -glob -inline {a1 a2 b1 b2 a3 b3} b* +} {a1} + +test lsearch-5.11 {lsearch -inline, no match} { + lsearch -glob -inline {a1 a2 b1 b2 a3 b3} C* +} {} + +test lsearch-6.1 {lsearch -bool, found} { + lsearch -bool {a1 a2 b1 b2 a3 b3} b1 +} {1} + +test lsearch-6.2 {lsearch -bool, not found} { + lsearch -bool {a1 a2 b1 b2 a3 b3} c1 +} {0} + +test lsearch-6.3 {lsearch -not -bool, found} { + lsearch -not -bool {a1 a2 b1 b2 a3 b3} b1 +} {0} + +test lsearch-6.4 {lsearch -not -bool, not found} { + lsearch -not -bool {a1 a2 b1 b2 a3 b3} c1 +} {1} + +test lsearch-6.5 {lsearch -bool -all} { + lsearch -bool -glob -all {a1 a2 b1 b2 a3 b3} a* +} {1 1 0 0 1 0} + +test lsearch-6.6 {lsearch -bool -all no match} { + lsearch -bool -glob -all {a1 a2 b1 b2 a3 b3} B* +} {0 0 0 0 0 0} + +test lsearch-6.7 {lsearch -bool -all -nocase} { + lsearch -bool -glob -all -nocase {a1 a2 b1 b2 a3 b3} B* +} {0 0 1 1 0 1} + +test lsearch-6.8 {lsearch -not -bool -all} { + lsearch -not -bool -glob -all {a1 a2 b1 b2 a3 b3} a* +} {0 0 1 1 0 1} + +test lsearch-6.9 {lsearch -not -bool -all no match} { + lsearch -not -bool -glob -all {a1 a2 b1 b2 a3 b3} B* +} {1 1 1 1 1 1} + +test lsearch-6.10 {lsearch -not -bool -all -nocase} { + lsearch -not -bool -glob -all -nocase {a1 a2 b1 b2 a3 b3} B* +} {1 1 0 0 1 0} + +testreport |