From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 29 Jun 2006 21:23:05 +0000 (+0000)
Subject: disable warning tests on AS perl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d651c864c635cf3569fa2ec8e58ebb4298ced8e2;p=dbsrgits%2FDBIx-Class-Historic.git

disable warning tests on AS perl
---

diff --git a/Changes b/Changes
index f44af79..36715ff 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 Revision history for DBIx::Class
 
+        - disable cdbi-t/02-Film.t warning tests under AS perl
         - fixups to MySQL tests (aka "work round mysql being retarded")
         - compat tweaks for Storage debug logging
 
diff --git a/t/cdbi-t/02-Film.t b/t/cdbi-t/02-Film.t
index 921fc80..a9405bc 100644
--- 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);
 }