[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 70schema_base_dispatched.t

use strict;
use warnings;
no warnings 'once';
use Test::More tests => 2;
use DBIx::Class::Schema::Loader 'make_schema_at';
use lib 't/lib';
use make_dbictest_db;

make_schema_at(
    'DBICTest::Schema::_test_schema_base',
    {
	naming => 'current',
	schema_base_class => 'TestSchemaBaseClass',
        schema_components => ['TestSchemaComponent'],
    },
    [ $make_dbictest_db::dsn ],
);

ok $TestSchemaBaseClass::test_ok,
    'connected using schema_base_class';

ok $DBIx::Class::TestSchemaComponent::test_component_ok,
    'connected using schema_components';
Commit	Line	Data
cc15b78f	1	use strict;
	2	use warnings;
	3	no warnings 'once';
	4	use Test::More tests => 2;
	5	use DBIx::Class::Schema::Loader 'make_schema_at';
	6	use lib 't/lib';
	7	use make_dbictest_db;
	8
	9	make_schema_at(
	10	'DBICTest::Schema::_test_schema_base',
	11	{
	12	naming => 'current',
	13	schema_base_class => 'TestSchemaBaseClass',
	14	schema_components => ['TestSchemaComponent'],
	15	},
	16	[ $make_dbictest_db::dsn ],
	17	);
	18
	19	ok $TestSchemaBaseClass::test_ok,
	20	'connected using schema_base_class';
	21
	22	ok $DBIx::Class::TestSchemaComponent::test_component_ok,
	23	'connected using schema_components';