diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-03-03 16:07:59 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:49 +1000 |
| commit | 44ba281d39235e1982e9929a2592572e16cba448 (patch) | |
| tree | 12ec6ec5686ec967f1247501fe9807b9b2834ebb | |
| parent | 10d5a7e084d9b291813d2efe1bc4d1895191329a (diff) | |
| download | jimtcl-44ba281d39235e1982e9929a2592572e16cba448.zip jimtcl-44ba281d39235e1982e9929a2592572e16cba448.tar.gz jimtcl-44ba281d39235e1982e9929a2592572e16cba448.tar.bz2 | |
Update test.tcl for new regsub/regexp error message
Signed-off-by: Steve Bennett <steveb@workware.net.au>
| -rw-r--r-- | test.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -3780,15 +3780,15 @@ test regexp-5.5 {exercise cache of compiled expressions} { test regexp-6.1 {regexp errors} { list [catch {regexp a} msg] $msg -} {1 {wrong # args: should be "regexp ?-nocase? ?-line? ?-indices? ?-start offset? ?-all? ?-inline? exp string ?matchVar? ?subMatchVar ...?"}} +} {1 {wrong # args: should be "regexp ?-nocase? ?-line? ?-indices? ?-start offset? ?-all? ?-inline? ?--? exp string ?matchVar? ?subMatchVar ...?"}} test regexp-6.2 {regexp errors} { list [catch {regexp -nocase a} msg] $msg -} {1 {wrong # args: should be "regexp ?-nocase? ?-line? ?-indices? ?-start offset? ?-all? ?-inline? exp string ?matchVar? ?subMatchVar ...?"}} +} {1 {wrong # args: should be "regexp ?-nocase? ?-line? ?-indices? ?-start offset? ?-all? ?-inline? ?--? exp string ?matchVar? ?subMatchVar ...?"}} test regexp-6.3 {regexp errors} { list [catch {regexp -gorp a} msg] $msg -} {1 {wrong # args: should be "regexp ?-nocase? ?-line? ?-indices? ?-start offset? ?-all? ?-inline? exp string ?matchVar? ?subMatchVar ...?"}} +} {1 {wrong # args: should be "regexp ?-nocase? ?-line? ?-indices? ?-start offset? ?-all? ?-inline? ?--? exp string ?matchVar? ?subMatchVar ...?"}} test regexp-6.4 {regexp errors} { list [catch {regexp a( b} msg] $msg @@ -3960,23 +3960,23 @@ xb}} test regexp-11.1 {regsub errors} { list [catch {regsub a b} msg] $msg -} {1 {wrong # args: should be "regsub ?-nocase? ?-all? exp string subSpec ?varName?"}} +} {1 {wrong # args: should be "regsub ?-nocase? ?-all? ?-line? ?-start offset? ?--? exp string subSpec ?varName?"}} test regexp-11.2 {regsub errors} { list [catch {regsub -nocase a b} msg] $msg -} {1 {wrong # args: should be "regsub ?-nocase? ?-all? exp string subSpec ?varName?"}} +} {1 {wrong # args: should be "regsub ?-nocase? ?-all? ?-line? ?-start offset? ?--? exp string subSpec ?varName?"}} test regexp-11.3 {regsub errors} { list [catch {regsub -nocase -all a b} msg] $msg -} {1 {wrong # args: should be "regsub ?-nocase? ?-all? exp string subSpec ?varName?"}} +} {1 {wrong # args: should be "regsub ?-nocase? ?-all? ?-line? ?-start offset? ?--? exp string subSpec ?varName?"}} test regexp-11.4 {regsub errors} { list [catch {regsub a b c d e f} msg] $msg -} {1 {wrong # args: should be "regsub ?-nocase? ?-all? exp string subSpec ?varName?"}} +} {1 {wrong # args: should be "regsub ?-nocase? ?-all? ?-line? ?-start offset? ?--? exp string subSpec ?varName?"}} test regexp-11.5 {regsub errors} { list [catch {regsub -gorp a b c} msg] $msg -} {1 {wrong # args: should be "regsub ?-nocase? ?-all? exp string subSpec ?varName?"}} +} {1 {wrong # args: should be "regsub ?-nocase? ?-all? ?-line? ?-start offset? ?--? exp string subSpec ?varName?"}} test regexp-11.6 {regsub errors} { list [catch {regsub -nocase a( b c d} msg] $msg |