diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-11-27 05:43:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-11-27 05:43:57 (GMT) |
| commit | f4e32f5e30da1843cdcc7c29bd4068ce15cbb503 (patch) | |
| tree | da4eee2d78745765743736aa26a0cb97b472630f | |
| parent | f70164d8332b6095c59c58689eac31b6440ea7b0 (diff) | |
| download | tcl-f4e32f5e30da1843cdcc7c29bd4068ce15cbb503.zip tcl-f4e32f5e30da1843cdcc7c29bd4068ce15cbb503.tar.gz tcl-f4e32f5e30da1843cdcc7c29bd4068ce15cbb503.tar.bz2 | |
* tests/reg.test (reg-32.*): Added missing testregexp constraints.
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | tests/reg.test | 10 |
2 files changed, 7 insertions, 5 deletions
@@ -1,5 +1,7 @@ 2004-11-26 Don Porter <dgp@users.sourceforge.net> + * tests/reg.test (reg-32.*): Added missing testregexp constraints. + * library/auto.tcl (tcl_findLibrary): Made sure the uniquifying operations on the search path does not also normalize. [Bug 1072136] diff --git a/tests/reg.test b/tests/reg.test index 66c3768..8994fdc 100644 --- a/tests/reg.test +++ b/tests/reg.test @@ -9,7 +9,7 @@ # # Copyright (c) 1998, 1999 Henry Spencer. All rights reserved. # -# RCS: @(#) $Id: reg.test,v 1.16.2.2 2003/11/17 18:12:09 dgp Exp $ +# RCS: @(#) $Id: reg.test,v 1.16.2.3 2004/11/27 05:44:13 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -995,7 +995,7 @@ test reg-31.1 {[[:xdigit:]] behaves correctly when followed by [[:space:]]} { # Code used to produce {1 2:::DebugWin32 2 :::DebugWin32} !!! } {1 2 2 {}} -test reg-32.1 {canmatch functionality -- at end} { +test reg-32.1 {canmatch functionality -- at end} testregexp { set pat {blah} set line "asd asd" # can match at the final d, if '%' follows @@ -1003,7 +1003,7 @@ test reg-32.1 {canmatch functionality -- at end} { lappend res $resvar } {0 7} -test reg-32.2 {canmatch functionality -- at end} { +test reg-32.2 {canmatch functionality -- at end} testregexp { set pat {s%$} set line "asd asd" # can only match after the end of the string @@ -1011,7 +1011,7 @@ test reg-32.2 {canmatch functionality -- at end} { lappend res $resvar } {0 7} -test reg-32.3 {canmatch functionality -- not last char} { +test reg-32.3 {canmatch functionality -- not last char} testregexp { set pat {[^d]%$} set line "asd asd" # can only match after the end of the string @@ -1019,7 +1019,7 @@ test reg-32.3 {canmatch functionality -- not last char} { lappend res $resvar } {0 7} -test reg-32.3.1 {canmatch functionality -- no match} { +test reg-32.3.1 {canmatch functionality -- no match} testregexp { set pat {\Zx} set line "asd asd" # can match the last char, if followed by x |