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