regexp: Enable additional regexp/regsub tests

Many Tcl regexp tests now work correctly with Jim regexp
Also update regsub/regexp wrong # args error message to match Tcl 8.6

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 25 insertions, 25 deletions

diff --git a/tests/regexp2.test b/tests/regexp2.test
index 165c187..f7cf516 100644
--- a/tests/regexp2.test
+++ b/tests/regexp2.test
@@ -495,36 +495,36 @@ test regexpComp-10.3 {newline sensitivity in regsub} {
 #    }
 #} "1 {da\nb123\nxb}"
 
-#test regexpComp-11.1 {regsub errors} {
-#    evalInProc {
-#	list [catch {regsub a b} msg] $msg
-#    }
-#} {1 {wrong # args: should be "regsub ?-switch ...? exp string subSpec ?varName?"}}
-#test regexpComp-11.2 {regsub errors} {
-#    evalInProc {
-#	list [catch {regsub -nocase a b} msg] $msg
-#    }
-#} {1 {wrong # args: should be "regsub ?-switch ...? exp string subSpec ?varName?"}}
-#test regexpComp-11.3 {regsub errors} {
-#    evalInProc {
-#	list [catch {regsub -nocase -all a b} msg] $msg
-#    }
-#} {1 {wrong # args: should be "regsub ?-switch ...? exp string subSpec ?varName?"}}
-#test regexpComp-11.4 {regsub errors} {
-#    evalInProc {
-#	list [catch {regsub a b c d e f} msg] $msg
-#    }
-#} {1 {wrong # args: should be "regsub ?-switch ...? exp string subSpec ?varName?"}}
+test regexpComp-11.1 {regsub errors} {
+    evalInProc {
+	list [catch {regsub a b} msg] $msg
+    }
+} {1 {wrong # args: should be "regsub ?-switch ...? exp string subSpec ?varName?"}}
+test regexpComp-11.2 {regsub errors} {
+    evalInProc {
+	list [catch {regsub -nocase a b} msg] $msg
+    }
+} {1 {wrong # args: should be "regsub ?-switch ...? exp string subSpec ?varName?"}}
+test regexpComp-11.3 {regsub errors} {
+    evalInProc {
+	list [catch {regsub -nocase -all a b} msg] $msg
+    }
+} {1 {wrong # args: should be "regsub ?-switch ...? exp string subSpec ?varName?"}}
+test regexpComp-11.4 {regsub errors} {
+    evalInProc {
+	list [catch {regsub a b c d e f} msg] $msg
+    }
+} {1 {wrong # args: should be "regsub ?-switch ...? exp string subSpec ?varName?"}}
 #test regexpComp-11.5 {regsub errors} {
 #    evalInProc {
 #	list [catch {regsub -gorp a b c} msg] $msg
 #    }
 #} {1 {bad switch "-gorp": must be -all, -nocase, -expanded, -line, -linestop, -lineanchor, -start, or --}}
-#test regexpComp-11.6 {regsub errors} {
-#    evalInProc {
-#	list [catch {regsub -nocase a( b c d} msg] $msg
-#    }
-#} {1 {couldn't compile regular expression pattern: parentheses () not balanced}}
+test regexpComp-11.6 {regsub errors} {
+    evalInProc {
+	list [catch {regsub -nocase a( b c d} msg] $msg
+    }
+} {1 {couldn't compile regular expression pattern: parentheses () not balanced}}
 test regexpComp-11.7 {regsub errors} {
     evalInProc {
 	catch {unset f1}