diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-06-04 10:14:35 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-06-04 12:30:59 +1000 |
| commit | fc72b733f10eee9f1155fe34bb265d70ce567ec4 (patch) | |
| tree | b020c138d68f082002994df3e05bd5e0848af5ec /tests/regexp2.test | |
| parent | 1eb1f3ed707923e0c95107d5c8bea9b37aeb2b8d (diff) | |
| download | jimtcl-fc72b733f10eee9f1155fe34bb265d70ce567ec4.zip jimtcl-fc72b733f10eee9f1155fe34bb265d70ce567ec4.tar.gz jimtcl-fc72b733f10eee9f1155fe34bb265d70ce567ec4.tar.bz2 | |
Fix utf8 char matching in character ranges
Also searching the initial part of the string
Signed-off-by: Steve Bennett <steveb@workware.net.au>
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 |