From 2d27fe722395eba9094d07a00f69110771e7c269 Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Tue, 28 Jan 2003 12:45:35 +0000 Subject: [PATCH] tests --- library/pkgIndex.tcl | 6 +++++- tests/vfsArchive.test | 4 ++-- tests/vfsFtp.test | 6 +----- tests/vfsUrl.test | 6 +----- tests/vfsZip.test | 1 + win/makefile.vc | 3 +++ 6 files changed, 13 insertions(+), 13 deletions(-) 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) -- 2.23.0