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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
use strict;
use warnings;
no warnings qw/once/;
use Test::More;
use Test::Exception;
use lib qw(t/lib);
use Scalar::Util; # load before we break require()
use Carp (); # Carp is not used in the test, but we want to have it loaded for proper %INC comparison
# a dummy test which lazy-loads more modules (so we can compare INC below)
is_deeply([], []);
# record contents of %INC - makes sure there are no extra deps slipping into
# Opt::Dep.
my $inc_before = [ keys %INC ];
ok ( (! grep { $_ =~ m|DBIx/Class| } @$inc_before ), 'Nothing DBIC related is yet loaded');
# DBIx::Class::Optional::Dependencies queries $ENV at compile time
# to build the optional requirements
BEGIN {
$ENV{DBICTEST_PG_DSN} = '1';
delete $ENV{DBICTEST_ORA_DSN};
}
use_ok 'DBIx::Class::Optional::Dependencies';
my $inc_after = [ keys %INC ];
is_deeply (
[ sort @$inc_after],
[ sort (@$inc_before, 'DBIx/Class/Optional/Dependencies.pm') ],
'Nothing loaded other than DBIx::Class::OptDeps',
);
my $sqlt_dep = DBIx::Class::Optional::Dependencies->req_list_for ('deploy');
is_deeply (
[ keys %$sqlt_dep ],
[ 'SQL::Translator' ],
'Correct deploy() dependency list',
);
# make module loading impossible, regardless of actual libpath contents
{
local @INC = (sub { die('Optional Dep Test') } );
ok (
! DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
'deploy() deps missing',
);
like (
DBIx::Class::Optional::Dependencies->req_missing_for ('deploy'),
qr/^SQL::Translator \>\= \d/,
'expected missing string contents',
);
like (
DBIx::Class::Optional::Dependencies->req_errorlist_for ('deploy')->{'SQL::Translator'},
qr/Optional Dep Test/,
'custom exception found in errorlist',
);
}
#make it so module appears loaded
$INC{'SQL/Translator.pm'} = 1;
$SQL::Translator::VERSION = 999;
ok (
! DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
'deploy() deps missing cached properly',
);
#reset cache
%DBIx::Class::Optional::Dependencies::req_availability_cache = ();
ok (
DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
'deploy() deps present',
);
is (
DBIx::Class::Optional::Dependencies->req_missing_for ('deploy'),
'',
'expected null missing string',
);
is_deeply (
DBIx::Class::Optional::Dependencies->req_errorlist_for ('deploy'),
{},
'expected empty errorlist',
);
# test multiple times to find autovivification bugs
for (1..2) {
throws_ok {
DBIx::Class::Optional::Dependencies->req_list_for();
} qr/\Qreq_list_for() expects a requirement group name/,
"req_list_for without groupname throws exception on run $_";
throws_ok {
DBIx::Class::Optional::Dependencies->req_list_for('');
} qr/\Qreq_list_for() expects a requirement group name/,
"req_list_for with empty groupname throws exception on run $_";
throws_ok {
DBIx::Class::Optional::Dependencies->req_list_for('invalid_groupname');
} qr/Requirement group 'invalid_groupname' does not exist/,
"req_list_for with invalid groupname throws exception on run $_";
}
is_deeply(
DBIx::Class::Optional::Dependencies->req_list_for('rdbms_pg'),
{
'DBD::Pg' => '0',
}, 'optional dependencies for deploying to Postgres ok');
is_deeply(
DBIx::Class::Optional::Dependencies->req_list_for('test_rdbms_pg'),
{
'DBD::Pg' => '2.009002',
}, 'optional dependencies for testing Postgres with ENV var ok');
is_deeply(
DBIx::Class::Optional::Dependencies->req_list_for('test_rdbms_oracle'),
{}, 'optional dependencies for testing Oracle without ENV var ok');
done_testing;
|
