summaryrefslogtreecommitdiffstats
path: root/tests/tcltest.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-xtests/tcltest.test9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test
index b87b830..13df747 100755
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -10,7 +10,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.test,v 1.7 1999/08/27 01:17:06 jenn Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.8 1999/08/27 21:45:18 jenn Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -29,7 +29,7 @@ makeFile {
test c-1.0 {test c} {knownBug} {
} {}
::tcltest::cleanupTests
- return
+ exit
} test.tcl
# test -help
@@ -158,6 +158,7 @@ makeFile {
::tcltest::PrintError "a really really long string containing a \
\"Really/Long/Path/that/contains/no/spaces/and/is/longer/than/eighty/characters/to/see/what/happens\""
::tcltest::PrintError "Problem renaming file: error renaming \"Z:/ws/tcl8.2/win32-ix86/tests/core\" to \"Z:/ws/tcl8.2/win32-ix86/tests/movecore-core\""
+ exit
} printerror.tcl
# -outfile, -errfile
@@ -217,7 +218,7 @@ makeFile {
package require tcltest
namespace import ::tcltest::*
makeFile {} a.tmp
- return
+ exit
} a.tcl
makeFile {} thisdirectoryisafile
@@ -327,7 +328,7 @@ makeFile {
package require tcltest
namespace import ::tcltest::*
puts "=$::tcltest::parameters="
- return
+ exit
} args.tcl
# -args