From 353d40ca247124a38553d010ce04a5974937b4e9 Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Thu, 8 Nov 2001 10:49:44 +0000
Subject: [PATCH] subinterp tests
---
tests/vfs.test | 16 +++++++++++++++-
1 file changed, 15 insertions(+), 1 deletion(-)
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}\
--
2.23.0