From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 28 Jan 2003 12:45:35 +0000 (+0000)
Subject: tests
X-Git-Tag: vfs-1-2~12
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=2d27fe722395eba9094d07a00f69110771e7c269;p=tclvfs

tests
---

diff --git a/library/pkgIndex.tcl b/library/pkgIndex.tcl
index 66a25c4..d046d45 100644
--- a/library/pkgIndex.tcl
+++ b/library/pkgIndex.tcl
@@ -18,7 +18,11 @@ namespace eval ::vfs {}
 variable vfs::dll
 
 if {$::tcl_platform(platform) eq "unix"} {
-    set dll libvfs1.0
+    if {[info exists ::tcl_platform(debug)]} {
+	set dll libvfs1.0g
+    } else {
+	set dll libvfs1.0
+    }
 } elseif {[info exists ::tcl_platform(debug)]} {
     set dll vfs10d
 } else {
diff --git a/tests/vfsArchive.test b/tests/vfsArchive.test
index 94f8c6c..b2fa9a7 100644
--- a/tests/vfsArchive.test
+++ b/tests/vfsArchive.test
@@ -28,7 +28,7 @@ proc makeAndMountZipArchive {} {
     puts stdout "Done zipping"
     cd [file dirname [info script]]
     
-    package require vfs
+    package require vfs::zip
     set mount [vfs::zip::Mount tests.zip tests.zip]
     cd tests.zip
     return [list vfs::zip::Unmount $mount tests.zip]
@@ -42,7 +42,7 @@ proc makeAndMountMk4Archive {} {
     puts stdout "Done making mk4 archive"
     cd [file dirname [info script]]
     
-    package require vfs
+    package require vfs::mk4
     set mount [vfs::mk4::Mount tests.bin tests.bin]
     cd tests.bin
     return [list vfs::mk4::Unmount $mount tests.bin]
diff --git a/tests/vfsFtp.test b/tests/vfsFtp.test
index b264141..92df8f9 100644
--- a/tests/vfsFtp.test
+++ b/tests/vfsFtp.test
@@ -15,11 +15,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
     namespace import ::tcltest::*
 }
 
-package require vfs
-if {![auto_load ::vfs::ftp::Mount]} {
-    lappend auto_path [file join [file dirname \
-      [file dirname [file normalize [info script]]]] library]
-}
+package require vfs::ftp
 
 puts stdout "These tests require an internet connection, and might"
 puts stdout "take a long time to complete."
diff --git a/tests/vfsUrl.test b/tests/vfsUrl.test
index 6e04868..3af3b75 100644
--- a/tests/vfsUrl.test
+++ b/tests/vfsUrl.test
@@ -15,11 +15,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
     namespace import ::tcltest::*
 }
 
-package require vfs
-if {![auto_load ::vfs::urltype::Mount]} {
-    lappend auto_path [file join [file dirname \
-      [file dirname [file normalize [info script]]]] library]
-}
+package require vfs::urltype
 
 puts stdout "These tests require an internet connection, and might"
 puts stdout "take a long time to complete."
diff --git a/tests/vfsZip.test b/tests/vfsZip.test
index ff3ed8f..c324d2e 100644
--- a/tests/vfsZip.test
+++ b/tests/vfsZip.test
@@ -15,4 +15,5 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
     namespace import ::tcltest::*
 }
 
+package require vfs::zip
 
diff --git a/win/makefile.vc b/win/makefile.vc
index 9600947..97f67ab 100644
--- a/win/makefile.vc
+++ b/win/makefile.vc
@@ -156,6 +156,9 @@ DLLOBJS = \
 
 all: setup $(PROJECT).dll
 
+test:
+	tclsh84 $(ROOT)/tests/all.tcl $(TESTFLAGS)
+
 setup:
 	-@md $(WINDIR)