diff options
Diffstat (limited to 'tests/regexp2.test')
| -rw-r--r-- | tests/regexp2.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/regexp2.test b/tests/regexp2.test index 38fe88b..ef90560 100644 --- a/tests/regexp2.test +++ b/tests/regexp2.test @@ -382,6 +382,14 @@ test regexpComp-7.17 {regsub utf compliance} { } } {0 0} +test regexpComp-7.18 {regsub utf8 in char range} { + regsub {[\u4e4ex]b} xyza\u4e4ebijka\u4e4ebpqr 555 +} xyza555ijka\u4e4ebpqr + +test regexpComp-7.19 {regsub utf8 in complemented char range} { + regsub -all {[^x\u4e4e]b} xyza\u4e4ebizbjxbka\u4e4fbpqr 555 +} xyza\u4e4ebi555jxbka555pqr + test regexpComp-8.1 {case conversion in regsub} { evalInProc { list [regsub -nocase a(a+) xaAAaAAay & foo] $foo |