X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fextra%2Fdiagnostics%2Fmany_to_many_warning.t;fp=xt%2Fextra%2Fdiagnostics%2Fmany_to_many_warning.t;h=c416e414158b9d4d2f45733f90d3726bf857d74c;hb=c0329273268971824784f239f32c7246e68da9c5;hp=2c42091bff48f748860c2c5b387fb2b62aedc941;hpb=e3be2b6ff05d6794ccd8807af8cb494403690639;p=dbsrgits%2FDBIx-Class.git diff --git a/xt/extra/diagnostics/many_to_many_warning.t b/xt/extra/diagnostics/many_to_many_warning.t index 2c42091..c416e41 100644 --- a/xt/extra/diagnostics/many_to_many_warning.t +++ b/xt/extra/diagnostics/many_to_many_warning.t @@ -1,8 +1,10 @@ +BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } + use strict; use warnings; use Test::More; -use lib qw(t/lib); + use DBICTest; my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/;