X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsqlmaker%2Fdbihacks_internals.t;h=4e34f13e662e6c0ae3ef3a6f19a13d4341494b31;hb=c356fcb1919c92e9f9b1dfe9fcc4c4cd33dc5ad6;hp=ca817378496f0c558f1ab3f27a47083213cc5c87;hpb=e466c62beb412b762f17418cc09b8aced29c628f;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/sqlmaker/dbihacks_internals.t b/t/sqlmaker/dbihacks_internals.t
index ca81737..4e34f13 100644
--- a/t/sqlmaker/dbihacks_internals.t
+++ b/t/sqlmaker/dbihacks_internals.t
@@ -1,14 +1,15 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 use Test::More;
 use Test::Warn;
 use Test::Exception;
 
-use lib qw(t/lib);
+
 use DBICTest ':DiffSQL';
-use DBIx::Class::_Util 'UNRESOLVABLE_CONDITION';
+use DBIx::Class::_Util qw( UNRESOLVABLE_CONDITION dump_value );
 
-use Data::Dumper;
 BEGIN {
   if ( eval { require Test::Differences } ) {
     no warnings 'redefine';
@@ -624,7 +625,7 @@ for my $t (@tests) {
   ) {
     die unless Test::Builder->new->is_passing;
 
-    my $name = do { local ($Data::Dumper::Indent, $Data::Dumper::Terse, $Data::Dumper::Sortkeys) = (0, 1, 1); Dumper $w };
+    my $name = do { local $Data::Dumper::Indent = 0; dump_value $w };
 
     my ($collapsed_cond, $collapsed_cond_as_sql);