t/60schema_base_dispatched.t

   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.");