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
|
BEGIN { chdir 't' if -d 't' }
use Test::More 'no_plan';
use strict;
use lib '../lib';
my $Class = 'Archive::Tar';
my $FClass = 'Archive::Tar::File';
my $File = 'src/long/bar.tar';
my @Expect = (
qr|^c$|,
qr|^d$|,
qr|^directory/$|,
qr|^directory/really.*name/$|,
qr|^directory/.*/myfile$|,
);
use_ok( $Class );
### crazy ref to special case 'all'
for my $index ( \0, 0 .. $#Expect ) {
my %opts = ();
my @expect = ();
my $dotest = sub {
my $desc = shift;
my $next = $Class->iter( $File, 0, \%opts );
my $pp_opts = join " => ", %opts;
ok( $next, "Iterator created from $File ($pp_opts $desc)" );
isa_ok( $next, "CODE", " Iterator $desc" );
my @names;
while( my $f = $next->() ) {
ok( $f, " File object retrieved $desc" );
isa_ok( $f, $FClass, " Object $desc" );
push @names, $f->name;
}
is( scalar(@names), scalar(@expect),
" Found correct number of files $desc" );
my $i = 0;
for my $name ( @names ) {
ok( 1, " Inspecting '$name' $desc" );
like($name, $expect[$i]," Matches $Expect[$i] $desc" );
$i++;
}
};
### do a full test vs individual filters
if( not ref $index ) {
my $regex = $Expect[$index];
@expect = ($regex);
%opts = ( filter => $regex );
$dotest->("filter $regex");
%opts = ( filter_cb => sub { my ($entry) = @_; $entry->name() =~ /$regex/ } );
$dotest->("filter_cb $regex");
} else {
@expect = @Expect;
$dotest->("all");
}
}
|
