diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-07-18 23:35:37 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-07-18 23:35:37 (GMT) |
| commit | b48c6ea6c1f6c8a6cf870c15799cf33cb88d0b7d (patch) | |
| tree | 0580485f72aa65d80f29849145a21e23f8252d07 /tests/init.test | |
| parent | 7265d5487c6af7a62eb6a02dbb439f996b49e826 (diff) | |
| download | tcl-b48c6ea6c1f6c8a6cf870c15799cf33cb88d0b7d.zip tcl-b48c6ea6c1f6c8a6cf870c15799cf33cb88d0b7d.tar.gz tcl-b48c6ea6c1f6c8a6cf870c15799cf33cb88d0b7d.tar.bz2 | |
* generic/tclBasic.c: Corrected several instances of unsafe
* generic/tclCompile.c: truncation of UTF-8 strings that might
* generic/tclProc.c: break apart a multi-byte character.
* library/init.tcl: [Bug 760872]
* tests/init.test:
Diffstat (limited to 'tests/init.test')
| -rw-r--r-- | tests/init.test | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/tests/init.test b/tests/init.test index 6881c93..67a23a6 100644 --- a/tests/init.test +++ b/tests/init.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: init.test,v 1.9 2002/06/05 01:12:38 dgp Exp $ +# RCS: @(#) $Id: init.test,v 1.9.2.1 2003/07/18 23:35:39 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -67,10 +67,6 @@ interp eval $testInterp [list namespace import -force ::tcltest::*] interp eval $testInterp { -if {[lsearch [namespace children] ::tcltest] == -1} { - package require tcltest -} - auto_reset catch {rename parray {}} @@ -154,7 +150,7 @@ test init-3.0 {random stuff in the auto_index, should still work} { # should be the same. set count 0 -foreach arg { +foreach arg [subst -nocommands -novariables { c {argument which spans @@ -174,7 +170,8 @@ foreach arg { error stack cannot be uniquely determined. foo bar "} - } { + {argument that contains non-ASCII character, \u20ac, and which is of such great length that it will be longer than 150 bytes so it will be truncated by the Tcl C library} + }] { test init-4.$count.0 {::errorInfo produced by [unknown]} { auto_reset @@ -200,6 +197,7 @@ foreach arg { incr count } +cleanupTests } ;# End of [interp eval $testInterp] # cleanup |