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
|
#!/usr/bin/perl
# $Header: $
#
use strict;
use Test::More tests => 7;
use Data::Dumper;
BEGIN {
# diag "\@INC contains:\n", join("\n",@INC);
use_ok 'Refactor';
}
my $rf = Devel::Refactor->new;
ok($rf && ref $rf && $rf->isa('Devel::Refactor'), "Get a new Devel::Refactor object.");
my @perlfiles = qw( foo.pl foo.pm foo.pod );
foreach my $fn (@perlfiles) {
ok($rf->is_perlfile($fn), "'$fn' recognized as Perl file name.");
}
ok (! $rf->is_perlfile('foo.t'), "'foo.t' rejected as Perl file name.");
diag "Adding .t as valid Perl extension";
my @perl_extensions = qw( .t );
my $perlfiles = $rf->perl_file_extensions(\@perl_extensions);
# diag Dumper($perlfiles);
ok($rf->is_perlfile('foo.t'), "'foo.t' recognized as Perl file name.");
|
