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 /tests/main.test | |
| 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
Diffstat (limited to 'tests/main.test')
| -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 {}} |