--- t/fs.t 2007/07/09 15:41:01 18 +++ t/fs.t 2007/07/09 22:44:20 25 @@ -4,7 +4,7 @@ my $debug = shift @ARGV; -use Test::More tests => 727; +use Test::More tests => 744; use File::Slurp; use IO::File; @@ -164,6 +164,16 @@ ok( unlink("$to/n"), "$to/n unlink" ); ok( ! -e "$to/n", "$to/n gone" ); + { + ok( my $fh1 = IO::File->new(">> $to/h"), "open $to/h" ); + ok( print($fh1 "foobar"), "print" ); + ok( unlink("$to/h"), 'create .fuse_hidden' ); + ok( ! -e "$to/h", "$to/h gone" ); + dump_debug 'hidden'; + ok( print($fh1 "foobar"), "print to hidden" ); + ok( close($fh1), "close $to/h" ); + diag $!; + } } multiple_rw;