X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finflate%2Ffile_column.t;h=7f0eddd3a61251e43959d60230ace39e06caccd5;hb=68888c09820ea25810c03cdc7748ee374a7772b2;hp=4de177a8d3d7e065535d3eb990a6a789a1e4a389;hpb=3814fdaddf1c49d2a8055c6da60cd93a1b513ad7;p=dbsrgits%2FDBIx-Class.git diff --git a/t/inflate/file_column.t b/t/inflate/file_column.t index 4de177a..7f0eddd 100644 --- a/t/inflate/file_column.t +++ b/t/inflate/file_column.t @@ -3,16 +3,20 @@ use warnings; use Test::More; use lib qw(t/lib); + +# inject IC::File into the result baseclass for testing +BEGIN { + $ENV{DBIC_IC_FILE_NOWARN} = 1; + require DBICTest::BaseResult; + DBICTest::BaseResult->load_components (qw/InflateColumn::File/); +} + + use DBICTest; -use DBICTest::Schema; use File::Compare; use Path::Class qw/file/; -$ENV{DBIC_IC_FILE_NOWARN} = 1; - -DBICTest::Schema->load_classes ('FileColumn'); -my $schema = DBICTest::Schema->connect(DBICTest->_database); -DBICTest->deploy_schema ($schema); +my $schema = DBICTest->init_schema; plan tests => 10;