cleanup
authorVince Darley <vincentdarley@sourceforge.net>
Thu, 16 May 2002 16:43:48 +0000 (16:43 +0000)
committerVince Darley <vincentdarley@sourceforge.net>
Thu, 16 May 2002 16:43:48 +0000 (16:43 +0000)
runZippedTests.tcl [deleted file]

diff --git a/runZippedTests.tcl b/runZippedTests.tcl
deleted file mode 100644 (file)
index a7c9056..0000000
+++ /dev/null
@@ -1,39 +0,0 @@
-catch {
-    wm withdraw .
-    console show
-}
-
-catch {file delete tests.zip}
-
-puts stdout "Zipping tests" ; update
-exec zip -q -9 tests.zip tests/*
-puts stdout "Done zipping"
-
-cd [file dirname [info script]]
-
-if {[catch {package require vfs}]} {
-    cd win
-    load vfs10d.dll
-    cd ..
-    lappend auto_path [file join [pwd] library]
-}
-
-lappend auto_path "C:/Program Files/Tcl/lib"
-package require Trf
-package require Memchan
-
-set mount [vfs::zip::Mount tests.zip tests.zip]
-puts "Zip mount is $mount"
-update
-if {[catch {
-    cd tests.zip
-    cd tests
-    #source cmdAH.test
-    source all.tcl
-} err]} {
-    puts stdout "Got error $err"
-}
-puts "Tests complete"
-#vfs::zip::Unmount $mount
-
-#exit