From 353d40ca247124a38553d010ce04a5974937b4e9 Mon Sep 17 00:00:00 2001 From: Vince Darley 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