68inflate_has_a.t tests the cdbi-compat shim and thus belongs in t/cdbi-t
Peter Rabbitson [Fri, 31 Oct 2008 20:34:27 +0000 (20:34 +0000)]
bumped up the version of DBD::SQLite required for testing

Makefile.PL
t/cdbi-t/68-inflate_has_a.t [moved from t/68inflate_has_a.t with 78% similarity]

index 2fdc3ce..a5bd70a 100644 (file)
@@ -29,7 +29,7 @@ requires 'Sub::Name'                 => 0.04;
 # Perl 5.8.0 doesn't have utf8::is_utf8()
 requires 'Encode'                    => 0 if ($] <= 5.008000);  
 
-test_requires 'DBD::SQLite'         => 1.13;
+test_requires 'DBD::SQLite'         => 1.14;
 test_requires 'Test::Builder'       => 0.33;
 test_requires 'Test::Warn'          => 0.11;
 test_requires 'Test::Exception'     => 0;
similarity index 78%
rename from t/68inflate_has_a.t
rename to t/cdbi-t/68-inflate_has_a.t
index 9dc1661..0019e29 100644 (file)
@@ -1,20 +1,26 @@
 use strict;
-use warnings;  
-
+use warnings;
 use Test::More;
-use lib qw(t/lib);
-use DBICTest;
 
-my $schema = DBICTest->init_schema();
+BEGIN {
+  eval "use DBIx::Class::CDBICompat;";
+  plan skip_all => "Class::Trigger and DBIx::ContextualFetch required"
+    if $@;
 
-eval { require DateTime };
-plan skip_all => "Need DateTime for inflation tests" if $@;
+  eval { require DateTime };
+  plan skip_all => "Need DateTime for inflation tests" if $@;
 
-eval { require Clone };
-plan skip_all => "Need Clone for CDBICompat inflation tests" if $@;
+  eval { require Clone };
+  plan skip_all => "Need Clone for CDBICompat inflation tests" if $@;
+}
 
 plan tests => 6;
 
+use lib qw(t/lib);
+use DBICTest;
+
+my $schema = DBICTest->init_schema();
+
 DBICTest::Schema::CD->load_components(qw/CDBICompat::Relationships/);
 
 DBICTest::Schema::CD->has_a( 'year', 'DateTime',