[dbsrgits/DBIx-Class.git] / t / 39load_namespaces_5.t

use strict;
use warnings;
use Test::More;

use lib qw(t/lib);
use DBICTest; # do not remove even though it is not used

my $warnings;
eval {
    local $SIG{__WARN__} = sub { $warnings .= shift };
    package DBICNSTest;
    use base qw/DBIx::Class::Schema/;
    __PACKAGE__->load_namespaces;
};
my $source_mro_order = DBICNSTest->source('MROOrder');
isa_ok($source_mro_order , 'DBIx::Class::ResultSource::Table');

my $schema = DBICNSTest->connect("dbi:SQLite::memory:", "", "");
$schema->deploy;
use Data::Dumper;

warn "linear: " . Dumper mro::get_linear_isa(ref $schema->resultset('MROOrder'));
done_testing();
Commit	Line	Data
cd4d5fc7	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
82828122	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'));
cd4d5fc7	23	done_testing();