aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2010-09-28 07:26:38 +1000
committerSteve Bennett <steveb@workware.net.au>2010-10-15 11:02:54 +1000
commit8b0b74ece4301bb9ef01168f062ef6e9bc6e2210 (patch)
tree997f2ef91333bcaa3e061c2c8b4648a2a64fb663 /tests
parent20a92713543de2514230010b008065b5c1bd8b8c (diff)
downloadjimtcl-8b0b74ece4301bb9ef01168f062ef6e9bc6e2210.zip
jimtcl-8b0b74ece4301bb9ef01168f062ef6e9bc6e2210.tar.gz
jimtcl-8b0b74ece4301bb9ef01168f062ef6e9bc6e2210.tar.bz2
Don't depend on specific regexp messages
These can vary on different systems Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r--tests/jim.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/jim.test b/tests/jim.test
index 08ea78d..691b21f 100644
--- a/tests/jim.test
+++ b/tests/jim.test
@@ -3772,12 +3772,12 @@ test regexp-6.3 {regexp errors} {
} {1 {wrong # args: should be "regexp ?-nocase? ?-line? ?-indices? ?-start offset? ?-all? ?-inline? ?--? exp string ?matchVar? ?subMatchVar ...?"}}
test regexp-6.4 {regexp errors} {
- list [catch {regexp a( b} msg] $msg
-} {1 {couldn't compile regular expression pattern: parentheses not balanced}}
+ catch {regexp a( b} msg
+} {1}
test regexp-6.5 {regexp errors} {
- list [catch {regexp a( b} msg] $msg
-} {1 {couldn't compile regular expression pattern: parentheses not balanced}}
+ catch {regexp a( b} msg
+} {1}
test regexp-6.6 {regexp errors} {
list [catch {regexp a a f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1 f1} msg] $msg
@@ -3960,8 +3960,8 @@ test regexp-11.5 {regsub errors} {
} {1 {wrong # args: should be "regsub ?-nocase? ?-all? ?-line? ?-start offset? ?--? exp string subSpec ?varName?"}}
test regexp-11.6 {regsub errors} {
- list [catch {regsub -nocase a( b c d} msg] $msg
-} {1 {couldn't compile regular expression pattern: parentheses not balanced}}
+ catch {regsub -nocase a( b c d} msg
+} {1}
test regexp-11.7 {regsub errors} {
catch {unset f1}