tclvfs cvs head built against tcl cvs head for 8.5:
vfsTar.test
==== vfsTar-1.1 mount empty tar archive FAILED
==== Contents of test case:
set f [file join [temporaryDirectory] vfstar.tar]
close [open $f w]
set res [catch {vfs::tar::Mount $f localmount} fd]
lappend res [catch {file delete $f}]
lappend res [catch {vfs::tar::Unmount $fd localmount} err]
set res
---- Result was:
0 0 0
---- Result should have been (exact matching):
0 1 0
==== vfsTar-1.1 FAILED
Looks like the test for the file delete was expecting a failure which didn't occur - does that sound right?