disable warning tests on AS perl

[dbsrgits/DBIx-Class.git] / t / cdbi-t / 02-Film.t

diff --git a/t/cdbi-t/02-Film.t b/t/cdbi-t/02-Film.t
index 921fc80..a9405bc 100644 (file)
--- a/t/cdbi-t/02-Film.t
+++ b/t/cdbi-t/02-Film.t
@@ -232,7 +232,10 @@ is($btaste->Director, 'Lenny Bruce', 'set new Director');
 $btaste->discard_changes;
 is($btaste->Director, $orig_director, 'discard_changes()');
 
-{
+SKIP: {
+       skip "ActiveState perl produces additional warnings", 3
+          if ($^O eq 'Win32');
+
        Film->autoupdate(1);
        my $btaste2 = Film->retrieve($btaste->id);
        $btaste->NumExplodingSheep(18);
@@ -249,7 +252,6 @@ is($btaste->Director, $orig_director, 'discard_changes()');
                $btaste3->NumExplodingSheep(13);
        }
        is @warnings, 1, "DESTROY without update warns";
-print join("\n", @warnings);
        Film->autoupdate(0);
 }