X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fprefetch%2Fcorrelated.t;h=8d99ff876929b14156c1fe5a198356be5dfb25ab;hb=a5f2ccb49689cf2603ea5614b231088cb520734f;hp=e2b499bc90be3695f753500821edf5693b068e22;hpb=f7f53a894c479aa594b9082ee461568fab8a81f3;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/prefetch/correlated.t b/t/prefetch/correlated.t index e2b499b..8d99ff8 100644 --- a/t/prefetch/correlated.t +++ b/t/prefetch/correlated.t @@ -2,7 +2,7 @@ use strict; use warnings; use Test::More; -use Test::Exception; +use Test::Deep; use lib qw(t/lib); use DBICTest; use DBIC::SqlMakerTest; @@ -46,7 +46,6 @@ is_same_sql_bind( LEFT JOIN track tracks ON tracks.cd = me.cdid WHERE me.artist != ? - ORDER BY tracks.cd )', [ @@ -68,7 +67,7 @@ my $queries = 0; $schema->storage->debugcb(sub { $queries++; }); $schema->storage->debug(1); -is_deeply ( +cmp_deeply ( { map { $_->cdid => { track_titles => [ map { $_->title } ($_->tracks->all) ], @@ -118,7 +117,6 @@ is_same_sql_bind( LEFT JOIN track tracks ON tracks.cd = me.cdid WHERE me.artist != ? - ORDER BY tracks.cd )', [