diff options
| author | oehhar <harald.oehlmann@elmicron.de> | 2014-10-17 10:00:39 (GMT) |
|---|---|---|
| committer | oehhar <harald.oehlmann@elmicron.de> | 2014-10-17 10:00:39 (GMT) |
| commit | 8e5b3b87a5b56c5d871a6d7e2107a516ca1d6212 (patch) | |
| tree | 239e5dd2f89b978e46ca772b0d367cce522e8377 /tests/utf.test | |
| parent | 822a2b50f72950b1305cf1a2983427b05c80859d (diff) | |
| parent | ef89704696f7ce48c9e84dff959c72e2fd887959 (diff) | |
| download | tcl-8e5b3b87a5b56c5d871a6d7e2107a516ca1d6212.zip tcl-8e5b3b87a5b56c5d871a6d7e2107a516ca1d6212.tar.gz tcl-8e5b3b87a5b56c5d871a6d7e2107a516ca1d6212.tar.bz2 | |
Merge trunk
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} { } {} |