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
|
use lib 't', 'lib';
use strict;
use warnings;
use Test::More tests => 10;
use IO::All;
use IO_All_Test;
# Print name and first line of all files in a directory
my $dir = io('t/mydir');
ok($dir->is_dir);
my @results;
while (my $io = $dir->next) {
if ($io->is_file) {
push @results, $io->name . ' - ' . $io->getline;
}
}
for my $line (sort @results) {
is($line, flip_slash scalar <DATA>);
}
# Print name of all files recursively
is("$_\n", flip_slash scalar <DATA>)
for sort {$a->name cmp $b->name}
grep {! /CVS|\.svn/} io('t/mydir')->all_files(0);
__END__
t/mydir/file1 - file1 is fun
t/mydir/file2 - file2 is woohoo
t/mydir/file3 - file3 is whee
t/mydir/dir1/dira/dirx/file1
t/mydir/dir1/file1
t/mydir/dir2/file1
t/mydir/file1
t/mydir/file2
t/mydir/file3
|
