diff options
author | Steve Bennett <steveb@workware.net.au> | 2013-11-10 13:53:01 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-02-02 12:48:14 +1000 |
commit | 8df5aa2338453ebecb561df96a7c11d356400d77 (patch) | |
tree | 8322a549424ca61a5d101eeee26dcf5f64322dd2 /tests/regexp2.test | |
parent | a14c13716364a835a8ab6cfcb4aa969e8c3bcc23 (diff) | |
download | jimtcl-8df5aa2338453ebecb561df96a7c11d356400d77.zip jimtcl-8df5aa2338453ebecb561df96a7c11d356400d77.tar.gz jimtcl-8df5aa2338453ebecb561df96a7c11d356400d77.tar.bz2 |
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>
Diffstat (limited to 'tests/regexp2.test')
-rw-r--r-- | tests/regexp2.test | 50 |
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} |