diff options
| author | hobbs <hobbs> | 2008-02-26 20:18:13 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2008-02-26 20:18:13 (GMT) |
| commit | a46d1b4c18dd41db8e81fd46a75453453d8e3da9 (patch) | |
| tree | 830b495ac344ea81098ebb316aa4d14fe1445620 /tests | |
| parent | 4af7381c98a78ec974b2febf9fc9543d2fa04e8f (diff) | |
| download | tcl-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')
| -rw-r--r-- | tests/regexpComp.test | 16 |
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 |