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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
use strict;
use Test::Builder::Tester;
use Test::More tests => 26; # includes those in t/setup_common
use Test::File;
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 - zero_file is empty' );
file_empty_ok( 'zero_file' );
test_test();
test_out( 'ok 1 - min_file is not empty' );
file_not_empty_ok( 'min_file' );
test_test();
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Things that work
{
my $file = 'min_file';
file_exists_ok( $file );
my $actual_size = -s $file;
my $under_size = $actual_size - 3;
my $over_size = $actual_size + 3;
cmp_ok( $actual_size, '>', 10, "$file should be at least 10 bytes" );
test_out( "ok 1 - $file has right size" );
file_size_ok( $file, $actual_size );
test_test();
test_out( "ok 1 - $file is under $over_size bytes" );
file_max_size_ok( $file, $over_size );
test_test();
test_out( "ok 1 - $file is over $under_size bytes" );
file_min_size_ok( $file, $under_size );
test_test();
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Things that don't work (wrong size)
{
my $file = 'min_file';
file_exists_ok( $file );
my $actual_size = -s $file;
my $under_size = $actual_size - 3;
my $over_size = $actual_size + 3;
cmp_ok( $actual_size, '>', 10, "$file should be at least 10 bytes" );
test_out( "not ok 1 - $file has right size" );
test_diag(
"File [$file] has actual size [$actual_size] not [$under_size]!\n" .
"# Failed test '$file has right size'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_size_ok( $file, $under_size );
test_test();
test_out( "not ok 1 - $file is under $under_size bytes" );
test_diag(
"File [$file] has actual size [$actual_size] greater than [$under_size]!\n" .
"# Failed test '$file is under $under_size bytes'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_max_size_ok( $file, $under_size );
test_test();
test_out( "not ok 1 - $file is over $over_size bytes" );
test_diag(
"File [$file] has actual size [$actual_size] less than [$over_size]!\n" .
"# Failed test '$file is over $over_size bytes'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_min_size_ok( $file, $over_size );
test_test();
test_out( "not ok 1 - $file is empty" );
test_diag(
"File [$file] exists with non-zero size!\n" .
"# Failed test '$file is empty'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_empty_ok( $file );
test_test();
test_out( "not ok 1 - zero_file is not empty" );
test_diag(
"File [zero_file] exists with zero size!\n" .
"# Failed test 'zero_file is not empty'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_not_empty_ok( 'zero_file' );
test_test();
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# Things that don't work (missing file)
{
my $not_there = 'not_there';
ok( ! -e $not_there, "File [$not_there] doesn't exist (good)" );
test_out( "not ok 1 - $not_there has right size" );
test_diag(
"File [$not_there] does not exist!\n" .
"# Failed test '$not_there has right size'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_size_ok( $not_there, 53 );
test_test();
test_out( "not ok 1 - $not_there is under 54 bytes" );
test_diag(
"File [$not_there] does not exist!\n" .
"# Failed test '$not_there is under 54 bytes'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_max_size_ok( $not_there, 54 );
test_test();
test_out( "not ok 1 - $not_there is over 50 bytes" );
test_diag(
"File [$not_there] does not exist!\n" .
"# Failed test '$not_there is over 50 bytes'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_min_size_ok( $not_there, 50 );
test_test();
test_out( "not ok 1 - $not_there is empty" );
test_diag(
"File [$not_there] does not exist!\n" .
"# Failed test '$not_there is empty'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_empty_ok( $not_there );
test_test();
test_out( "not ok 1 - $not_there is not empty" );
test_diag(
"File [$not_there] does not exist!\n" .
"# Failed test '$not_there is not empty'\n" .
"# at $0 line " . line_num(+5) . "."
);
file_not_empty_ok( $not_there );
test_test();
}
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
chdir '..' or print "bail out! Could not change directories: $!";
END {
unlink glob( "test_files/*" );
rmdir "test_files";
}
|
