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; |
6db94aca |
9 | use DBICTest::ForeignComponent; |
10 | |
6db94aca |
11 | # Tests if foreign component was loaded by calling foreign's method |
12 | ok( DBICTest::ForeignComponent->foreign_test_method, 'foreign component' ); |
13 | |
d6fd7084 |
14 | # Test for inject_base to filter out duplicates |
15 | { package DBICTest::_InjectBaseTest; |
16 | use base qw/ DBIx::Class /; |
eb47985e |
17 | package DBICTest::_InjectBaseTest::A; |
18 | package DBICTest::_InjectBaseTest::B; |
19 | package DBICTest::_InjectBaseTest::C; |
d6fd7084 |
20 | } |
21 | DBICTest::_InjectBaseTest->inject_base( 'DBICTest::_InjectBaseTest', qw/ |
22 | DBICTest::_InjectBaseTest::A |
23 | DBICTest::_InjectBaseTest::B |
24 | DBICTest::_InjectBaseTest::B |
25 | DBICTest::_InjectBaseTest::C |
26 | /); |
27 | is_deeply( \@DBICTest::_InjectBaseTest::ISA, |
28 | [qw/ |
29 | DBICTest::_InjectBaseTest::A |
30 | DBICTest::_InjectBaseTest::B |
31 | DBICTest::_InjectBaseTest::C |
32 | DBIx::Class |
33 | /], |
34 | 'inject_base filters duplicates' |
35 | ); |
df88a29c |
36 | |
fe0e9f67 |
37 | use_ok('DBIx::Class::AccessorGroup'); |
48a76fcf |
38 | use_ok('DBIx::Class::Componentised'); |
39 | |
40 | done_testing; |