Improve bunch of error-messages

1 files changed, 5 insertions, 5 deletions

diff --git a/tests/regexp.test b/tests/regexp.test
index 16c775e..9e6b29a 100644
--- a/tests/regexp.test
+++ b/tests/regexp.test
@@ -275,10 +275,10 @@ test regexp-6.3 {regexp errors} {
 } {1 {bad option "-gorp": must 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}}
+} {1 {cannot compile regular expression pattern: parentheses () not balanced}}
 test regexp-6.5 {regexp errors} {
     list [catch {regexp a( b} msg] $msg
-} {1 {couldn't compile regular expression pattern: parentheses () not balanced}}
+} {1 {cannot compile regular expression pattern: parentheses () not balanced}}
 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
 } {0 1}
@@ -296,7 +296,7 @@ test regexp-6.9 {regexp errors, -start bad int check} {
 } {1 {bad index "bogus": must 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}}
+} {1 {cannot compile regular expression pattern: brackets [] not balanced}}
 
 test regexp-7.1 {basic regsub operation} {
     list [regsub aa+ xaxaaaxaa 111&222 foo] $foo
@@ -481,7 +481,7 @@ test regexp-11.5 {regsub errors} {
 } {1 {bad option "-gorp": must be -all, -command, -expanded, -line, -linestop, -lineanchor, -nocase, -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}}
+} {1 {cannot compile regular expression pattern: parentheses () not balanced}}
 test regexp-11.7 {regsub errors} -setup {
     unset -nocomplain f1
 } -body {
@@ -889,7 +889,7 @@ test regexp-22.4 {Bug 3606139} -setup {
 	[a 668]([a 55])[a 668]([a 55])[a 668]([a 55])[a 511]] {}] a
 } -cleanup {
     rename a {}
-} -returnCodes 1 -match glob -result {couldn't compile regular expression pattern: *}
+} -returnCodes 1 -match glob -result {cannot compile regular expression pattern: *}
 test regexp-22.5 {Bug 3610026} -setup {
     set e {}
     set cp 99