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
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
#!/usr/bin/perl
# Load testing for File::LocalizeNewlines
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More tests => 50;
use FileHandle ();
use File::Spec::Functions ':ALL';
use File::Slurp ();
use File::Remove 'clear';
use File::Find::Rule ();
use File::LocalizeNewlines ();
use constant FLN => 'File::LocalizeNewlines';
use constant FFR => 'File::Find::Rule';
# Create various test files
my $local_file = catfile( 't', 'data', 'local.txt' );
my $simple_dir = catfile( 't', 'data', 'simple' );
my $not_file = catfile( 't', 'data', 'simple', 'both.txt' );
my $not_file2 = catfile( 't', 'data', 'simple', 'both.pm' );
my $not_file3 = catfile( 't', 'data', 'file', 'file.txt' );
clear( $local_file, $not_file, $not_file2, $not_file3 );
File::Slurp::write_file( $local_file, "foo\nbar\n" );
File::Slurp::write_file( $not_file, "foo\015\012bar\015baz" );
File::Slurp::write_file( $not_file2, "foo\015\012bar\015baz" );
File::Slurp::write_file( $not_file3, "foo\015\012bar\015baz" );
is( length(File::Slurp::read_file( $not_file )), 12, 'both.txt is the right length' );
is( length(File::Slurp::read_file( $not_file2 )), 12, 'both.pm is the right length' );
is( length(File::Slurp::read_file( $not_file3 )), 12, 'file.txt is the right length' );
#####################################################################
# Constructor and Accessors
SCOPE: {
my $Object = FLN->new;
isa_ok( $Object, 'File::LocalizeNewlines' );
ok( ! exists $Object->{Find}, 'New object does not have a Find property' );
ok( ! exists $Object->{newline}, 'New object does not have a newline property' );
isa_ok( $Object->Find, 'File::Find::Rule' );
is( $Object->newline, "\n", '->newline returns the platform newline' );
}
SCOPE: {
my $Object = FLN->new( newline => 'foo' );
isa_ok( $Object, FLN );
ok( ! exists $Object->{Find}, 'New object does not have a Find property' );
ok( exists $Object->{newline}, 'New object has a newline property' );
isa_ok( $Object->Find, 'File::Find::Rule' );
is( $Object->newline, "foo", '->newline returns the custom value' );
}
SCOPE: {
my $rule = newFFR()->name('*.pm');
my $Object = FLN->new( filter => $rule );
isa_ok( $Object, FLN );
ok( exists $Object->{Find}, 'New object does not have a Find property' );
ok( ! exists $Object->{newline}, 'New object has a newline property' );
isa_ok( $Object->Find, 'File::Find::Rule' );
is( $Object->Find, $rule, 'Rule returned is the one we passed' );
is( $Object->newline, "\n", '->newline returns the platform value' );
}
SCOPE: {
my $rule = newFFR()->name('*.pm');
my $Object = FLN->new( newline => 'foo', filter => $rule );
isa_ok( $Object, FLN );
ok( exists $Object->{Find}, 'New object does not have a Find property' );
ok( exists $Object->{newline}, 'New object has a newline property' );
isa_ok( $Object->Find, 'File::Find::Rule' );
is( $Object->Find, $rule, 'Rule returned is the one we passed' );
is( $Object->newline, "foo", '->newline returns the custom value' );
}
#####################################################################
# Localisation Testing
SCOPE: {
my $Object = FLN->new;
isa_ok( $Object, FLN );
ok( $Object->localized( $local_file ), '->localized returns true for known-local file' );
ok( ! $Object->localized( $not_file ), '->localized returns true for known-local file' );
ok( FLN->localized( $local_file ), 'static->localized returns false for known-not-local file' );
ok( ! FLN->localized( $not_file ), 'static->localized returns false for known-not-local file' );
# FileHandle versions
my $local_handle = new FileHandle("< $local_file");
my $not_handle = new FileHandle("< $not_file");
ok( $Object->localized( $local_handle ), '->localized returns true for known-local file handle' );
ok( ! $Object->localized( $not_handle ), '->localized returns true for known-local file handle' );
$local_handle = new FileHandle("< $local_file");
$not_handle = new FileHandle("< $not_file");
ok( FLN->localized( $local_handle ), 'static->localized returns false for known-not-local file handle' );
ok( ! FLN->localized( $not_handle ), 'static->localized returns false for known-not-local file handle' );
}
#####################################################################
# Finding
SCOPE: {
my $Object = FLN->new;
isa_ok( $Object, FLN );
my @files = $Object->find( $simple_dir );
@files = sort grep { ! /ignore/ } grep { ! /CVS/ } @files; # For when building
is_deeply( \@files, [qw{both.pm both.txt}], '->find returns expected for normal search' );
}
SCOPE: {
my @files = FLN->find( $simple_dir );
@files = sort grep { ! /ignore/ } grep { ! /CVS/ } @files; # For when building
is_deeply( \@files, [qw{both.pm both.txt}], '->find returns expected for normal search' );
}
SCOPE: {
my $rule = newFFR()->name('*.pm');
my $Object = FLN->new( filter => $rule );
isa_ok( $Object, FLN );
my @files = $Object->find( $simple_dir );
is_deeply( \@files, [qw{both.pm}], '->find returns expected for filtered search' );
}
#####################################################################
# Localisation
SCOPE: {
my $Object = FLN->new( filter => newFFR() );
isa_ok( $Object, FLN );
is( $Object->localize( $simple_dir ), 2, '->localize returns the correct number of files' );
my $length1 = length(File::Slurp::read_file($not_file));
my $length2 = length(File::Slurp::read_file($not_file2));
ok( ($length1 == 11 or $length1 == 13), 'length for both.txt is as expected' );
ok( ($length2 == 11 or $length2 == 13), 'length for both.pm is as expected' );
}
SCOPE: {
my $Object = FLN->new( filter => newFFR()->name('*.pm'), newline => 'foo' );
isa_ok( $Object, FLN );
is( $Object->localize( $simple_dir ), 1, '->localize returns the correct number of files' );
my $length1 = length(File::Slurp::read_file($not_file));
my $content2 = File::Slurp::read_file($not_file2);
ok( ($length1 == 11 or $length1 == 13), 'length for both.txt is as expected' );
is( $content2, 'foofoobarfoobaz', 'Content of both.pm modified as expected' );
}
SCOPE: {
my $Object = FLN->new();
isa_ok( $Object, FLN );
is( $Object->localize( $not_file3 ), 1, '->localize returns one file' );
my $length = length(File::Slurp::read_file($not_file3));
ok( ($length == 11 or $length == 13), 'length for file.txt is as expected' );
}
exit(0);
# Support Functions
sub newFFR {
FFR->or(
FFR->directory->name('CVS')->prune->discard,
FFR->new
);
}
|
