Attachment "reg.test.diff" to
ticket [703709ffff]
added by
vincentdarley
2003-03-14 23:23:36.
Index: reg.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/reg.test,v
retrieving revision 1.16
diff -r1.16 reg.test
997a998,1077
> test reg-32.1 {canmatch functionality -- at end} {
> set pat {blah}
> set line "asd asd"
> # can match at the final d, if '%' follows
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 7}
>
> test reg-32.2 {canmatch functionality -- at end} {
> set pat {s%$}
> set line "asd asd"
> # can only match after the end of the string
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 7}
>
> test reg-32.3 {canmatch functionality -- not last char} {
> set pat {[^d]%$}
> set line "asd asd"
> # can only match after the end of the string
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 7}
>
> test reg-32.4 {canmatch functionality -- last char} {knownBug} {
> set pat {.x}
> set line "asd asd"
> # can match the last char, if followed by x
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 6}
>
> test reg-32.4.1 {canmatch functionality -- last char} {knownBug} {
> set pat {.x$}
> set line "asd asd"
> # can match the last char, if followed by x
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 6}
>
> test reg-32.5 {canmatch functionality -- last char} {knownBug} {
> set pat {.[^d]x$}
> set line "asd asd"
> # can match the last char, if followed by not-d and x.
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 6}
>
> test reg-32.6 {canmatch functionality -- last char} {knownBug} {
> set pat {[^a]%[^\r\n]*$}
> set line "asd asd"
> # can match at the final d, if '%' follows
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 6}
>
> test reg-32.7 {canmatch functionality -- last char} {knownBug} {
> set pat {[^a]%$}
> set line "asd asd"
> # can match at the final d, if '%' follows
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 6}
>
> test reg-32.8 {canmatch functionality -- last char} {knownBug} {
> set pat {[^x]%$}
> set line "asd asd"
> # can match at the final d, if '%' follows
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 6}
>
> test reg-32.7 {canmatch functionality -- more complex case} {knownBug} {
> set pat {((\B\B|\Bh+line)[ \t]*|[^\B]%[^\r\n]*)$}
> set line "asd asd"
> # can match at the final d, if '%' follows
> set res [testregexp -xflags -- c $pat $line resvar]
> lappend res $resvar
> } {0 6}
>