diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-19 08:52:46 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-09-19 08:52:46 (GMT) |
| commit | 000f29b52802a11b293d0629589c2a7aa652cda7 (patch) | |
| tree | 4c372cce312a5fa051b945de7d65071bb0925470 /tests/util.test | |
| parent | b53d7f844a52e25261a68ee3e64737a00f818f27 (diff) | |
| download | tcl-000f29b52802a11b293d0629589c2a7aa652cda7.zip tcl-000f29b52802a11b293d0629589c2a7aa652cda7.tar.gz tcl-000f29b52802a11b293d0629589c2a7aa652cda7.tar.bz2 | |
TclNeedSpace is now UTF8-aware. (Bug #411825 from <arobert3434@users.sf.net>)
Diffstat (limited to 'tests/util.test')
| -rw-r--r-- | tests/util.test | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/tests/util.test b/tests/util.test index d783eff..d39a6da 100644 --- a/tests/util.test +++ b/tests/util.test @@ -7,7 +7,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: util.test,v 1.8 2001/07/03 03:33:42 hobbs Exp $ +# RCS: @(#) $Id: util.test,v 1.9 2001/09/19 08:52:46 dkf Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -294,18 +294,16 @@ test util-7.4 {TclPrecTraceProc - write traces, bogus values} { set tcl_precision 12 +# This test always succeeded in the C locale anyway... +test util-8.1 {TclNeedSpace - correct UTF8 handling} { + interp create \u5420 + interp create [list \u5420 foo] + interp alias {} fooset [list \u5420 foo] set + set result [interp target {} fooset] + interp delete \u5420 + set result +} "\u5420 foo" + # cleanup ::tcltest::cleanupTests return - - - - - - - - - - - - |