summaryrefslogtreecommitdiffstats
path: root/tests/tcltest.test
diff options
context:
space:
mode:
authorjenn <jenn>1999-08-27 21:45:17 (GMT)
committerjenn <jenn>1999-08-27 21:45:17 (GMT)
commitf6d9c470d0aae768623bf1afc328443ba2372287 (patch)
tree97e0910895fc7cf9d0e9e9889ebedae24541189c /tests/tcltest.test
parent16b4771e72641754fdd0122032875724d6c55e27 (diff)
downloadtcl-f6d9c470d0aae768623bf1afc328443ba2372287.zip
tcl-f6d9c470d0aae768623bf1afc328443ba2372287.tar.gz
tcl-f6d9c470d0aae768623bf1afc328443ba2372287.tar.bz2
* tests/env.test:
* tests/exec.test: * tests/io.test: * tests/event.test: * tests/tcltest.test: Added 'exit' calls to scripts that the tests themselves write, and removed accidental checkin of knownBugThreaded constraints for Solaris and Linux.
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