t/backcompat/0.04006/21misc_fatal.t

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