diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-12-05 16:00:55 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-12-12 13:44:37 +1000 |
commit | 9a321dd769d3f63ba1993b9854933826e1b4db73 (patch) | |
tree | 1ed48ea01a2098f5e12b8bb86fc5fc345e5d7bce | |
parent | dcd15b87c72504b8509212722abcca35460834a4 (diff) | |
download | jimtcl-9a321dd769d3f63ba1993b9854933826e1b4db73.zip jimtcl-9a321dd769d3f63ba1993b9854933826e1b4db73.tar.gz jimtcl-9a321dd769d3f63ba1993b9854933826e1b4db73.tar.bz2 |
Make sure exec.test cleans up better
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | tests/exec.test | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/tests/exec.test b/tests/exec.test index e8c1462..54fe374 100644 --- a/tests/exec.test +++ b/tests/exec.test @@ -407,14 +407,16 @@ test exec-11.4 {commands in background} { exec sleep 3 -test exec-12.1 {reaping background processes} { +test exec-12.1 {reaping background processes} -body { for {set i 0} {$i < 20} {incr i} { exec echo foo > exec.tmp1 & } exec sleep 1 catch {exec ps | fgrep "echo foo" | fgrep -v fgrep | wc} msg lindex $msg 0 -} 0 +} -cleanup { + file delete exec.tmp1 +} -result 0 # Redirecting standard error separately from standard output @@ -457,26 +459,27 @@ test exec-15.6 {standard error redirection} { >& gorp.file 2> gorp.file2 | echo biz baz list [exec cat gorp.file] [exec cat gorp.file2] } {{biz baz} {foo bar}} -test exec-15.7 {combine standard output/standard error} { - exec sh -c "echo foo bar 1>&2" > gorp.file 2>@1 +test exec-15.7 {combine standard output/standard error} -body { + exec sh -c "echo foo bar 1>&2" > gorp.file 2>@1 exec cat gorp.file -} {foo bar} +} -cleanup { + file delete gorp.file gorp.file2 +} -result {foo bar} -test exec-16.1 {flush output before exec} { +test exec-16.1 {flush output before exec} -body { set f [open gorp.file w] puts $f "First line" exec echo "Second line" >@ $f puts $f "Third line" close $f exec cat gorp.file -} {First line +} -cleanup { + file delete gorp.file +} -result {First line Second line Third line} # cleanup -file delete script gorp.file gorp.file2 file delete echo cat wc sh sleep exit -file delete err testreport - |