diff options
author | jenn <jenn> | 1999-08-27 21:45:17 (GMT) |
---|---|---|
committer | jenn <jenn> | 1999-08-27 21:45:17 (GMT) |
commit | f6d9c470d0aae768623bf1afc328443ba2372287 (patch) | |
tree | 97e0910895fc7cf9d0e9e9889ebedae24541189c /tests/tcltest.test | |
parent | 16b4771e72641754fdd0122032875724d6c55e27 (diff) | |
download | tcl-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-x | tests/tcltest.test | 9 |
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 |