diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-11-09 10:06:09 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-11-10 07:40:30 +1000 |
| commit | ad4cedfcc0e55a24dec6712df7fd9a58a4db8a22 (patch) | |
| tree | 26551abe7f90c5a7fd13648561b611a4b7c117e7 /tests | |
| parent | 87507cd2fc4106bb77a487443ea20abf82a92502 (diff) | |
| download | jimtcl-ad4cedfcc0e55a24dec6712df7fd9a58a4db8a22.zip jimtcl-ad4cedfcc0e55a24dec6712df7fd9a58a4db8a22.tar.gz jimtcl-ad4cedfcc0e55a24dec6712df7fd9a58a4db8a22.tar.bz2 | |
More tcltest compatibility
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/testing.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/testing.tcl b/tests/testing.tcl index 6295e2b..c5e311d 100644 --- a/tests/testing.tcl +++ b/tests/testing.tcl @@ -72,6 +72,11 @@ proc makeFile {contents name} { set f [open $name w] puts $f $contents close $f + return $name +} + +proc removeFile {name} { + file delete $name } proc script_source {script} { |