t/39load_namespaces_5.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use lib qw(t/lib);
   6 use DBICTest; # do not remove even though it is not used
   7
   8 my $warnings;
   9 eval {
  10     local $SIG{__WARN__} = sub { $warnings .= shift };
  11     package DBICNSTest;
  12     use base qw/DBIx::Class::Schema/;
  13     __PACKAGE__->load_namespaces;
  14 };
  15 my $source_mro_order = DBICNSTest->source('MROOrder');
  16 isa_ok($source_mro_order , 'DBIx::Class::ResultSource::Table');
  17
  18 my $schema = DBICNSTest->connect("dbi:SQLite::memory:", "", "");
  19 $schema->deploy;
  20 use Data::Dumper;
  21
  22 warn "linear: " . Dumper mro::get_linear_isa(ref $schema->resultset('MROOrder'));
  23 done_testing();