summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2008-08-21 23:42:22 (GMT)
committerhobbs <hobbs>2008-08-21 23:42:22 (GMT)
commit2e1f9a90e2bb9a21b3ccc70970b71384199885e1 (patch)
tree6335082b878c14b1a71639837969408d8b9c7870 /tests
parent4ad1d554a92681b3d78876608ad0671c76098978 (diff)
downloadtcl-2e1f9a90e2bb9a21b3ccc70970b71384199885e1.zip
tcl-2e1f9a90e2bb9a21b3ccc70970b71384199885e1.tar.gz
tcl-2e1f9a90e2bb9a21b3ccc70970b71384199885e1.tar.bz2
really fix translation to escape glob-sensitive chars
Diffstat (limited to 'tests')
-rw-r--r--tests/regexpComp.test21
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/regexpComp.test b/tests/regexpComp.test
index f38062d..0fbed97 100644
--- a/tests/regexpComp.test
+++ b/tests/regexpComp.test
@@ -105,6 +105,27 @@ test regexp-1.13 {regexp ***= metasyntax} {
regexp -- $re $string
}
} 0
+test regexp-1.14 {regexp ***= metasyntax} {
+ evalInProc {
+ set string "aeiou"
+ set re "***=e*o"
+ regexp -- $re $string
+ }
+} 0
+test regexp-1.15 {regexp ***= metasyntax} {
+ evalInProc {
+ set string "ae*ou"
+ set re "***=e*o"
+ regexp -- $re $string
+ }
+} 1
+test regexp-1.16 {regexp ***= metasyntax} {
+ evalInProc {
+ set string {ae*[o]?ua}
+ set re {***=e*[o]?u}
+ regexp -- $re $string
+ }
+} 1
test regexpComp-2.1 {getting substrings back from regexp} {
evalInProc {