t/05components.t

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