summaryrefslogtreecommitdiffstats
path: root/tests/regexpComp.test
diff options
context:
space:
mode:
authordgp@users.sourceforge.net <dgp>2008-08-22 17:26:46 (GMT)
committerdgp@users.sourceforge.net <dgp>2008-08-22 17:26:46 (GMT)
commit36bd3f11f709c1564d850efcfd10cf2f30c7ca2d (patch)
treedc9d8441b300ef5406bb5f60de8fe103e8474fac /tests/regexpComp.test
parent58aa1d8ffe1776a3b4e2211e4bfb657822be0625 (diff)
downloadtcl-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/regexpComp.test')
-rw-r--r--tests/regexpComp.test18
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}