diff options
| author | dgp <dgp@users.sourceforge.net> | 2003-06-26 00:54:20 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2003-06-26 00:54:20 (GMT) |
| commit | 172dd6e6c369aa8e458c57f43cc3208ab00a58ff (patch) | |
| tree | 4ac3667cbf7c7ab1e4c217560e2884cc3e3a0ba7 /tests/init.test | |
| parent | 43e3bcc7712f80d3c36696dbc1f9349f2819fe27 (diff) | |
| download | tcl-172dd6e6c369aa8e458c57f43cc3208ab00a58ff.zip tcl-172dd6e6c369aa8e458c57f43cc3208ab00a58ff.tar.gz tcl-172dd6e6c369aa8e458c57f43cc3208ab00a58ff.tar.bz2 | |
* tests/init.test: Added tests init-4.6.* to illustrate [Bug 760872]
Diffstat (limited to 'tests/init.test')
| -rw-r--r-- | tests/init.test | 7 |
1 files changed, 4 insertions, 3 deletions
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 |