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