From: Vince Darley <vincentdarley@sourceforge.net>
Date: Thu, 16 May 2002 16:43:48 +0000 (+0000)
Subject: cleanup
X-Git-Tag: vfs-1-2~40
X-Git-Url: http://www.privyetmir.co.uk/gitweb?a=commitdiff_plain;h=64405015fb2ea6ac43652691ebc27d6d4c2bd46b;p=tclvfs

cleanup
---

diff --git a/runZippedTests.tcl b/runZippedTests.tcl
deleted file mode 100644
index a7c9056..0000000
--- a/runZippedTests.tcl
+++ /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