use warnings;
no warnings qw/once/;
+my ($inc_before, $inc_after);
+# 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};
+
+ require Carp; # Carp is not used in the test, but in OptDeps, load for proper %INC comparison
+
+ $inc_before = [ keys %INC ];
+ require DBIx::Class::Optional::Dependencies;
+ $inc_after = [ keys %INC ];
+}
+
use Test::More;
-use lib qw(t/lib);
+use Test::Exception;
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)
-ok (1);
-
-# 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');
-use_ok 'DBIx::Class::Optional::Dependencies';
-
-my $inc_after = [ keys %INC ];
+ok ( (! grep { $_ =~ m|DBIx/Class| } @$inc_before ), 'Nothing DBIC related was loaded before inc-test')
+ unless $ENV{PERL5OPT}; # a defined PERL5OPT may inject extra deps crashing this test
is_deeply (
[ sort @$inc_after],
like (
DBIx::Class::Optional::Dependencies->req_missing_for ('deploy'),
- qr/^SQL::Translator \>\= \d/,
+ qr/
+ (?: \A|\s )
+ " SQL::Translator \~ \>\= [\d\.]+ "
+ \s
+ .*?
+ \Q(see DBIx::Class::Optional::Dependencies documentation for details)\E
+ \z
+ /x,
'expected missing string contents',
);
'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;