aboutsummaryrefslogtreecommitdiff
path: root/tests/jim.test
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2010-12-14 10:43:26 +1000
committerSteve Bennett <steveb@workware.net.au>2010-12-14 11:01:28 +1000
commit06256311b1367669e5983d2dd92a0a8c0ac3661e (patch)
tree661bdc96ed7164e2df808a85d2d80bcc3513d64c /tests/jim.test
parent7e50b8cbb20c3cee9193249d0150aa6f5cc778ee (diff)
downloadjimtcl-06256311b1367669e5983d2dd92a0a8c0ac3661e.zip
jimtcl-06256311b1367669e5983d2dd92a0a8c0ac3661e.tar.gz
jimtcl-06256311b1367669e5983d2dd92a0a8c0ac3661e.tar.bz2
Fix constraint checking
This was completely wrong. The arg order was wrong such that when test constraints were specifed the test was always skipped! Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/jim.test')
-rw-r--r--tests/jim.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/jim.test b/tests/jim.test
index 1d477e2..419e044 100644
--- a/tests/jim.test
+++ b/tests/jim.test
@@ -2515,12 +2515,12 @@ test switch-4.5 {error in default command} {
} {1 switch2}
test switch-5.1 {errors in -regexp matching} regexp {
- list [catch {switch -regexp aaaab {
+ catch {switch -regexp aaaab {
*b {concat glob}
aaaab {concat exact}
default {concat none}
- }} msg] $msg
-} {1 {couldn't compile regular expression pattern: quantifier operand invalid}}
+ }} msg
+} 1
test switch-6.1 {backslashes in patterns} {
switch -exact {\a\$\.\[} {