summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorstanton <stanton>1999-02-04 21:03:27 (GMT)
committerstanton <stanton>1999-02-04 21:03:27 (GMT)
commitf7d88f2403e9144722ecc14a8521c296e5baa3d2 (patch)
tree01d7e7034047b9a4fbddab6c6b8125b3386ca93f /tests
parent3d939442f6592db2be39d60413b9f3ee9801cc3f (diff)
downloadtk-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')
-rw-r--r--tests/main.test7
-rw-r--r--tests/unixWm.test3
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 {}