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
|
use lib 't', 'lib';
use strict;
use warnings;
use Test::More tests => 30;
use IO::All;
use IO_All_Test;
my $expected1 = 't/mydir/dir1;t/mydir/dir2;t/mydir/file1;t/mydir/file2;t/mydir/file3';
my $expected2 = 't/mydir/dir1;t/mydir/dir1/dira;t/mydir/dir1/file1;t/mydir/dir2;t/mydir/dir2/file1;t/mydir/file1;t/mydir/file2;t/mydir/file3';
my $expected3 = 't/mydir/dir1;t/mydir/dir1/dira;t/mydir/dir1/dira/dirx;t/mydir/dir1/file1;t/mydir/dir2;t/mydir/dir2/file1;t/mydir/file1;t/mydir/file2;t/mydir/file3';
my $expected4 = 't/mydir/dir1;t/mydir/dir1/dira;t/mydir/dir1/dira/dirx;t/mydir/dir1/dira/dirx/file1;t/mydir/dir1/file1;t/mydir/dir2;t/mydir/dir2/file1;t/mydir/file1;t/mydir/file2;t/mydir/file3';
my $expected_files1 = 't/mydir/file1;t/mydir/file2;t/mydir/file3';
my $expected_files2 = 't/mydir/dir1/file1;t/mydir/dir2/file1;t/mydir/file1;t/mydir/file2;t/mydir/file3';
my $expected_files4 = 't/mydir/dir1/dira/dirx/file1;t/mydir/dir1/file1;t/mydir/dir2/file1;t/mydir/file1;t/mydir/file2;t/mydir/file3';
my $expected_dirs1 = 't/mydir/dir1;t/mydir/dir2';
my $expected_dirs2 = 't/mydir/dir1;t/mydir/dir1/dira;t/mydir/dir2';
my $expected_dirs3 = 't/mydir/dir1;t/mydir/dir1/dira;t/mydir/dir1/dira/dirx;t/mydir/dir2';
my $expected_filt1 = 't/mydir/dir1/dira;t/mydir/dir1/dira/dirx';
my $expected_filt2 = 't/mydir/dir1/dira/dirx';
sub prep { join ';', grep { not /CVS|\.svn/ } @_ }
is(prep(io('t/mydir')->all), f$expected1);
is(prep(io('t/mydir')->all(1)), f$expected1);
is(prep(io('t/mydir')->all(2)), f$expected2);
is(prep(io('t/mydir')->all(3)), f$expected3);
is(prep(io('t/mydir')->all(4)), f$expected4);
is(prep(io('t/mydir')->all(5)), f$expected4);
is(prep(io('t/mydir')->all(0)), f$expected4);
is(prep(io('t/mydir')->All), f$expected4);
is(prep(io('t/mydir')->deep->all), f$expected4);
is(prep(io('t/mydir')->all_files), f$expected_files1);
is(prep(io('t/mydir')->all_files(1)), f$expected_files1);
is(prep(io('t/mydir')->all_files(2)), f$expected_files2);
is(prep(io('t/mydir')->all_files(3)), f$expected_files2);
is(prep(io('t/mydir')->all_files(4)), f$expected_files4);
is(prep(io('t/mydir')->all_files(5)), f$expected_files4);
is(prep(io('t/mydir')->all_files(0)), f$expected_files4);
is(prep(io('t/mydir')->All_Files), f$expected_files4);
is(prep(io('t/mydir')->deep->all_files), f$expected_files4);
is(prep(io('t/mydir')->All_Files(2)), f$expected_files4);
is(prep(io('t/mydir')->all_dirs), f$expected_dirs1);
is(prep(io('t/mydir')->all_dirs(1)), f$expected_dirs1);
is(prep(io('t/mydir')->all_dirs(2)), f$expected_dirs2);
is(prep(io('t/mydir')->all_dirs(3)), f$expected_dirs3);
is(prep(io('t/mydir')->all_dirs(4)), f$expected_dirs3);
is(prep(io('t/mydir')->all_dirs(5)), f$expected_dirs3);
is(prep(io('t/mydir')->all_dirs(0)), f$expected_dirs3);
is(prep(io('t/mydir')->All_Dirs), f$expected_dirs3);
is(prep(io('t/mydir')->deep->all_dirs), f$expected_dirs3);
is(prep(io('t/mydir')->filter(sub {/dira/})->All_Dirs), f$expected_filt1);
is(prep(io('t/mydir')->filter(sub {/x/})->All_Dirs), f$expected_filt2);
|
