diff options
| author | stanton <stanton> | 1999-02-04 21:03:27 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-02-04 21:03:27 (GMT) |
| commit | f7d88f2403e9144722ecc14a8521c296e5baa3d2 (patch) | |
| tree | 01d7e7034047b9a4fbddab6c6b8125b3386ca93f /tests/main.test | |
| parent | 3d939442f6592db2be39d60413b9f3ee9801cc3f (diff) | |
| download | tk-f7d88f2403e9144722ecc14a8521c296e5baa3d2.zip tk-f7d88f2403e9144722ecc14a8521c296e5baa3d2.tar.gz tk-f7d88f2403e9144722ecc14a8521c296e5baa3d2.tar.bz2 | |
* tests/main.test:
* tests/unixWm.test: Better cleanup of temporary files.
Lint.
Diffstat (limited to 'tests/main.test')
| -rw-r--r-- | tests/main.test | 7 |
1 files changed, 6 insertions, 1 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} |