From: Peter Rabbitson Date: Fri, 1 Apr 2016 10:05:51 +0000 (+0200) Subject: Silence spurious warnings from todoified test X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23b72652ee1dc2896630cd16a3ead96de1bc8772;p=dbsrgits%2FDBIx-Class-Historic.git Silence spurious warnings from todoified test --- diff --git a/t/74mssql.t b/t/74mssql.t index 5ade8a7..f24e196 100644 --- a/t/74mssql.t +++ b/t/74mssql.t @@ -7,6 +7,7 @@ use warnings; use Test::More; use Test::Exception; use Scalar::Util 'weaken'; +use DBIx::Class::_Util 'sigwarn_silencer'; use DBICTest; @@ -203,7 +204,7 @@ SQL $schema->storage->_get_dbh->disconnect; - lives_and { + lives_ok { $wrappers->{$wrapper}->( sub { $rs_cp->create({ amount => 900 + $_ }) for 1..3; }); @@ -229,11 +230,16 @@ SQL weaken(my $a_rs_cp = $artist_rs); - local $TODO = 'Transaction handling with multiple active statements will ' - .'need eager cursor support.' - unless $wrapper eq 'no_transaction'; + $wrapper ne 'no_transaction' + and + ( + local $TODO = 'Transaction handling with multiple active statements will ' + .'need eager cursor support.', + + local local $SIG{__WARN__} = sigwarn_silencer qr/disconnect invalidates .+? active statement/ + ); - lives_and { + lives_ok { my @results; $wrappers->{$wrapper}->( sub {