t/70schema_base_dispatched.t

   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';