diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-12-14 10:50:31 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-12-14 11:41:04 +1000 |
commit | 035055f5c5cd83e2e342063ea7b7eeb98d87bd9e (patch) | |
tree | fc6aebf17c9894a0c2f65aae2dbdc60a337dfc65 | |
parent | 06256311b1367669e5983d2dd92a0a8c0ac3661e (diff) | |
download | jimtcl-035055f5c5cd83e2e342063ea7b7eeb98d87bd9e.zip jimtcl-035055f5c5cd83e2e342063ea7b7eeb98d87bd9e.tar.gz jimtcl-035055f5c5cd83e2e342063ea7b7eeb98d87bd9e.tar.bz2 |
Platform differences for regexp messages
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tests/regexp.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index 885e44c..7fa3ee0 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -202,8 +202,8 @@ test regexp-6.3 {regexp errors} jim { list [catch {regexp -gorp a} msg] $msg } {1 {bad switch "-gorp": must be --, -all, -indices, -inline, -line, -nocase, or -start}} test regexp-6.4 {regexp errors} { - list [catch {regexp a( b} msg] [string match *parentheses* $msg] -} {1 1} + catch {regexp a( b} msg +} 1 #test regexp-6.5 {regexp errors} { # list [catch {regexp a) b} msg] [string match *parentheses* $msg] #} {1 1} @@ -364,8 +364,8 @@ test regexp-11.5 {regsub errors} jim { list [catch {regsub -gorp a b c} msg] $msg } {1 {bad switch "-gorp": must be --, -all, -line, -nocase, or -start}} test regexp-11.6 {regsub errors} { - list [catch {regsub -nocase a( b c d} msg] [string match *parentheses* $msg] -} {1 1} + catch {regsub -nocase a( b c d} msg +} 1 test regexp-11.7 {regsub errors} jim { catch {unset f1} set f1 44 |