Fix building on perls with no . in @INC

[dbsrgits/DBIx-Class.git] / t / storage / dbic_pretty.t

diff --git a/t/storage/dbic_pretty.t b/t/storage/dbic_pretty.t
index b29d1d6..89f12dd 100644 (file)
--- a/t/storage/dbic_pretty.t
+++ b/t/storage/dbic_pretty.t
@@ -1,9 +1,10 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
 use DBIx::Class::Optional::Dependencies -skip_all_without => 'test_prettydebug';
 
 use strict;
 use warnings;
 
-use lib qw(t/lib);
+
 use DBICTest;
 use Test::More;
 
@@ -24,7 +25,9 @@ BEGIN { delete @ENV{qw(DBIC_TRACE_PROFILE)} }
    is($schema->storage->debugobj->_sqlat->indent_string, ' ', 'indent string set correctly from console profile');
 }
 
-{
+SKIP:{
+   DBIx::Class::Optional::Dependencies->skip_without('config_file_reader' );
+
    local $ENV{DBIC_TRACE_PROFILE} = './t/lib/awesome.json';
 
    my $schema = DBICTest->init_schema;