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
|
#!perl -T
use strict;
use warnings;
use Test::More tests => 22;
use lib 't';
use Util;
use File::Copy ();
use File::Temp;
use File::Next;
# use Test::Differences;
# eq_or_diff \@got, [qw( a b c )], "testing arrays";
my @expected = qw(
t/00-load.t
t/api.t
t/basic.t
t/dirs.t
t/dot.t
t/everything.t
t/follow.t
t/from_file.t
t/methods.t
t/named-pipe.t
t/parms.t
t/pod-coverage.t
t/pod.t
t/sort.t
t/swamp/perl-test.t
t/zero.t
);
FROM_FILESYSTEM_FILE: {
my $iter = File::Next::from_file( 't/filelist.txt' );
isa_ok( $iter, 'CODE' );
my @actual = slurp( $iter );
sets_match( \@actual, \@expected, 'FROM_FILESYSTEM_FILE' );
}
FROM_NUL_FILE: {
my $iter = File::Next::from_file( { nul_separated => 1 }, 't/filelist-nul.txt' );
isa_ok( $iter, 'CODE' );
my @actual = slurp( $iter );
sets_match( \@actual, \@expected, 'FROM_NUL_FILE' );
}
FROM_UNSPECIFIED_FILE: {
my $iter;
my $rc = eval {
$iter = File::Next::from_file();
};
like( $@, qr/Must pass a filename to from_file/, 'Proper error message' );
ok( !defined($iter), 'Iterator should be null' );
ok( !defined($rc), 'Eval should fail' );
}
FROM_MISSING_FILE: {
my $iter;
my $rc = eval {
$iter = File::Next::from_file( 'flargle-bargle.txt' );
};
like( $@, qr/\QUnable to open flargle-bargle.txt/, 'Proper error message' );
ok( !defined($iter), 'Iterator should be null' );
ok( !defined($rc), 'Eval should fail' );
}
FROM_OK_FILE_BUT_MISSING: {
my $warn_called;
local $SIG{__WARN__} = sub { $warn_called = 1 };
my $tempfile = File::Temp->new(TEMPLATE => 'XXXXXXXXXX');
File::Copy::copy('t/filelist.txt', $tempfile);
print {$tempfile} "t/non-existent-file.txt\n";
$tempfile->close;
my $iter = File::Next::from_file( $tempfile->filename );
isa_ok( $iter, 'CODE' );
my @actual = slurp( $iter );
sets_match( \@actual, \@expected, 'FROM_FILESYSTEM_FILE' );
ok($warn_called, 'CORE::warn() should be called if a warning occurs and no warning_handler is set');
}
FROM_OK_FILE_BUT_MISSING_WITH_HANDLER: {
my $warn_called;
local $SIG{__WARN__} = sub { $warn_called = 1 };
my $tempfile = File::Temp->new(TEMPLATE => 'XXXXXXXXXX');
File::Copy::copy('t/filelist.txt', $tempfile);
print {$tempfile} "t/non-existent-file.txt\n";
$tempfile->close;
my $warning_handler_called;
my $iter = File::Next::from_file({
warning_handler => sub { $warning_handler_called = 1 },
}, $tempfile->filename);
isa_ok( $iter, 'CODE' );
my @actual = slurp( $iter );
sets_match( \@actual, \@expected, 'FROM_FILESYSTEM_FILE' );
ok(!$warn_called, 'CORE::warn() should be not called if a warning occurs but a warning_handler is set');
ok($warning_handler_called, 'The set warning handler should be called if a warning occurs');
}
FROM_MISSING_FILE_WITH_ERROR_HANDLER: {
my $error_handler_message;
my $error_handler = sub { $error_handler_message = shift; };
my $iter = File::Next::from_file( { error_handler => $error_handler }, 'flargle-bargle.txt' );
ok( !defined($iter), 'Iterator should be null' );
like( $error_handler_message, qr/\QUnable to open flargle-bargle.txt/, "Proper error message" );
}
FROM_OK_FILE_BUT_MISSING_WITH_WARNING_HANDLER: {
my $warning_handler_message;
my $warning_handler = sub { $warning_handler_message = shift; };
my $tempfile = File::Temp->new(TEMPLATE => 'XXXXXXXXXX');
File::Copy::copy('t/filelist.txt', $tempfile);
print {$tempfile} "t/non-existent-file.txt\n";
$tempfile->close;
my $iter = File::Next::from_file( { warning_handler => $warning_handler }, $tempfile->filename );
isa_ok( $iter, 'CODE' );
my @actual = slurp( $iter );
sets_match( \@actual, \@expected, 'FROM_FILESYSTEM_FILE' );
like( $warning_handler_message, qr/\Qt\/non-existent-file.txt/, "Proper warning message" );
}
|
