[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 24loader_subclass.t

use strict;
use warnings;
use Test::More;
use lib qw(t/lib);
use make_dbictest_db;

{
    package DBICTest::Schema;
    use base qw/ DBIx::Class::Schema::Loader /;
    __PACKAGE__->loader_options( loader_class => 'TestLoaderSubclass' );
}

plan tests => 2;

my $schema = DBICTest::Schema->connect($make_dbictest_db::dsn);
isa_ok($schema->storage, 'DBIx::Class::Storage::DBI::SQLite');
isa_ok($schema->_loader, 'TestLoaderSubclass');
Commit	Line	Data
3953cbee	1	use strict;
	2	use warnings;
	3	use Test::More;
	4	use lib qw(t/lib);
	5	use make_dbictest_db;
	6
	7	{
	8	package DBICTest::Schema;
	9	use base qw/ DBIx::Class::Schema::Loader /;
	10	__PACKAGE__->loader_options( loader_class => 'TestLoaderSubclass' );
	11	}
	12
	13	plan tests => 2;
	14
	15	my $schema = DBICTest::Schema->connect($make_dbictest_db::dsn);
	16	isa_ok($schema->storage, 'DBIx::Class::Storage::DBI::SQLite');
	17	isa_ok($schema->_loader, 'TestLoaderSubclass');