tests

diff --git a/library/pkgIndex.tcl b/library/pkgIndex.tcl
index 66a25c4d7edfdcbdb13483cb9e253a7adbdabc04..d046d4567c67accabdf5e7c810ad6b86e03b33b3 100644 (file)
--- 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 94f8c6c1d2b40d31d38d6b39b6da9963a1ac2d70..b2fa9a7729263c39f18b6d183e1ccc6b2d78231b 100644 (file)
--- 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 b26414192fdd56efad1c6806505f9606e631e831..92df8f97bff36a152ddb70bafa051d4fab2c14ec 100644 (file)
--- 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 6e048682d04b0029810558dcd7df9e99982c7328..3af3b756763308b82f6adef30d629134a0ce2ecb 100644 (file)
--- 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 ff3ed8f8a64e2668a136f65cf358032b96d0770e..c324d2e770b452b26e05747ffaee2c62d00426c8 100644 (file)
--- 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 960094780a63f4249cf908fc557b679fb3dd98cb..97f67ab9e372dc85e349a688af782a0827b0c820 100644 (file)
--- 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)