diff options
| author | stanton <stanton@noemail.net> | 1999-02-04 21:03:27 (GMT) |
|---|---|---|
| committer | stanton <stanton@noemail.net> | 1999-02-04 21:03:27 (GMT) |
| commit | b387677a2238d37088acb10ed7ce707e86584c5f (patch) | |
| tree | 01d7e7034047b9a4fbddab6c6b8125b3386ca93f /tests | |
| parent | 9f7dc16a2975a57c4f53886e8a60c3856db562f1 (diff) | |
| download | tk-b387677a2238d37088acb10ed7ce707e86584c5f.zip tk-b387677a2238d37088acb10ed7ce707e86584c5f.tar.gz tk-b387677a2238d37088acb10ed7ce707e86584c5f.tar.bz2 | |
* tests/main.test:
* tests/unixWm.test: Better cleanup of temporary files.
Lint.
FossilOrigin-Name: 8c13f6c6bbe8f96aaeb45c79a7ffa5c191cc2a73
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 {} |