summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-06-26 00:54:20 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-06-26 00:54:20 (GMT)
commit172dd6e6c369aa8e458c57f43cc3208ab00a58ff (patch)
tree4ac3667cbf7c7ab1e4c217560e2884cc3e3a0ba7
parent43e3bcc7712f80d3c36696dbc1f9349f2819fe27 (diff)
downloadtcl-172dd6e6c369aa8e458c57f43cc3208ab00a58ff.zip
tcl-172dd6e6c369aa8e458c57f43cc3208ab00a58ff.tar.gz
tcl-172dd6e6c369aa8e458c57f43cc3208ab00a58ff.tar.bz2
* tests/init.test: Added tests init-4.6.* to illustrate [Bug 760872]
-rw-r--r--ChangeLog4
-rw-r--r--tests/init.test7
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 <dgp@users.sourceforge.net>
+
+ * tests/init.test: Added tests init-4.6.* to illustrate [Bug 760872]
+
2003-06-25 Donal K. Fellows <fellowsd@cs.man.ac.uk>
* 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