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 d2fe462..ca7786e 100644 (file)
--- a/t/cdbi-t/18-has_a.t
+++ b/t/cdbi-t/18-has_a.t
@@ -38,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';