X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F05components.t;h=459524008b6dbd68932dbfe3ba1c2ec58c32dfe2;hb=f54428abf9cc7d7e5604745335694eaf558f6820;hp=fd0742f61e122488266096ba071f9a6f79afab2a;hpb=d6fd708475c878947014304386173d7a8b9f4698;p=dbsrgits%2FDBIx-Class.git diff --git a/t/05components.t b/t/05components.t index fd0742f..4595240 100644 --- a/t/05components.t +++ b/t/05components.t @@ -1,5 +1,3 @@ -#!/usr/bin/perl - use strict; use warnings; use Test::More; @@ -7,14 +5,15 @@ use Test::More; use lib qw(t/lib); use DBICTest::ForeignComponent; -plan tests => 2; - # Tests if foreign component was loaded by calling foreign's method ok( DBICTest::ForeignComponent->foreign_test_method, 'foreign component' ); # Test for inject_base to filter out duplicates { package DBICTest::_InjectBaseTest; use base qw/ DBIx::Class /; + package DBICTest::_InjectBaseTest::A; + package DBICTest::_InjectBaseTest::B; + package DBICTest::_InjectBaseTest::C; } DBICTest::_InjectBaseTest->inject_base( 'DBICTest::_InjectBaseTest', qw/ DBICTest::_InjectBaseTest::A @@ -31,3 +30,8 @@ is_deeply( \@DBICTest::_InjectBaseTest::ISA, /], 'inject_base filters duplicates' ); + +use_ok('DBIx::Class::AccessorGroup'); +use_ok('DBIx::Class::Componentised'); + +done_testing;