From 172dd6e6c369aa8e458c57f43cc3208ab00a58ff Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 26 Jun 2003 00:54:20 +0000 Subject: * tests/init.test: Added tests init-4.6.* to illustrate [Bug 760872] --- ChangeLog | 4 ++++ tests/init.test | 7 ++++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8303927..11abad2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-06-25 Don Porter + + * tests/init.test: Added tests init-4.6.* to illustrate [Bug 760872] + 2003-06-25 Donal K. Fellows * generic/tclTrace.c: New file, factoring out of virtually all the diff --git a/tests/init.test b/tests/init.test index 6881c93..db93b60 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.10 2003/06/26 00:54:21 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -154,7 +154,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 +174,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 -- cgit v0.12