[Bast-commits] r5573 - in DBIx-Class/0.08/branches/subquery/t: resultset search

[robkinyon at dev.catalyst.perl.org]

Author: robkinyon
Date: 2009-02-20 04:53:34 +0000 (Fri, 20 Feb 2009)
New Revision: 5573

Modified:
   DBIx-Class/0.08/branches/subquery/t/resultset/as_query.t
   DBIx-Class/0.08/branches/subquery/t/search/subquery.t
Log:
Added depedency guards

Modified: DBIx-Class/0.08/branches/subquery/t/resultset/as_query.t
===================================================================
--- DBIx-Class/0.08/branches/subquery/t/resultset/as_query.t	2009-02-20 04:50:50 UTC (rev 5572)
+++ DBIx-Class/0.08/branches/subquery/t/resultset/as_query.t	2009-02-20 04:53:34 UTC (rev 5573)
@@ -6,12 +6,18 @@
 use Data::Dumper;
 
 use Test::More;
+
+BEGIN {
+    eval "use SQL::Abstract 1.49";
+    plan $@
+        ? ( skip_all => "Needs SQLA 1.49+" )
+        : ( tests => 4 );
+}
+
 use lib qw(t/lib);
 use DBICTest;
 use DBIC::SqlMakerTest;
 
-plan tests => 4;
-
 my $schema = DBICTest->init_schema();
 my $art_rs = $schema->resultset('Artist');
 my $cdrs = $schema->resultset('CD');

Modified: DBIx-Class/0.08/branches/subquery/t/search/subquery.t
===================================================================
--- DBIx-Class/0.08/branches/subquery/t/search/subquery.t	2009-02-20 04:50:50 UTC (rev 5572)
+++ DBIx-Class/0.08/branches/subquery/t/search/subquery.t	2009-02-20 04:53:34 UTC (rev 5573)
@@ -6,12 +6,18 @@
 use Data::Dumper;
 
 use Test::More;
+
+BEGIN {
+    eval "use SQL::Abstract 1.49";
+    plan $@
+        ? ( skip_all => "Needs SQLA 1.49+" )
+        : ( tests => 6 );
+}
+
 use lib qw(t/lib);
 use DBICTest;
 use DBIC::SqlMakerTest;
 
-plan tests => 6;
-
 my $schema = DBICTest->init_schema();
 my $art_rs = $schema->resultset('Artist');
 my $cdrs = $schema->resultset('CD');