X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F103many_to_many_warning.t;h=f2944b4462bb9ff55df16c0ac18b0df5986531f7;hb=4ca1fd6fb90a85f5138d11f580394025aa20ea4a;hp=37a0472851feb360158617f9dc900aa7021d0ee4;hpb=b7d1831a079d9b463231d8bbc764b8f628bfbec7;p=dbsrgits%2FDBIx-Class.git diff --git a/t/103many_to_many_warning.t b/t/103many_to_many_warning.t index 37a0472..f2944b4 100644 --- a/t/103many_to_many_warning.t +++ b/t/103many_to_many_warning.t @@ -3,13 +3,13 @@ use warnings; use Test::More; use lib qw(t/lib); -use Data::Dumper; +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"; @@ -20,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 );