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

# test that the class in schema_base_class gets used when loading the schema
# by Ben Tilly (  btilly -at|   gmail.com )

use strict;
use Test::More tests => 1;
use DBIx::Class::Schema::Loader qw(make_schema_at);
use lib 't/lib';
use make_dbictest_db;

make_schema_at(
    'DBICTest::Schema::_test_schema_base',
    {
        really_erase_my_files => 1,
	naming => 'current',
	use_namespaces => 0,
	schema_base_class => 'TestSchemaBaseClass',
    },
    [ $make_dbictest_db::dsn ],
);

ok($TestSchemaBaseClass::test_ok, "Connected using schema_base_class.");
Commit	Line	Data
9ba5ae4c	1	# test that the class in schema_base_class gets used when loading the schema
	2	# by Ben Tilly ( btilly -at\| gmail.com )
	3
	4	use strict;
	5	use Test::More tests => 1;
	6	use DBIx::Class::Schema::Loader qw(make_schema_at);
	7	use lib 't/lib';
	8	use make_dbictest_db;
	9
	10	make_schema_at(
	11	'DBICTest::Schema::_test_schema_base',
	12	{
	13	really_erase_my_files => 1,
	14	naming => 'current',
	15	use_namespaces => 0,
	16	schema_base_class => 'TestSchemaBaseClass',
	17	},
	18	[ $make_dbictest_db::dsn ],
	19	);
	20
	21	ok($TestSchemaBaseClass::test_ok, "Connected using schema_base_class.");