t/cdbi/19-set_sql.t

   1 use strict;
   2 use Test::More;
   3
   4 BEGIN {
   5   eval "use DBIx::Class::CDBICompat;";
   6   if ($@) {
   7     plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
   8     next;
   9   }
  10   eval "use DBD::SQLite";
  11   plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 20);
  12 }
  13
  14 use lib 't/cdbi/testlib';
  15 use Film;
  16 use Actor;
  17
  18 { # Check __ESSENTIAL__ expansion (RT#13038)
  19   my @cols = Film->columns('Essential');
  20   is_deeply \@cols, ['title'], "1 Column in essential";
  21   is +Film->transform_sql('__ESSENTIAL__'), 'title', '__ESSENTIAL__ expansion';
  22
  23   # This provides a more interesting test
  24   Film->columns(Essential => qw(title rating));
  25   is +Film->transform_sql('__ESSENTIAL__'), 'title, rating',
  26       'multi-col __ESSENTIAL__ expansion';
  27 }
  28
  29 my $f1 = Film->create({ title => 'A', director => 'AA', rating => 'PG' });
  30 my $f2 = Film->create({ title => 'B', director => 'BA', rating => 'PG' });
  31 my $f3 = Film->create({ title => 'C', director => 'AA', rating => '15' });
  32 my $f4 = Film->create({ title => 'D', director => 'BA', rating => '18' });
  33 my $f5 = Film->create({ title => 'E', director => 'AA', rating => '18' });
  34
  35 Film->set_sql(
  36   pgs => qq{
  37   SELECT __ESSENTIAL__
  38   FROM   __TABLE__
  39   WHERE  __TABLE__.rating = 'PG'
  40   ORDER BY title DESC
  41 }
  42 );
  43
  44 {
  45   (my $sth = Film->sql_pgs())->execute;
  46   my @pgs = Film->sth_to_objects($sth);
  47   is @pgs, 2, "Execute our own SQL";
  48   is $pgs[0]->id, $f2->id, "get F2";
  49   is $pgs[1]->id, $f1->id, "and F1";
  50 }
  51
  52 {
  53   my @pgs = Film->search_pgs;
  54   is @pgs, 2, "SQL creates search() method";
  55   is $pgs[0]->id, $f2->id, "get F2";
  56   is $pgs[1]->id, $f1->id, "and F1";
  57 };
  58
  59 Film->set_sql(
  60   rating => qq{
  61   SELECT __ESSENTIAL__
  62   FROM   __TABLE__
  63   WHERE  rating = ?
  64   ORDER BY title DESC
  65 }
  66 );
  67
  68 {
  69   my @pgs = Film->search_rating('18');
  70   is @pgs, 2, "Can pass parameters to created search()";
  71   is $pgs[0]->id, $f5->id, "F5";
  72   is $pgs[1]->id, $f4->id, "and F4";
  73 };
  74
  75 {
  76     Film->set_sql(
  77         by_id => qq{
  78             SELECT  __ESSENTIAL__
  79             FROM    __TABLE__
  80             WHERE   __IDENTIFIER__
  81         }
  82     );
  83
  84     my $film = Film->retrieve_all->first;
  85     my @found = Film->search_by_id($film->id);
  86     is @found, 1;
  87     is $found[0]->id, $film->id;
  88 }
  89
  90
  91 {
  92   Actor->has_a(film => "Film");
  93   Film->set_sql(
  94     namerate => qq{
  95     SELECT __ESSENTIAL(f)__
  96     FROM   __TABLE(=f)__, __TABLE(Actor=a)__
  97     WHERE  __JOIN(a f)__
  98     AND    a.name LIKE ?
  99     AND    f.rating = ?
 100     ORDER BY title
 101   }
 102   );
 103
 104   my $a1 = Actor->create({ name => "A1", film => $f1 });
 105   my $a2 = Actor->create({ name => "A2", film => $f2 });
 106   my $a3 = Actor->create({ name => "B1", film => $f1 });
 107
 108   my @apg = Film->search_namerate("A_", "PG");
 109   is @apg, 2, "2 Films with A* that are PG";
 110   is $apg[0]->title, "A", "A";
 111   is $apg[1]->title, "B", "and B";
 112 }
 113
 114 {    # join in reverse
 115   Actor->has_a(film => "Film");
 116   Film->set_sql(
 117     ratename => qq{
 118     SELECT __ESSENTIAL(f)__
 119     FROM   __TABLE(=f)__, __TABLE(Actor=a)__
 120     WHERE  __JOIN(f a)__
 121     AND    f.rating = ?
 122     AND    a.name LIKE ?
 123     ORDER BY title
 124   }
 125   );
 126
 127   my @apg = Film->search_ratename(PG => "A_");
 128   is @apg, 2, "2 Films with A* that are PG";
 129   is $apg[0]->title, "A", "A";
 130   is $apg[1]->title, "B", "and B";
 131 }
 132