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
|
use Test::More tests => 1;
use Test::Prereq;
{
my $modules = Test::Prereq->_get_loaded_modules();
my $keys = [ grep ! /^CPANPLUS/, sort keys %$modules ];
print STDERR "Didn't find right modules! Found < @$keys >\n" unless
ok(
eq_array( $keys,
[
qw( Module::Info Test::Prereq Test::Prereq::Build )
] ),
'Right modules for modules and tests'
);
}
__END__
TODO: {
local $TODO = "This interface changed, so these tests are not valid";
my $modules = Test::Prereq->_get_loaded_modules( );
my $okay = defined $modules ? 0 : 1;
ok( $okay, '_get_loaded_modules catches no arguments' );
$modules = Test::Prereq->_get_loaded_modules( undef, 't' );
$okay = defined $modules ? 0 : 1;
ok( $okay, '_get_loaded_modules catches missing first arg' );
$modules = Test::Prereq->_get_loaded_modules( 'blib/lib', undef );
$okay = defined $modules ? 0 : 1;
ok( $okay, '_get_loaded_modules catches missing second arg' );
}
|
