diff options
| author | dgp@users.sourceforge.net <dgp> | 2008-08-22 17:26:46 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2008-08-22 17:26:46 (GMT) |
| commit | 36bd3f11f709c1564d850efcfd10cf2f30c7ca2d (patch) | |
| tree | dc9d8441b300ef5406bb5f60de8fe103e8474fac /tests | |
| parent | 58aa1d8ffe1776a3b4e2211e4bfb657822be0625 (diff) | |
| download | tcl-36bd3f11f709c1564d850efcfd10cf2f30c7ca2d.zip tcl-36bd3f11f709c1564d850efcfd10cf2f30c7ca2d.tar.gz tcl-36bd3f11f709c1564d850efcfd10cf2f30c7ca2d.tar.bz2 | |
* generic/tclUtil.c (TclReToGlob): Added missing set of the
*exactPtr value to really fix [Bug 2065115].
* tests/regexpComp.test: Correct duplicate test names.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/regexpComp.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/regexpComp.test b/tests/regexpComp.test index aaae977..4f05bc3 100644 --- a/tests/regexpComp.test +++ b/tests/regexpComp.test @@ -69,57 +69,57 @@ test regexpComp-1.7 {regexp utf compliance} { } } {0 0} -test regexp-1.8 {regexp ***= metasyntax} { +test regexpComp-1.8 {regexp ***= metasyntax} { evalInProc { regexp -- "***=o" "aeiou" } } 1 -test regexp-1.9 {regexp ***= metasyntax} { +test regexpComp-1.9 {regexp ***= metasyntax} { evalInProc { set string "aeiou" regexp -- "***=o" $string } } 1 -test regexp-1.10 {regexp ***= metasyntax} { +test regexpComp-1.10 {regexp ***= metasyntax} { evalInProc { set string "aeiou" set re "***=o" regexp -- $re $string } } 1 -test regexp-1.11 {regexp ***= metasyntax} { +test regexpComp-1.11 {regexp ***= metasyntax} { evalInProc { regexp -- "***=y" "aeiou" } } 0 -test regexp-1.12 {regexp ***= metasyntax} { +test regexpComp-1.12 {regexp ***= metasyntax} { evalInProc { set string "aeiou" regexp -- "***=y" $string } } 0 -test regexp-1.13 {regexp ***= metasyntax} { +test regexpComp-1.13 {regexp ***= metasyntax} { evalInProc { set string "aeiou" set re "***=y" regexp -- $re $string } } 0 -test regexp-1.14 {regexp ***= metasyntax} { +test regexpComp-1.14 {regexp ***= metasyntax} { evalInProc { set string "aeiou" set re "***=e*o" regexp -- $re $string } } 0 -test regexp-1.15 {regexp ***= metasyntax} { +test regexpComp-1.15 {regexp ***= metasyntax} { evalInProc { set string "ae*ou" set re "***=e*o" regexp -- $re $string } } 1 -test regexp-1.16 {regexp ***= metasyntax} { +test regexpComp-1.16 {regexp ***= metasyntax} { evalInProc { set string {ae*[o]?ua} set re {***=e*[o]?u} |
