1 ##!/usr/local/bin/perl -w
6 use File::Slurp qw( :all ) ;
10 my $file_name = 'test_file' ;
11 my $dir_name = 'test_dir' ;
16 name => 'read_file open error',
18 args => [ $file_name ],
24 name => 'write_file open error',
26 args => [ "$dir_name/$file_name", '' ],
29 chmod( 0555, $dir_name ) ;
34 chmod( 0777, $dir_name ) ;
42 name => 'atomic rename error',
44 args => [ "$dir_name/$file_name", { atomic => 1 }, '' ],
47 write_file( "$dir_name/$file_name.$$", '' ) ;
48 chmod( 0555, $dir_name ) ;
53 chmod( 0777, $dir_name ) ;
54 unlink( "$dir_name/$file_name.$$" ) ;
62 name => 'read_dir open error',
64 args => [ $dir_name ],