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