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