diff options
Diffstat (limited to 'tests/regexp.test')
| -rw-r--r-- | tests/regexp.test | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/tests/regexp.test b/tests/regexp.test index 3e06061..f2a6de3 100644 --- a/tests/regexp.test +++ b/tests/regexp.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: regexp.test,v 1.18 2002/02/07 00:52:25 hobbs Exp $ +# RCS: @(#) $Id: regexp.test,v 1.19 2002/02/22 14:52:45 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -343,17 +343,17 @@ test regexp-10.5 {inverse partial newline sensitivity in regsub} { } "1 {da\nb123\nxb}" test regexp-11.1 {regsub errors} { - list [catch {regsub a b c} msg] $msg -} {1 {wrong # args: should be "regsub ?switches? exp string subSpec varName"}} + list [catch {regsub a b} msg] $msg +} {1 {wrong # args: should be "regsub ?switches? exp string subSpec ?varName?"}} test regexp-11.2 {regsub errors} { - list [catch {regsub -nocase a b c} msg] $msg -} {1 {wrong # args: should be "regsub ?switches? exp string subSpec varName"}} + list [catch {regsub -nocase a b} msg] $msg +} {1 {wrong # args: should be "regsub ?switches? exp string subSpec ?varName?"}} test regexp-11.3 {regsub errors} { - list [catch {regsub -nocase -all a b c} msg] $msg -} {1 {wrong # args: should be "regsub ?switches? exp string subSpec varName"}} + list [catch {regsub -nocase -all a b} msg] $msg +} {1 {wrong # args: should be "regsub ?switches? 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 ?switches? exp string subSpec varName"}} +} {1 {wrong # args: should be "regsub ?switches? exp string subSpec ?varName?"}} test regexp-11.5 {regsub errors} { list [catch {regsub -gorp a b c} msg] $msg } {1 {bad switch "-gorp": must be -all, -nocase, -expanded, -line, -linestop, -lineanchor, -start, or --}} @@ -368,6 +368,18 @@ test regexp-11.7 {regsub errors} { test regexp-11.8 {regsub errors, -start bad int check} { list [catch {regsub -start bogus pattern string rep var} msg] $msg } {1 {expected integer but got "bogus"}} +test regexp-11.9 {regsub without final variable name returns value} { + regsub b abaca X +} {aXaca} +test regexp-11.10 {regsub without final variable name returns value} { + regsub -all a abaca X +} {XbXcX} +test regexp-11.11 {regsub without final variable name returns value} { + regsub b(.*?)d abcdeabcfde {,&,\1,} +} {a,bcd,c,eabcfde} +test regexp-11.12 {regsub without final variable name returns value} { + regsub -all b(.*?)d abcdeabcfde {,&,\1,} +} {a,bcd,c,ea,bcfd,cf,e} # This test crashes on the Mac unless you increase the Stack Space to about 1 # Meg. This is probably bigger than most users want... |