summaryrefslogtreecommitdiffstats
path: root/tests/init.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/init.test')
-rw-r--r--tests/init.test12
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