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
|
# Testing for File::Find::Rule::Perl
use strict;
use warnings;
use lib ();
use File::Spec::Functions ':ALL';
use Test::More tests => 7;
use File::Find::Rule ();
use File::Find::Rule::Perl ();
use constant FFR => 'File::Find::Rule';
# Check the methods are added
foreach my $method ( qw{ perl_file perl_module perl_script perl_test perl_installer } ) {
ok( FFR->can($method), "->$method exists" );
}
# Make an object containing all of them
my $Rule = File::Find::Rule->new->perl_file;
isa_ok( $Rule, 'File::Find::Rule' );
my $Rule1 = File::Find::Rule->perl_file; #used in perlver
isa_ok( $Rule1, 'File::Find::Rule' );
exit(0);
|
