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