diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2014-10-17 14:28:46 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2014-10-17 14:28:46 (GMT) |
| commit | 0237d15593de152f8d82bd4b852ed260d73dfbd5 (patch) | |
| tree | adde55fda8a9510431640463f98f56fe18a3af43 /tests/utf.test | |
| parent | 9acec29bc1cc79293e2760411a3f07ffdd8113e1 (diff) | |
| parent | fc47c8aae5f8c68455ee588cfbe4f707e91bde7d (diff) | |
| download | tcl-tip_428.zip tcl-tip_428.tar.gz tcl-tip_428.tar.bz2 | |
Merge trunktip_428
Diffstat (limited to 'tests/utf.test')
| -rw-r--r-- | tests/utf.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/utf.test b/tests/utf.test index 2fcac49..83daddf 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -287,9 +287,11 @@ test utf-18.5 {Tcl_UniCharToTitle, no delta} { string totitle ! } ! -test utf-19.1 {TclUniCharLen} { +test utf-19.1 {TclUniCharLen} -body { list [regexp \\d abc456def foo] $foo -} {1 4} +} -cleanup { + unset -nocomplain foo +} -result {1 4} test utf-20.1 {TclUniCharNcmp} { } {} |