7 use Scalar::Util; # load before we break require()
8 use Carp (); # Carp is not used in the test, but we want to have it loaded for proper %INC comparison
10 # a dummy test which lazy-loads more modules (so we can compare INC below)
13 # record contents of %INC - makes sure there are no extra deps slipping into
15 my $inc_before = [ keys %INC ];
16 ok ( (! grep { $_ =~ m|DBIx/Class| } @$inc_before ), 'Nothing DBIC related is yet loaded');
18 use_ok 'DBIx::Class::Optional::Dependencies';
20 my $inc_after = [ keys %INC ];
24 [ sort (@$inc_before, 'DBIx/Class/Optional/Dependencies.pm') ],
25 'Nothing loaded other than DBIx::Class::OptDeps',
28 my $sqlt_dep = DBIx::Class::Optional::Dependencies->req_list_for ('deploy');
31 [ 'SQL::Translator' ],
32 'Correct deploy() dependency list',
35 # make module loading impossible, regardless of actual libpath contents
37 local @INC = (sub { die('Optional Dep Test') } );
40 ! DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
41 'deploy() deps missing',
45 DBIx::Class::Optional::Dependencies->req_missing_for ('deploy'),
46 qr/^SQL::Translator \>\= \d/,
47 'expected missing string contents',
51 DBIx::Class::Optional::Dependencies->req_errorlist_for ('deploy')->{'SQL::Translator'},
52 qr/Optional Dep Test/,
53 'custom exception found in errorlist',
57 #make it so module appears loaded
58 $INC{'SQL/Translator.pm'} = 1;
59 $SQL::Translator::VERSION = 999;
62 ! DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
63 'deploy() deps missing cached properly',
67 %DBIx::Class::Optional::Dependencies::req_availability_cache = ();
71 DBIx::Class::Optional::Dependencies->req_ok_for ('deploy'),
72 'deploy() deps present',
76 DBIx::Class::Optional::Dependencies->req_missing_for ('deploy'),
78 'expected null missing string',
82 DBIx::Class::Optional::Dependencies->req_errorlist_for ('deploy'),
84 'expected empty errorlist',