diff options
author | hershey <hershey> | 1998-12-29 19:34:50 (GMT) |
---|---|---|
committer | hershey <hershey> | 1998-12-29 19:34:50 (GMT) |
commit | 3de56eab5049b3d3b1adb8802a3d9f11e9e1e148 (patch) | |
tree | 3fe15755bb477d7ddd9f0e48683b1b227c10f197 | |
parent | cfd3c37b4483e3f22d8934b994874d809f775dad (diff) | |
download | tk-3de56eab5049b3d3b1adb8802a3d9f11e9e1e148.zip tk-3de56eab5049b3d3b1adb8802a3d9f11e9e1e148.tar.gz tk-3de56eab5049b3d3b1adb8802a3d9f11e9e1e148.tar.bz2 |
now removes "script" file created by test.scriptics_tclpro_1_2_a1
-rw-r--r-- | tests/main.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/main.test b/tests/main.test index e7ed056..778ce03 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.2 1998/09/14 18:23:48 stanton Exp $ +# RCS: @(#) $Id: main.test,v 1.3 1998/12/29 19:34:50 hershey Exp $ if {[info procs test] != "test"} { source defs @@ -27,5 +27,6 @@ test main-1.1 {StdinProc} {unixOnly} { } else { set error 0 } + file delete -force script list $error $msg } {0 {}} |