t/05components.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use lib qw(t/lib);
   6 use DBICTest;
   7 use DBICTest::ForeignComponent;
   8
   9 #   Tests if foreign component was loaded by calling foreign's method
  10 ok( DBICTest::ForeignComponent->foreign_test_method, 'foreign component' );
  11
  12 #   Test for inject_base to filter out duplicates
  13 {   package DBICTest::_InjectBaseTest;
  14     use base qw/ DBIx::Class /;
  15     package DBICTest::_InjectBaseTest::A;
  16     package DBICTest::_InjectBaseTest::B;
  17     package DBICTest::_InjectBaseTest::C;
  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 );
  34
  35 use_ok('DBIx::Class::AccessorGroup');
  36 use_ok('DBIx::Class::Componentised');
  37
  38 done_testing;