From: Matt S Trout 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); }