1use strict;
2use Test::More;
3use lib qw(t/backcompat/0.04006/lib);
4use make_dbictest_db;
5plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
6    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
7
8
9{
10    $INC{'DBIx/Class/Storage/xyzzy.pm'} = 1;
11    package DBIx::Class::Storage::xyzzy;
12    use base qw/ DBIx::Class::Storage /;
13    sub new { bless {}, shift }
14    sub connect_info { @_ }
15
16    package DBICTest::Schema;
17    use base qw/ DBIx::Class::Schema::Loader /;
18    __PACKAGE__->loader_options( really_erase_my_files => 1 );
19    __PACKAGE__->storage_type( '::xyzzy' );
20}
21
22plan tests => 1;
23
24eval { DBICTest::Schema->connect($make_dbictest_db::dsn) };
25like(
26    $@,
27    qr/Could not load storage_type loader "DBIx::Class::Schema::Loader::xyzzy": /,
28    'Bad storage type dies correctly'
29);
30