diff options
author | Steve Bennett <steveb@workware.net.au> | 2010-09-28 07:26:38 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:54 +1000 |
commit | 8b0b74ece4301bb9ef01168f062ef6e9bc6e2210 (patch) | |
tree | 997f2ef91333bcaa3e061c2c8b4648a2a64fb663 /tests | |
parent | 20a92713543de2514230010b008065b5c1bd8b8c (diff) | |
download | jimtcl-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.test | 12 |
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} |