diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-31 10:38:25 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-31 10:38:25 (GMT) |
| commit | 4c25696376a8c5d1f66c51a06193e8dc815287f7 (patch) | |
| tree | d9d8367476dd8deff3bebfb6f81b295845b91ee0 /tests/regexpComp.test | |
| parent | 2dab8fa488cce34d6dc5538612f1b1fba01c8ab5 (diff) | |
| parent | 9406745440cf6387d6aaa25d4b595fba069cf5d0 (diff) | |
| download | tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.zip tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.tar.gz tcl-4c25696376a8c5d1f66c51a06193e8dc815287f7.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'tests/regexpComp.test')
| -rw-r--r-- | tests/regexpComp.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/regexpComp.test b/tests/regexpComp.test index 4dfc2e6..76e708d 100644 --- a/tests/regexpComp.test +++ b/tests/regexpComp.test @@ -62,8 +62,8 @@ test regexpComp-1.6 {basic regexp operation} { test regexpComp-1.7 {regexp utf compliance} { # if not UTF-8 aware, result is "0 1" evalInProc { - set foo "\u4e4eb q" - regexp "\u4e4eb q" "a\u4e4eb qw\u5e4e\x4e wq" bar + set foo "乎b q" + regexp "乎b q" "a乎b qw幎N wq" bar list [string compare $foo $bar] [regexp 4 $bar] } } {0 0} @@ -447,8 +447,8 @@ test regexpComp-7.16 {basic regsub operation} { test regexpComp-7.17 {regsub utf compliance} { evalInProc { # if not UTF-8 aware, result is "0 1" - set foo "xyz555ijka\u4e4ebpqr" - regsub a\u4e4eb xyza\u4e4ebijka\u4e4ebpqr 555 bar + set foo "xyz555ijka乎bpqr" + regsub a乎b xyza乎bijka乎bpqr 555 bar list [string compare $foo $bar] [regexp 4 $bar] } } {0 0} |