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
|
#!/usr/bin/perl
use Test::More tests => 7;
require_ok('Test::HasVersion');
# alias to have a short name
*all_pm_files = \&Test::HasVersion::all_pm_files;
# and here we test &all_pm_files
{
my @pm_files = all_pm_files();
is_deeply( \@pm_files, [qw(HasVersion.pm)] );
}
{
ok( chdir "t/eg", "cd t/eg" );
my @pm_files = all_pm_files();
is_deeply( \@pm_files, [qw(A.pm lib/B.pm lib/B/C.pm)] ); # *.pm lib/**/*.pm
ok( chdir "../..", "cd ../.." );
}
{
my @pm_files = all_pm_files("t/eg");
is_deeply( \@pm_files,
[qw(t/eg/A.pm t/eg/inc/Foo.pm t/eg/lib/B.pm t/eg/lib/B/C.pm )] )
; # every .pm under t/eg
}
{
my @pm_files = all_pm_files( "t/eg/A.pm", "t/eg/MANIFEST" );
is_deeply( \@pm_files, [qw(t/eg/A.pm t/eg/MANIFEST)] );
}
|
