Institute a central "load this first in testing" package

[dbsrgits/DBIx-Class.git] / t / cdbi / 19-set_sql.t

diff --git a/t/cdbi/19-set_sql.t b/t/cdbi/19-set_sql.t
index eb464a3..14cfc37 100644 (file)
--- a/t/cdbi/19-set_sql.t
+++ b/t/cdbi/19-set_sql.t
@@ -1,29 +1,24 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
+
 use strict;
-use Test::More;
+use warnings;
 
-BEGIN {
-  eval "use DBIx::Class::CDBICompat;";
-  if ($@) {
-    plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
-    next;
-  }
-  eval "use DBD::SQLite";
-  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 20);
-}
+use Test::More;
 
 use lib 't/cdbi/testlib';
 use Film;
 use Actor;
 
 { # Check __ESSENTIAL__ expansion (RT#13038)
-       my @cols = Film->columns('Essential');
-       is_deeply \@cols, ['title'], "1 Column in essential";
-       is +Film->transform_sql('__ESSENTIAL__'), 'title', '__ESSENTIAL__ expansion';
-       
-       # This provides a more interesting test
-       Film->columns(Essential => qw(title rating));
-       is +Film->transform_sql('__ESSENTIAL__'), 'title, rating',
-           'multi-col __ESSENTIAL__ expansion';
+  my @cols = Film->columns('Essential');
+  is_deeply \@cols, ['title'], "1 Column in essential";
+  is +Film->transform_sql('__ESSENTIAL__'), 'title', '__ESSENTIAL__ expansion';
+
+  # This provides a more interesting test
+  Film->columns(Essential => qw(title rating));
+  is +Film->transform_sql('__ESSENTIAL__'), 'title, rating',
+      'multi-col __ESSENTIAL__ expansion';
 }
 
 my $f1 = Film->create({ title => 'A', director => 'AA', rating => 'PG' });
