From: Peter Rabbitson Date: Tue, 27 May 2014 08:22:29 +0000 (+0200) Subject: Less warning noise from sqlite test X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=113322e503f3c3f39c4652ac47417279c096db6a;hp=e952df766c89f1fd6e7e2e1289162b5c6773e65c;p=dbsrgits%2FDBIx-Class-Historic.git Less warning noise from sqlite test --- diff --git a/t/752sqlite.t b/t/752sqlite.t index fd7e8d7..0fbad34 100644 --- a/t/752sqlite.t +++ b/t/752sqlite.t @@ -215,7 +215,20 @@ for my $bi ( qw( my $v_desc = sprintf '%s (%d bit signed int)', $bi, $v_bits; my @w; - local $SIG{__WARN__} = sub { $_[0] =~ /datatype mismatch/ ? push @w, @_ : warn @_ }; + local $SIG{__WARN__} = sub { + if ($_[0] =~ /datatype mismatch/) { + push @w, @_; + } + elsif ($_[0] =~ /An integer value occupying more than 32 bits was supplied .+ can not bind properly so DBIC will treat it as a string instead/ ) { + # do nothing, this warning will pop up here and there depending on + # DBD/bitness combination + # we don't want to test for it explicitly, we are just interested + # in the results matching at the end + } + else { + warn @_; + } + }; # some combinations of SQLite 1.35 and older 5.8 faimly is wonky # instead of a warning we get a full exception. Sod it