X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsearch%2Fselect_chains_unbalanced.t;h=471cae2aefa96c0d3bcb7a885bb5c5b15319c895;hb=people%2Filmari%2Ficdt-method-fix;hp=99dcc0030158da34cc10ff06dd493ee45f71800c;hpb=f7f53a894c479aa594b9082ee461568fab8a81f3;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/search/select_chains_unbalanced.t b/t/search/select_chains_unbalanced.t
index 99dcc00..471cae2 100644
--- a/t/search/select_chains_unbalanced.t
+++ b/t/search/select_chains_unbalanced.t
@@ -1,13 +1,13 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 
 use Test::More;
 use Test::Exception;
 
-use lib qw(t/lib);
-use DBIC::SqlMakerTest;
-use DBICTest;
 
+use DBICTest ':DiffSQL';
 
 my $schema = DBICTest->init_schema();
 
@@ -42,7 +42,7 @@ my @chain = (
           me.cdid,
           DISTINCT(foo, bar),
           me.genreid,
-          (SELECT me.name, me.rank FROM artist me WHERE ( artistid 1 )),
+          (SELECT me.name, me.rank FROM artist me WHERE ( artistid 1 ))
         FROM cd me'
     => [qw/title cd_id foo bar genreid name rank/],
 
@@ -56,7 +56,7 @@ my @chain = (
           DISTINCT(foo, bar),
           me.genreid,
           (SELECT me.name, me.rank FROM artist me WHERE ( artistid 1 )),
-          COUNT( me.cdid ) AS cnt,
+          COUNT( me.cdid ) AS cnt
         FROM cd me'
     => [qw/title len cd_id foo bar genreid name rank cnt/],
   {