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}
> 
