+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
use strict;
use warnings;
use Test::More;
use Test::Exception;
-use lib qw(t/lib);
-use DBICTest;
-use DBIC::SqlMakerTest;
+
+use DBICTest ':DiffSQL';
my $schema = DBICTest->init_schema();
lives_ok (sub {
cmp_ok($rs3->count, '==', 15, "All cds for artist returned via count");
-my $rs4 = $schema->resultset("CD")->search({ 'artist.artistid' => '1' }, { join => ['tracks', 'artist'], prefetch => 'artist' });
+my $rs4 = $schema->resultset("CD")->search({ 'artist.artistid' => '1' }, {
+ join => ['tracks', 'artist'], prefetch => 'artist', order_by => 'me.cdid'
+});
my @rs4_results = $rs4->all;
is($rs4_results[0]->cdid, 1, "correct artist returned");