Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
6db94aca |
3 | use strict; |
4 | use warnings; |
5 | use Test::More; |
6 | |
c0329273 |
7 | |
8d6b1478 |
8 | use DBICTest; |
dd185339 |
9 | |
10 | { |
11 | package DBICTest::SomeResult; |
12 | use base 'DBIx::Class::Core'; |
13 | __PACKAGE__->table("boguz"); |
14 | } |
6db94aca |
15 | |
6db94aca |
16 | # Tests if foreign component was loaded by calling foreign's method |
dd185339 |
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' ); |
6db94aca |
19 | |
d6fd7084 |
20 | # Test for inject_base to filter out duplicates |
21 | { package DBICTest::_InjectBaseTest; |
22 | use base qw/ DBIx::Class /; |
eb47985e |
23 | package DBICTest::_InjectBaseTest::A; |
24 | package DBICTest::_InjectBaseTest::B; |
25 | package DBICTest::_InjectBaseTest::C; |
d6fd7084 |
26 | } |
27 | DBICTest::_InjectBaseTest->inject_base( 'DBICTest::_InjectBaseTest', qw/ |
28 | DBICTest::_InjectBaseTest::A |
29 | DBICTest::_InjectBaseTest::B |
30 | DBICTest::_InjectBaseTest::B |
31 | DBICTest::_InjectBaseTest::C |
32 | /); |
33 | is_deeply( \@DBICTest::_InjectBaseTest::ISA, |
34 | [qw/ |
35 | DBICTest::_InjectBaseTest::A |
36 | DBICTest::_InjectBaseTest::B |
37 | DBICTest::_InjectBaseTest::C |
38 | DBIx::Class |
39 | /], |
40 | 'inject_base filters duplicates' |
41 | ); |
df88a29c |
42 | |
fe0e9f67 |
43 | use_ok('DBIx::Class::AccessorGroup'); |
48a76fcf |
44 | use_ok('DBIx::Class::Componentised'); |
45 | |
46 | done_testing; |