4 |
|
|
5 |
my $debug = shift @ARGV; |
my $debug = shift @ARGV; |
6 |
|
|
7 |
use Test::More tests => 727; |
use Test::More tests => 744; |
8 |
use File::Slurp; |
use File::Slurp; |
9 |
use IO::File; |
use IO::File; |
10 |
|
|
164 |
ok( unlink("$to/n"), "$to/n unlink" ); |
ok( unlink("$to/n"), "$to/n unlink" ); |
165 |
ok( ! -e "$to/n", "$to/n gone" ); |
ok( ! -e "$to/n", "$to/n gone" ); |
166 |
|
|
167 |
|
{ |
168 |
|
ok( my $fh1 = IO::File->new(">> $to/h"), "open $to/h" ); |
169 |
|
ok( print($fh1 "foobar"), "print" ); |
170 |
|
ok( unlink("$to/h"), 'create .fuse_hidden' ); |
171 |
|
ok( ! -e "$to/h", "$to/h gone" ); |
172 |
|
dump_debug 'hidden'; |
173 |
|
ok( print($fh1 "foobar"), "print to hidden" ); |
174 |
|
ok( close($fh1), "close $to/h" ); |
175 |
|
diag $!; |
176 |
|
} |
177 |
} |
} |
178 |
|
|
179 |
multiple_rw; |
multiple_rw; |