t/sqlmaker/oraclejoin.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 BEGIN {
   7   require DBIx::Class::Optional::Dependencies;
   8   plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for ('id_shortener')
   9     unless DBIx::Class::Optional::Dependencies->req_ok_for ('id_shortener');
  10 }
  11
  12 use lib qw(t/lib);
  13 use DBICTest ':DiffSQL';
  14 use DBIx::Class::SQLMaker::OracleJoins;
  15
  16 my $sa = DBIx::Class::SQLMaker::OracleJoins->new;
  17
  18 for my $rhs ( "me.artist", { -ident => "me.artist" } ) {
  19
  20 #  my ($self, $table, $fields, $where, $order, @rest) = @_;
  21 my ($sql, @bind) = $sa->select(
  22     [
  23         { me => "cd" },
  24         [
  25             { "-join_type" => "LEFT", artist => "artist" },
  26             { "artist.artistid" => $rhs },
  27         ],
  28     ],
  29     [ 'cd.cdid', 'cd.artist', 'cd.title', 'cd.year', 'artist.artistid', 'artist.name' ],
  30     undef,
  31     undef
  32 );
  33 is_same_sql_bind(
  34   $sql, \@bind,
  35   'SELECT cd.cdid, cd.artist, cd.title, cd.year, artist.artistid, artist.name FROM cd me, artist artist WHERE ( artist.artistid(+) = me.artist )', [],
  36   'WhereJoins search with empty where clause'
  37 );
  38
  39 ($sql, @bind) = $sa->select(
  40     [
  41         { me => "cd" },
  42         [
  43             { "-join_type" => "", artist => "artist" },
  44             { "artist.artistid" => $rhs },
  45         ],
  46     ],
  47     [ 'cd.cdid', 'cd.artist', 'cd.title', 'cd.year', 'artist.artistid', 'artist.name' ],
  48     { 'artist.artistid' => 3 },
  49     undef
  50 );
  51 is_same_sql_bind(
  52   $sql, \@bind,
  53   'SELECT cd.cdid, cd.artist, cd.title, cd.year, artist.artistid, artist.name FROM cd me, artist artist WHERE ( ( ( artist.artistid = me.artist ) AND ( artist.artistid = ? ) ) )', [3],
  54   'WhereJoins search with where clause'
  55 );
  56
  57 ($sql, @bind) = $sa->select(
  58     [
  59         { me => "cd" },
  60         [
  61             { "-join_type" => "right", artist => "artist" },
  62             { "artist.artistid" => $rhs },
  63         ],
  64     ],
  65     [ 'cd.cdid', 'cd.artist', 'cd.title', 'cd.year', 'artist.artistid', 'artist.name' ],
  66     { 'artist.artistid' => 3 },
  67     undef
  68 );
  69 is_same_sql_bind(
  70   $sql, \@bind,
  71   'SELECT cd.cdid, cd.artist, cd.title, cd.year, artist.artistid, artist.name FROM cd me, artist artist WHERE ( ( ( artist.artistid = me.artist(+) ) AND ( artist.artistid = ? ) ) )', [3],
  72   'WhereJoins search with where clause'
  73 );
  74
  75 ($sql, @bind) = $sa->select(
  76     [
  77         { me => "cd" },
  78         [
  79             { "-join_type" => "LEFT", artist => "artist" },
  80             { "artist.artistid" => $rhs },
  81         ],
  82     ],
  83     [ 'cd.cdid', 'cd.artist', 'cd.title', 'cd.year', 'artist.artistid', 'artist.name' ],
  84     [{ 'artist.artistid' => 3 }, { 'me.cdid' => 5 }],
  85     undef
  86 );
  87 is_same_sql_bind(
  88   $sql, \@bind,
  89   'SELECT cd.cdid, cd.artist, cd.title, cd.year, artist.artistid, artist.name FROM cd me, artist artist WHERE ( ( ( artist.artistid(+) = me.artist ) AND ( ( ( artist.artistid = ? ) OR ( me.cdid = ? ) ) ) ) )', [3, 5],
  90   'WhereJoins search with or in where clause'
  91 );
  92
  93 }
  94
  95 done_testing;
  96