+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();
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/],
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/],
{