8 use DBICTest::ForeignComponent;
12 # Tests if foreign component was loaded by calling foreign's method
13 ok( DBICTest::ForeignComponent->foreign_test_method, 'foreign component' );
15 # Test for inject_base to filter out duplicates
16 { package DBICTest::_InjectBaseTest;
17 use base qw/ DBIx::Class /;
18 package DBICTest::_InjectBaseTest::A;
19 package DBICTest::_InjectBaseTest::B;
20 package DBICTest::_InjectBaseTest::C;
22 DBICTest::_InjectBaseTest->inject_base( 'DBICTest::_InjectBaseTest', qw/
23 DBICTest::_InjectBaseTest::A
24 DBICTest::_InjectBaseTest::B
25 DBICTest::_InjectBaseTest::B
26 DBICTest::_InjectBaseTest::C
28 is_deeply( \@DBICTest::_InjectBaseTest::ISA,
30 DBICTest::_InjectBaseTest::A
31 DBICTest::_InjectBaseTest::B
32 DBICTest::_InjectBaseTest::C
35 'inject_base filters duplicates'