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=a9a75f0cc343de3b1430bbe898e728134f6c52b1;hpb=100fd57fa074efe491dfb2c25fabb01b634014b7;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/inflate/file_column.t b/t/inflate/file_column.t
index a9a75f0..7f0eddd 100644
--- a/t/inflate/file_column.t
+++ b/t/inflate/file_column.t
@@ -1,14 +1,22 @@
 use strict;
-use warnings;  
+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 IO::File;
 use File::Compare;
 use Path::Class qw/file/;
 
-my $schema = DBICTest->init_schema();
+my $schema = DBICTest->init_schema;
 
 plan tests => 10;