test suite overhaul

diff --git a/tests/vfsArchive.test b/tests/vfsArchive.test
index 338d0710d1e41f3d99a1a16fd2ccb3962fa63c07..f8090e99bda8bd410b17d39219ac447cd44ca9e6 100644 (file)
--- a/tests/vfsArchive.test
+++ b/tests/vfsArchive.test
@@ -30,6 +30,8 @@ proc makeAndMountZipArchive {} {
     
     package require vfs::zip
     set mount [vfs::zip::Mount tests.zip tests.zip]
+    #puts "[pwd] ; $::auto_path, [glob *]"
+    pwd
     cd tests.zip
     return [list vfs::zip::Unmount $mount tests.zip]
 }