summaryrefslogtreecommitdiffstats
path: root/tests/regexp.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2014-07-12 16:13:27 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2014-07-12 16:13:27 (GMT)
commit7bea42569d8c2ccb8584155f706392d5812ec428 (patch)
tree4f61b95593d24393fff08344b408215836a58a05 /tests/regexp.test
parentf0bba60202785e634e8e1712db5cc37246d36e32 (diff)
downloadtcl-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.test8
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}