5 my ($inc_before, $inc_after);
6 # DBIx::Class::Optional::Dependencies queries $ENV at compile time
7 # to build the optional requirements
9 $ENV{DBICTEST_PG_DSN} = '1';
10 delete $ENV{DBICTEST_ORA_DSN};
12 require Carp; # Carp is not used in the test, but in OptDeps, load for proper %INC comparison
14 $inc_before = [ keys %INC ];
15 require DBIx::Class::Optional::Dependencies;
16 $inc_after = [ keys %INC ];
21 use Scalar::Util; # load before we break require()
23 ok ( (! grep { $_ =~ m|DBIx/Class| } @$inc_before ), 'Nothing DBIC related was loaded before inc-test')
24 unless $ENV{PERL5OPT}; # a defined PERL5OPT may inject extra deps crashing this test
28 [ sort (@$inc_before, 'DBIx/Class/Optional/Dependencies.pm') ],
29 'Nothing loaded other than DBIx::Class::OptDeps',
32 my $sqlt_dep = DBIx::Class::Optional::Dependencies->req_list_for ('deploy');
35 [ 'SQL::Translator' ],
36 'Correct deploy() dependency list',
39 # make module loading impossible, regardless of actual libpath contents
41 local @INC = (sub { die('Optional Dep Test') } );
44 ! DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
45 'deploy() deps missing',
49 DBIx::Class::Optional::Dependencies->req_missing_for ('deploy'),
52 " SQL::Translator \~ \>\= [\d\.]+ "
55 \Q(see DBIx::Class::Optional::Dependencies documentation for details)\E
58 'expected missing string contents',
62 DBIx::Class::Optional::Dependencies->req_errorlist_for ('deploy')->{'SQL::Translator'},
63 qr/Optional Dep Test/,
64 'custom exception found in errorlist',
68 #make it so module appears loaded
69 $INC{'SQL/Translator.pm'} = 1;
70 $SQL::Translator::VERSION = 999;
73 ! DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
74 'deploy() deps missing cached properly',
78 %DBIx::Class::Optional::Dependencies::req_availability_cache = ();
82 DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
83 'deploy() deps present',
87 DBIx::Class::Optional::Dependencies->req_missing_for ('deploy'),
89 'expected null missing string',
93 DBIx::Class::Optional::Dependencies->req_errorlist_for ('deploy'),
95 'expected empty errorlist',
98 # test multiple times to find autovivification bugs
101 DBIx::Class::Optional::Dependencies->req_list_for();
102 } qr/\Qreq_list_for() expects a requirement group name/,
103 "req_list_for without groupname throws exception on run $_";
106 DBIx::Class::Optional::Dependencies->req_list_for('');
107 } qr/\Qreq_list_for() expects a requirement group name/,
108 "req_list_for with empty groupname throws exception on run $_";
111 DBIx::Class::Optional::Dependencies->req_list_for('invalid_groupname');
112 } qr/Requirement group 'invalid_groupname' does not exist/,
113 "req_list_for with invalid groupname throws exception on run $_";
117 DBIx::Class::Optional::Dependencies->req_list_for('rdbms_pg'),
120 }, 'optional dependencies for deploying to Postgres ok');
123 DBIx::Class::Optional::Dependencies->req_list_for('test_rdbms_pg'),
125 'DBD::Pg' => '2.009002',
126 }, 'optional dependencies for testing Postgres with ENV var ok');
129 DBIx::Class::Optional::Dependencies->req_list_for('test_rdbms_oracle'),
130 {}, 'optional dependencies for testing Oracle without ENV var ok');