1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
#!/usr/bin/perl -w
use strict;
use warnings;
use Test2::Bundle::Extended;
use Test2::Tools::Explain;
use Test2::Plugin::NoWarnings;
use Errno qw/ENOENT EISDIR EEXIST ENOTDIR/;
use File::Temp qw/tempfile tempdir/;
my $temp_dir_name = tempdir( CLEANUP => 1 );
CORE::rmdir $temp_dir_name;
use Test::MockFile qw< nostrict >;
# Proves umask works in this test.
umask 022;
subtest "basic rmdir" => sub {
$! = 0;
is( CORE::mkdir($temp_dir_name), 1, "REAL mkdir when dir is missing." );
is( $! + 0, 0, ' - $! is unset.' ) or diag "$!";
is( CORE::rmdir $temp_dir_name, 1, "REAL rmdir when dir is there" );
my $mock = Test::MockFile->dir($temp_dir_name);
is( mkdir($temp_dir_name), 1, "MOCK mkdir when dir is missing." );
is( $! + 0, 0, ' - $! is unset.' ) or diag "$!";
is( $mock->permissions, 0755, "Perms are 0755" );
ok( -d $temp_dir_name, "-d" );
is( $! + 0, 0, ' - $! is unset.' ) or diag "$!";
is( rmdir $temp_dir_name, 1, "MOCK rmdir when dir is there" );
is( $! + 0, 0, ' - $! is unset.' ) or diag "$!";
ok( !-d $temp_dir_name, "Directory is not there with -d" );
ok( !-e $temp_dir_name, "Directory is not there with -e" );
};
subtest "undef rmdir" => sub {
my $returns;
local $_;
like( warning { $returns = CORE::rmdir() }, qr/^Use of uninitialized value \$_ in rmdir at.+\n$/, "REAL mkdir when nothing is passed as the directory." );
is( $returns, 0, " - returns 0" );
like( warning { $returns = CORE::rmdir(undef) }, qr/^Use of uninitialized value in rmdir at.+\n$/, "REAL mkdir when undef is passed as the directory." );
is( $returns, 0, " - returns 0" );
local $_;
like( warning { $returns = rmdir(undef) }, qr/^Use of uninitialized value in rmdir at.+\n$/, "REAL mkdir when undef is passed as the directory." );
is( $returns, 0, " - returns 0" );
};
subtest "rmdir existing file" => sub {
CORE::mkdir $temp_dir_name;
my $temp_file = "$temp_dir_name/a";
touch($temp_file);
$! = 0;
is( rmdir($temp_file), 0, "real rmdir on existing file." );
is( $! + 0, ENOTDIR, ' - $! is ENOTDIR.' ) or diag "$!";
CORE::unlink $temp_file;
my $m = Test::MockFile->file( '/abc', '' );
$! = 0;
is( rmdir('/abc'), 0, "mock rmdir on existing file." );
is( $! + 0, ENOTDIR, ' - $! is ENOTDIR.' ) or diag "$!";
};
subtest "rmdir existing symlink" => sub {
CORE::mkdir $temp_dir_name;
my $temp_file = "$temp_dir_name/a";
CORE::symlink( "$temp_dir_name/ab", $temp_file );
$! = 0;
is( rmdir($temp_file), 0, "real rmdir on existing file." );
is( $! + 0, ENOTDIR, ' - $! is ENOTDIR.' ) or diag "$!";
CORE::unlink $temp_file;
my $m = Test::MockFile->symlink( '/someotherpath', '/abc' );
$! = 0;
is( rmdir('/abc'), 0, "mock rmdir on existing file." );
is( $! + 0, ENOTDIR, ' - $! is ENOTDIR.' ) or diag "$!";
};
subtest "rmdir when nothing is there." => sub {
CORE::mkdir $temp_dir_name;
my $temp_dir = "$temp_dir_name/a";
$! = 0;
is( rmdir($temp_dir), 0, "real rmdir on existing file." );
is( $! + 0, ENOENT, ' - $! is ENOENT.' ) or diag "$!";
my $m = Test::MockFile->dir('/abc');
$! = 0;
is( rmdir('/abc'), 0, "mock rmdir on existing file." );
is( $! + 0, ENOENT, ' - $! is ENOENT.' ) or diag "$!";
};
subtest(
'rmdir non-empty directory fails' => sub {
my $foo = Test::MockFile->dir('/foo');
my $bar = Test::MockFile->file( '/foo/bar', 'content' );
$! = 0;
ok( -e ('/foo/bar'), 'File exists' );
ok( -d ('/foo'), 'Directory exists' );
is( $! + 0, 0, 'No errors yet' );
ok( !rmdir('/foo'), 'rmdir failed because directory has files' );
is( $! + 0, 39, '$! is set to correct perror (39)' );
}
);
done_testing();
sub touch {
my $path = shift or die;
CORE::open( my $fh, '>>', $path ) or die;
print $fh '';
close $fh;
return 1;
}
|
