X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsqlmaker%2Fmsaccess.t;h=179b3f31ed04ea82aff11d8569d601456958d3da;hb=06278456a950ad6e8bf9920f77e6d212f0d8b474;hp=2805d0309ea03b48da918e74856535c10fd7b60a;hpb=ac0c08254241f41a5cb1b586fc1b24ce2d33b79b;p=dbsrgits%2FDBIx-Class.git diff --git a/t/sqlmaker/msaccess.t b/t/sqlmaker/msaccess.t index 2805d03..179b3f3 100644 --- a/t/sqlmaker/msaccess.t +++ b/t/sqlmaker/msaccess.t @@ -2,8 +2,7 @@ use strict; use warnings; use Test::More; use lib qw(t/lib); -use DBICTest; -use DBIC::SqlMakerTest; +use DBICTest ':DiffSQL'; # the entire point of the subclass is that parenthesis have to be # just right for ACCESS to be happy @@ -87,7 +86,7 @@ my ($sql, @bind) = $sa->select( { me => "cd" }, [ { "-join_type" => "LEFT", artist => "artist" }, - { "artist.artistid" => "me.artist" }, + { "artist.artistid" => { -ident => "me.artist" } }, ], ], [ 'cd.cdid', 'cd.artist', 'cd.title', 'cd.year', 'artist.artistid', 'artist.name' ], @@ -105,11 +104,11 @@ is_same_sql_bind( { me => "cd" }, [ { "-join_type" => "LEFT", track => "track" }, - { "track.cd" => "me.cdid" }, + { "track.cd" => { -ident => "me.cdid" } }, ], [ { artist => "artist" }, - { "artist.artistid" => "me.artist" }, + { "artist.artistid" => { -ident => "me.artist" } }, ], ], [ 'track.title', 'cd.cdid', 'cd.artist', 'cd.title', 'cd.year', 'artist.artistid', 'artist.name' ],