diff options
Diffstat (limited to 'tests/regexpComp.test')
| -rw-r--r-- | tests/regexpComp.test | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/tests/regexpComp.test b/tests/regexpComp.test index c104a69..c7a5980 100644 --- a/tests/regexpComp.test +++ b/tests/regexpComp.test @@ -802,13 +802,13 @@ test regexpComp-21.11 {regexp command compiling tests} { } } {0 {}} -test regexpComp-22.1 {Bug 1810038} { +test regexpComp-22.0.1 {Bug 1810038} { evalInProc { regexp ($|^X)* {} } } 1 -test regexpComp-22.2 {regexp compile and backrefs, Bug 1857126} { +test regexpComp-22.0.2 {regexp compile and backrefs, Bug 1857126} { evalInProc { regexp -- {([bc])\1} bb } @@ -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 |