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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
use Test::More 0.95;
use_ok( 'Test::Prereq' );
subtest 'modules' => sub {
my $modules = Test::Prereq->_get_loaded_modules();
my @keys = sort keys %$modules;
my @expected = sort qw(
Carp
Cwd
ExtUtils::MakeMaker
File::Find
Module::Build
Module::Extract::Use
Test::Builder::Module
Test::More
Test::Prereq
Test::Prereq::Build
feature
lib
parent
strict
utf8
vars
warnings
);
is_deeply( \@keys, \@expected, 'Right modules for modules and tests' )
or
diag( "Didn't find right modules!\n\tFound < @keys >\n\tExpected < @expected >\n" );
};
done_testing();
__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' );
}
|
