Silence cdbi tests like everything else

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 15-accessor.t

diff --git a/t/cdbi-t/15-accessor.t b/t/cdbi-t/15-accessor.t
index 1f7a985..91d6145 100644 (file)
--- a/t/cdbi-t/15-accessor.t
+++ b/t/cdbi-t/15-accessor.t
@@ -114,6 +114,9 @@ eval {
     like $@, qr/film/, "no hasa film";
 
     eval {
+        local $SIG{__WARN__} = sub {
+            warn @_ unless $_[0] =~ /Query returned more than one row/;
+        };
         ok my $f = $ac->movie, "hasa movie";
         isa_ok $f, "Film";
         is $f->id, $bt->id, " - Bad Taste";