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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
use 5.008001;
use strict;
use warnings;
use Test::More;
plan tests => 13;
{
package Foo;
use Test::More;
use recommended 'File::Spec';
ok( recommended->has('File::Spec'), "has File::Spec" );
use recommended 'Devel::Peek',
{
'IO::File' => 1,
'File::Temp' => 999,
},
'Acme::DoesNotExistNotInstalled';
ok( !$INC{'Devel/Peek.pm'}, "Devel::Peek not yet loaded" );
ok( recommended->has('Devel::Peek'), "has recommended Devel::Peek" );
ok( recommended->has('IO::File'), "has recommended IO::File 1" );
ok( !recommended->has('File::Temp'), "doesn't have recommended File::Temp 999" );
ok(
!recommended->has('Acme::DoesNotExistNotInstalled'),
"doesn't have recommended Acme::DoesNotExistNotInstalled"
);
ok( recommended->has( 'File::Temp', 0 ), "has recommended File::Temp 0" );
use suggested 'File::Copy';
ok( suggested->has('File::Copy'), "has suggested File::Copy" );
ok( !suggested->has('IO::File'), "IO::File was not suggested" );
}
{
package Bar;
use Test::More;
use recommended 'File::Temp';
ok( recommended->has('File::Temp'), "other package has recommended File::Temp 0" );
ok( !recommended->has('Devel::Peek'),
"other package doesn't have recommended Devel::Peek" );
ok( !suggested->has('File::Copy'),
"other package doesn't have recommended File::Copy" );
my $use_if = eval "use if recommended->has('File::Basename'), 'Pod::Usage';";
my $err = $@;
ok( !$INC{'Pod/Usage.pm'}, "Pod::Usage not loaded from 'use if ...'" );
diag $err if $err;
}
done_testing;
#
# This file is part of recommended
#
# This software is Copyright (c) 2014 by David Golden.
#
# This is free software, licensed under:
#
# The Apache License, Version 2.0, January 2004
#
# vim: ts=4 sts=4 sw=4 et:
|
