X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fprefetch%2Fcorrelated.t;h=8d99ff876929b14156c1fe5a198356be5dfb25ab;hb=a5f2ccb49689cf2603ea5614b231088cb520734f;hp=350602797f2dc99c6629d239a1bceeb0a9129255;hpb=4e9fc3f33df616fb7340d05e304ff985b9cce9cb;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/prefetch/correlated.t b/t/prefetch/correlated.t index 3506027..8d99ff8 100644 --- a/t/prefetch/correlated.t +++ b/t/prefetch/correlated.t @@ -2,6 +2,7 @@ use strict; use warnings; use Test::More; +use Test::Deep; use lib qw(t/lib); use DBICTest; use DBIC::SqlMakerTest; @@ -45,7 +46,6 @@ is_same_sql_bind( LEFT JOIN track tracks ON tracks.cd = me.cdid WHERE me.artist != ? - ORDER BY me.cdid )', [ @@ -67,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) ], @@ -117,7 +117,6 @@ is_same_sql_bind( LEFT JOIN track tracks ON tracks.cd = me.cdid WHERE me.artist != ? - ORDER BY me.cdid )', [