1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
9 use DBICTest::ForeignComponent;
11 # Tests if foreign component was loaded by calling foreign's method
12 ok( DBICTest::ForeignComponent->foreign_test_method, 'foreign component' );
14 # Test for inject_base to filter out duplicates
15 { package DBICTest::_InjectBaseTest;
16 use base qw/ DBIx::Class /;
17 package DBICTest::_InjectBaseTest::A;
18 package DBICTest::_InjectBaseTest::B;
19 package DBICTest::_InjectBaseTest::C;
21 DBICTest::_InjectBaseTest->inject_base( 'DBICTest::_InjectBaseTest', qw/
22 DBICTest::_InjectBaseTest::A
23 DBICTest::_InjectBaseTest::B
24 DBICTest::_InjectBaseTest::B
25 DBICTest::_InjectBaseTest::C
27 is_deeply( \@DBICTest::_InjectBaseTest::ISA,
29 DBICTest::_InjectBaseTest::A
30 DBICTest::_InjectBaseTest::B
31 DBICTest::_InjectBaseTest::C
34 'inject_base filters duplicates'
37 use_ok('DBIx::Class::AccessorGroup');
38 use_ok('DBIx::Class::Componentised');