add TODO on constraint check

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 18-has_a.t

diff --git a/t/cdbi-t/18-has_a.t b/t/cdbi-t/18-has_a.t
index b0f0299..ca7786e 100644 (file)
--- a/t/cdbi-t/18-has_a.t
+++ b/t/cdbi-t/18-has_a.t
@@ -2,8 +2,13 @@ use strict;
 use Test::More;
 
 BEGIN {
-       eval "use DBD::SQLite";
-       plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 41);
+  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 => 41);
 }
 
 use lib 't/testlib';
@@ -33,7 +38,7 @@ ok(
        ok $pj = $btaste->Director, "Bad taste now hasa() director";
        isa_ok $pj => 'Director';
        {
-               no warnings 'redefine';
+               no warnings qw(redefine once);
                local *Ima::DBI::st::execute =
                        sub { ::fail("Shouldn't need to query db"); };
                is $pj->id, 'Peter Jackson', 'ID already stored';