diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/main.test | 7 | ||||
| -rw-r--r-- | tests/unixWm.test | 3 |
2 files changed, 8 insertions, 2 deletions
diff --git a/tests/main.test b/tests/main.test index 778ce03..5db6ed5 100644 --- a/tests/main.test +++ b/tests/main.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: main.test,v 1.3 1998/12/29 19:34:50 hershey Exp $ +# RCS: @(#) $Id: main.test,v 1.4 1999/02/04 21:03:28 stanton Exp $ if {[info procs test] != "test"} { source defs @@ -30,3 +30,8 @@ test main-1.1 {StdinProc} {unixOnly} { file delete -force script list $error $msg } {0 {}} + +# +# Clean up. +# +catch {removeFile script} diff --git a/tests/unixWm.test b/tests/unixWm.test index bf19bbb..f70c589 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: unixWm.test,v 1.3 1998/09/14 18:23:52 stanton Exp $ +# RCS: @(#) $Id: unixWm.test,v 1.4 1999/02/04 21:03:28 stanton Exp $ if {$tcl_platform(platform) != "unix"} { return @@ -2355,4 +2355,5 @@ test unixWm-58.3 {exit processing} { catch {destroy .t} +catch {removeFile script} concat {} |