X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F103many_to_many_warning.t;h=f2944b4462bb9ff55df16c0ac18b0df5986531f7;hb=da89304fa29f8fd18d235d120ccbea7d2cfbecdf;hp=36d41a80af1f1055952acbd9f60f186df8cba267;hpb=bfa46eb523fff8ece9b37a48d17b90510f1c8c52;p=dbsrgits%2FDBIx-Class.git diff --git a/t/103many_to_many_warning.t b/t/103many_to_many_warning.t index 36d41a8..f2944b4 100644 --- a/t/103many_to_many_warning.t +++ b/t/103many_to_many_warning.t @@ -3,12 +3,13 @@ use warnings; use Test::More; use lib qw(t/lib); +use DBICTest; plan tests => 4; my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/; { - my @w; + my @w; local $SIG{__WARN__} = sub { $_[0] =~ $exp_warn ? push @w, $_[0] : warn $_[0] }; my $code = gen_code ( suffix => 1 ); eval "$code"; @@ -19,7 +20,7 @@ my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/; } { - my @w; + my @w; local $SIG{__WARN__} = sub { $_[0] =~ $exp_warn ? push @w, $_[0] : warn $_[0] }; my $code = gen_code ( suffix => 2 );