X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fextra%2Fdiagnostics%2Fmany_to_many_warning.t;h=c416e414158b9d4d2f45733f90d3726bf857d74c;hb=dad6d9e5a228e2d2252c55da913dd4c2b878ee72;hp=2c42091bff48f748860c2c5b387fb2b62aedc941;hpb=c26b30dee587fa008f7d956b61ae27c36ac7ec82;p=dbsrgits%2FDBIx-Class-Historic.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/;