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
131
132
133
134
135
136
|
use strict;
use Test::Builder::Tester;
use Test::More tests => 20; # includes those in t/setup_common
use Test::File;
=pod
max_file non_zero_file not_readable readable zero_file
executable min_file not_executable not_writeable writeable
=cut
my $test_directory = 'test_files';
SKIP: {
skip "setup already done", 5 if -d $test_directory;
require "t/setup_common";
};
chdir $test_directory or print "bail out! Could not change directories: $!";
test_out( 'ok 1 - readable exists' );
file_exists_ok( 'readable' );
test_test();
test_out( 'ok 1 - fooey does not exist' );
file_not_exists_ok( 'fooey' );
test_test();
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
test_out( 'ok 1 - readable is readable' );
file_readable_ok( 'readable' );
test_test();
SKIP: {
skip "Superuser has special priveleges", 1, if( $> == 0 or $< == 0 );
test_out( 'ok 1 - writeable is not readable' );
file_not_readable_ok( 'writeable' );
test_test();
};
test_out( 'ok 1 - writeable is writeable' );
file_writeable_ok( 'writeable' );
test_test();
SKIP: {
skip "Superuser has special priveleges", 1, if( $> == 0 or $< == 0 );
test_out( 'ok 1 - readable is not writeable' );
file_not_writeable_ok( 'readable' );
test_test();
};
{
my $s = Test::File::_win32()
? "# skip file_executable_ok doesn't work on Windows!"
: "- executable is executable";
test_out( "ok 1 $s" );
file_executable_ok( 'executable' );
test_test();
}
{
my $s = Test::File::_win32()
? "# skip file_not_executable_ok doesn't work on Windows!"
: "- not_executable is not executable";
test_out( "ok 1 $s" );
file_not_executable_ok( 'not_executable' );
test_test();
}
{
my $s = Test::File::_win32()
? "# skip file_mode_is doesn't work on Windows!"
: "- executable mode is 0100";
test_out( "ok 1 $s" );
file_mode_is( 'executable', 0100 );
test_test();
}
{
my $s = Test::File::_win32()
? "# skip file_mode_isnt doesn't work on Windows!"
: "- executable mode is not 0200";
test_out( "ok 1 $s" );
file_mode_isnt( 'executable', 0200 );
test_test();
}
{
my $s = Test::File::_win32()
? "# skip file_mode_is doesn't work on Windows!"
: "- readable mode is 0400";
test_out( "ok 1 $s" );
file_mode_is( 'readable', 0400 );
test_test();
}
{
my $s = Test::File::_win32()
? "# skip file_mode_isnt doesn't work on Windows!"
: "- readable mode is not 0200";
test_out( "ok 1 $s" );
file_mode_isnt( 'readable', 0200 );
test_test();
}
{
my $s = Test::File::_win32()
? "# skip file_mode_is doesn't work on Windows!"
: "- writeable mode is 0200";
test_out( "ok 1 $s" );
file_mode_is( 'writeable', 0200 );
test_test();
}
{
my $s = Test::File::_win32()
? "# skip file_mode_isnt doesn't work on Windows!"
: "- writeable mode is not 0100";
test_out( "ok 1 $s" );
file_mode_isnt( 'writeable', 0100 );
test_test();
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
chdir '..' or print "bail out! Could not change directories: $!";
END {
unlink glob( "test_files/*" );
rmdir "test_files";
}
|
