summaryrefslogtreecommitdiffstats
path: root/tests/regexpComp.test
diff options
context:
space:
mode:
authorhobbs <hobbs>2008-02-26 20:18:13 (GMT)
committerhobbs <hobbs>2008-02-26 20:18:13 (GMT)
commita46d1b4c18dd41db8e81fd46a75453453d8e3da9 (patch)
tree830b495ac344ea81098ebb316aa4d14fe1445620 /tests/regexpComp.test
parent4af7381c98a78ec974b2febf9fc9543d2fa04e8f (diff)
downloadtcl-a46d1b4c18dd41db8e81fd46a75453453d8e3da9.zip
tcl-a46d1b4c18dd41db8e81fd46a75453453d8e3da9.tar.gz
tcl-a46d1b4c18dd41db8e81fd46a75453453d8e3da9.tar.bz2
* generic/tclUtil.c (TclReToGlob): fix the handling of the last
* tests/regexpComp.test: star possibly being escaped in determining right anchor. [Bug 1902436]
Diffstat (limited to 'tests/regexpComp.test')
-rw-r--r--tests/regexpComp.test16
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/regexpComp.test b/tests/regexpComp.test
index 0278033..c7a5980 100644
--- a/tests/regexpComp.test
+++ b/tests/regexpComp.test
@@ -909,6 +909,22 @@ test regexpComp-24.9 {regexp command compiling tests} {
list [catch {regexp -- $re dogfod} msg] $msg
}
} {1 {couldn't compile regular expression pattern: parentheses () not balanced}}
+test regexpComp-24.10 {regexp command compiling tests} {
+ # Bug 1902436 - last * escaped
+ evalInProc {
+ set text {this is *bold* !}
+ set re {\*bold\*}
+ regexp -- $re $text
+ }
+} 1
+test regexpComp-24.11 {regexp command compiling tests} {
+ # Bug 1902436 - last * escaped
+ evalInProc {
+ set text {this is *bold* !}
+ set re {\*bold\*.*!}
+ regexp -- $re $text
+ }
+} 1
# cleanup
::tcltest::cleanupTests