@@ -33,43 +28,43 @@ my $f4 = Film->create({ title => 'D', director => 'BA', rating => '18' });
 my $f5 = Film->create({ title => 'E', director => 'AA', rating => '18' });
 
 Film->set_sql(
-       pgs => qq{
-       SELECT __ESSENTIAL__
-       FROM   __TABLE__
-       WHERE  __TABLE__.rating = 'PG'
-       ORDER BY title DESC 
+  pgs => qq{
+  SELECT __ESSENTIAL__
+  FROM   __TABLE__
+  WHERE  __TABLE__.rating = 'PG'
+  ORDER BY title DESC
 }
 );
 
 {
-       (my $sth = Film->sql_pgs())->execute;
-       my @pgs = Film->sth_to_objects($sth);
-       is @pgs, 2, "Execute our own SQL";
-       is $pgs[0]->id, $f2->id, "get F2";
-       is $pgs[1]->id, $f1->id, "and F1";
+  (my $sth = Film->sql_pgs())->execute;
+  my @pgs = Film->sth_to_objects($sth);
+  is @pgs, 2, "Execute our own SQL";
+  is $pgs[0]->id, $f2->id, "get F2";
+  is $pgs[1]->id, $f1->id, "and F1";
 }
 
 {
-       my @pgs = Film->search_pgs;
-       is @pgs, 2, "SQL creates search() method";
-       is $pgs[0]->id, $f2->id, "get F2";
-       is $pgs[1]->id, $f1->id, "and F1";
+  my @pgs = Film->search_pgs;
+  is @pgs, 2, "SQL creates search() method";
+  is $pgs[0]->id, $f2->id, "get F2";
+  is $pgs[1]->id, $f1->id, "and F1";
 };
 
 Film->set_sql(
-       rating => qq{
-       SELECT __ESSENTIAL__
-       FROM   __TABLE__
-       WHERE  rating = ?
-       ORDER BY title DESC 
+  rating => qq{
+  SELECT __ESSENTIAL__
+  FROM   __TABLE__
+  WHERE  rating = ?
+  ORDER BY title DESC
 }
 );
 
 {
-       my @pgs = Film->search_rating('18');
-       is @pgs, 2, "Can pass parameters to created search()";
-       is $pgs[0]->id, $f5->id, "F5";
-       is $pgs[1]->id, $f4->id, "and F4";
+  my @pgs = Film->search_rating('18');
+  is @pgs, 2, "Can pass parameters to created search()";
+  is $pgs[0]->id, $f5->id, "F5";
+  is $pgs[1]->id, $f4->id, "and F4";
 };
 
 {
@@ -80,7 +75,7 @@ Film->set_sql(
             WHERE   __IDENTIFIER__
         }
     );
-    
+
     my $film = Film->retrieve_all->first;
     my @found = Film->search_by_id($film->id);
     is @found, 1;
@@ -89,44 +84,45 @@ Film->set_sql(
 
 
 {
-       Actor->has_a(film => "Film");
-       Film->set_sql(
-               namerate => qq{
-               SELECT __ESSENTIAL(f)__
-               FROM   __TABLE(=f)__, __TABLE(Actor=a)__ 
-               WHERE  __JOIN(a f)__    
-               AND    a.name LIKE ?
-               AND    f.rating = ?
-               ORDER BY title 
-       }
-       );
-
-       my $a1 = Actor->create({ name => "A1", film => $f1 });
-       my $a2 = Actor->create({ name => "A2", film => $f2 });
-       my $a3 = Actor->create({ name => "B1", film => $f1 });
-
-       my @apg = Film->search_namerate("A_", "PG");
-       is @apg, 2, "2 Films with A* that are PG";
-       is $apg[0]->title, "A", "A";
-       is $apg[1]->title, "B", "and B";
+  Actor->has_a(film => "Film");
+  Film->set_sql(
+    namerate => qq{
+    SELECT __ESSENTIAL(f)__
+    FROM   __TABLE(=f)__, __TABLE(Actor=a)__
+    WHERE  __JOIN(a f)__
+    AND    a.name LIKE ?
+    AND    f.rating = ?
+    ORDER BY title
+  }
+  );
+
+  my $a1 = Actor->create({ name => "A1", film => $f1 });
+  my $a2 = Actor->create({ name => "A2", film => $f2 });
+  my $a3 = Actor->create({ name => "B1", film => $f1 });
+
+  my @apg = Film->search_namerate("A_", "PG");
+  is @apg, 2, "2 Films with A* that are PG";
+  is $apg[0]->title, "A", "A";
+  is $apg[1]->title, "B", "and B";
 }
 
 {    # join in reverse
-       Actor->has_a(film => "Film");
-       Film->set_sql(
-               ratename => qq{
-               SELECT __ESSENTIAL(f)__
-               FROM   __TABLE(=f)__, __TABLE(Actor=a)__ 
-               WHERE  __JOIN(f a)__    
-               AND    f.rating = ?
-               AND    a.name LIKE ?
-               ORDER BY title 
-       }
-       );
-
-       my @apg = Film->search_ratename(PG => "A_");
-       is @apg, 2, "2 Films with A* that are PG";
-       is $apg[0]->title, "A", "A";
-       is $apg[1]->title, "B", "and B";
+  Actor->has_a(film => "Film");
+  Film->set_sql(
+    ratename => qq{
+    SELECT __ESSENTIAL(f)__
+    FROM   __TABLE(=f)__, __TABLE(Actor=a)__
+    WHERE  __JOIN(f a)__
+    AND    f.rating = ?
+    AND    a.name LIKE ?
+    ORDER BY title
+  }
+  );
+
+  my @apg = Film->search_ratename(PG => "A_");
+  is @apg, 2, "2 Films with A* that are PG";
+  is $apg[0]->title, "A", "A";
+  is $apg[1]->title, "B", "and B";
 }
 
+done_testing;