update t/25backcompat.t, still needs actual tests

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / backcompat / 0.04006 / 21misc_fatal.t

diff --git a/t/backcompat/0.04006/21misc_fatal.t b/t/backcompat/0.04006/21misc_fatal.t
index a1ce752..ac645ad 100644 (file)
--- a/t/backcompat/0.04006/21misc_fatal.t
+++ b/t/backcompat/0.04006/21misc_fatal.t
@@ -1,7 +1,10 @@
 use strict;
 use Test::More;
-use lib qw(t/lib);
+use lib qw(t/backcompat/0.04006/lib);
 use make_dbictest_db;
+plan skip_all => 'set SCHEMA_LOADER_TESTS_BACKCOMPAT to enable these tests'
+    unless $ENV{SCHEMA_LOADER_TESTS_BACKCOMPAT};
+
 
 {
     $INC{'DBIx/Class/Storage/xyzzy.pm'} = 1;
@@ -21,6 +24,6 @@ plan tests => 1;
 eval { DBICTest::Schema->connect($make_dbictest_db::dsn) };
 like(
     $@,
-    qr/Could not load storage_type loader "DBIx::Class::Schema::Loader::xyzzy": /,
+    qr/Could not load loader_class "DBIx::Class::Schema::Loader::xyzzy": /,
     'Bad storage type dies correctly'
 );