From: Vince Darley <vincentdarley@sourceforge.net>
Date: Thu, 8 Nov 2001 10:49:44 +0000 (+0000)
Subject: subinterp tests
X-Git-Tag: vfs-1-2~83
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=353d40ca247124a38553d010ce04a5974937b4e9;p=tclvfs

subinterp tests
---

diff --git a/tests/vfs.test b/tests/vfs.test
index c1df56c..5459725 100644
--- a/tests/vfs.test
+++ b/tests/vfs.test
@@ -32,7 +32,7 @@ test vfs-1.1 {mount unmount} {
 
 vfs::filesystem mount foo bar
 
-test vfs-2.1 {mount unmount} {
+test vfs-2.1 {mount unmount in sub interp} {
     catch {interp delete a}
     catch {unset res}
     interp create a
@@ -40,6 +40,20 @@ test vfs-2.1 {mount unmount} {
     a eval {vfs::filesystem mount foo2 bar2}
     lappend res [vfs::filesystem info]
     a eval {vfs::filesystem unmount foo2}
+    interp delete a
+    lappend res [vfs::filesystem info]
+    set res
+} {{C:/Tcl-source/tclvfs/tests/foo2 C:/Tcl-source/tclvfs/tests/foo}\
+  C:/Tcl-source/tclvfs/tests/foo}
+
+test vfs-2.2 {mount, delete sub interp} {
+    catch {interp delete a}
+    catch {unset res}
+    interp create a
+    a eval {package require vfs}
+    a eval {vfs::filesystem mount foo2 bar2}
+    lappend res [vfs::filesystem info]
+    interp delete a
     lappend res [vfs::filesystem info]
     set res
 } {{C:/Tcl-source/tclvfs/tests/foo2 C:/Tcl-source/tclvfs/tests/foo}\