diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:13:27 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2014-07-12 16:13:27 (GMT) |
commit | 7bea42569d8c2ccb8584155f706392d5812ec428 (patch) | |
tree | 4f61b95593d24393fff08344b408215836a58a05 /tests/regexp.test | |
parent | f0bba60202785e634e8e1712db5cc37246d36e32 (diff) | |
download | tcl-7bea42569d8c2ccb8584155f706392d5812ec428.zip tcl-7bea42569d8c2ccb8584155f706392d5812ec428.tar.gz tcl-7bea42569d8c2ccb8584155f706392d5812ec428.tar.bz2 |
whopper change; now passes test suite on OSX
Diffstat (limited to 'tests/regexp.test')
-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 a83c99b..1f6db61 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -247,7 +247,7 @@ test regexp-6.2 {regexp errors} { } {1 {wrong # args: should be "regexp ?-option ...? exp string ?matchVar? ?subMatchVar ...?"}} test regexp-6.3 {regexp errors} { list [catch {regexp -gorp a} msg] $msg -} {1 {bad option "-gorp": must be -all, -about, -indices, -inline, -expanded, -line, -linestop, -lineanchor, -nocase, -start, or --}} +} {1 {bad option "-gorp": should be -all, -about, -indices, -inline, -expanded, -line, -linestop, -lineanchor, -nocase, -start, or --}} test regexp-6.4 {regexp errors} { list [catch {regexp a( b} msg] $msg } {1 {couldn't compile regular expression pattern: parentheses () not balanced}} @@ -268,7 +268,7 @@ test regexp-6.8 {regexp errors} -setup { } -returnCodes error -result {can't set "f1(f2)": variable isn't array} test regexp-6.9 {regexp errors, -start bad int check} { list [catch {regexp -start bogus {^$} {}} msg] $msg -} {1 {bad index "bogus": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "bogus": should be integer?[+-]integer? or end?[+-]integer?}} test regexp-6.10 {regexp errors} { list [catch {regexp {a[} b} msg] $msg } {1 {couldn't compile regular expression pattern: brackets [] not balanced}} @@ -453,7 +453,7 @@ test regexp-11.4 {regsub errors} { } {1 {wrong # args: should be "regsub ?-option ...? exp string subSpec ?varName?"}} test regexp-11.5 {regsub errors} { list [catch {regsub -gorp a b c} msg] $msg -} {1 {bad option "-gorp": must be -all, -nocase, -expanded, -line, -linestop, -lineanchor, -start, or --}} +} {1 {bad option "-gorp": should be -all, -nocase, -expanded, -line, -linestop, -lineanchor, -start, or --}} 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}} @@ -465,7 +465,7 @@ test regexp-11.7 {regsub errors} -setup { } -returnCodes error -result {can't set "f1(f2)": variable isn't array} test regexp-11.8 {regsub errors, -start bad int check} { list [catch {regsub -start bogus pattern string rep var} msg] $msg -} {1 {bad index "bogus": must be integer?[+-]integer? or end?[+-]integer?}} +} {1 {bad index "bogus": should be integer?[+-]integer? or end?[+-]integer?}} test regexp-11.9 {regsub without final variable name returns value} { regsub b abaca X } {aXaca} |