summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2008-08-21 23:42:13 (GMT)
committerhobbs <hobbs>2008-08-21 23:42:13 (GMT)
commitedfda9078ba74cdc4c6038b014e610f7b6efcc96 (patch)
tree0c69378f1b317342afcb90c05331a8a6cb468951 /tests
parentb960e085fa96bdac779fd6c41f343d7bf4d6e4e6 (diff)
downloadtcl-edfda9078ba74cdc4c6038b014e610f7b6efcc96.zip
tcl-edfda9078ba74cdc4c6038b014e610f7b6efcc96.tar.gz
tcl-edfda9078ba74cdc4c6038b014e610f7b6efcc96.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 eeba434..aaae977 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 {