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
|
use strict;
use Test::Builder::Tester;
use Test::More 0.95;
use Test::File;
=pod
max_file non_zero_file not_readable readable zero_file
executable min_file not_executable not_writeable writeable
=cut
require "t/setup_common";
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 privileges", 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 privileges", 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();
}
done_testing();
|
