1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
11 package DBICTest::SomeResult;
12 use base 'DBIx::Class::Core';
13 __PACKAGE__->table("boguz");
16 # Tests if foreign component was loaded by calling foreign's method
17 ok( ! $INC{"DBICTest/ForeignComponent.pm"}, "DBICTest::ForeignComponent not yet loaded" );
18 ok( DBICTest::SomeResult->result_class("DBICTest::ForeignComponent")->foreign_test_method, 'foreign component loaded correctly' );
20 # Test for inject_base to filter out duplicates
21 { package DBICTest::_InjectBaseTest;
22 use base qw/ DBIx::Class /;
23 package DBICTest::_InjectBaseTest::A;
24 package DBICTest::_InjectBaseTest::B;
25 package DBICTest::_InjectBaseTest::C;
27 DBICTest::_InjectBaseTest->inject_base( 'DBICTest::_InjectBaseTest', qw/
28 DBICTest::_InjectBaseTest::A
29 DBICTest::_InjectBaseTest::B
30 DBICTest::_InjectBaseTest::B
31 DBICTest::_InjectBaseTest::C
33 is_deeply( \@DBICTest::_InjectBaseTest::ISA,
35 DBICTest::_InjectBaseTest::A
36 DBICTest::_InjectBaseTest::B
37 DBICTest::_InjectBaseTest::C
40 'inject_base filters duplicates'
43 use_ok('DBIx::Class::AccessorGroup');
44 use_ok('DBIx::Class::Componentised');