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/exec.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/exec.test')
-rw-r--r-- | tests/exec.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/exec.test b/tests/exec.test index 653066d..b142e9b 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: exec.test,v 1.5 1999/07/01 17:36:17 jenn Exp $ +# RCS: @(#) $Id: exec.test,v 1.6 1999/08/27 21:45:17 jenn Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -29,6 +29,7 @@ puts $f { puts -nonewline " $str" } puts {} + exit } close $f @@ -51,6 +52,7 @@ puts $f { close $f } } + exit } close $f @@ -61,6 +63,7 @@ puts $f { set words [regsub -all "\[^ \t\n]+" $data {} dummy] set chars [string length $data] puts [format "%8.d%8.d%8.d" $lines $words $chars] + exit } close $f @@ -85,12 +88,14 @@ puts $f { } lappend newcmd $arg } + exit } close $f set f [open sleep w] puts $f { after [expr $argv*1000] + exit } close $f |