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;
use base qw/DBICTest::BaseResult/;
use File::Temp qw/tempdir/;
-__PACKAGE__->load_components(qw/InflateColumn::File/);
-
__PACKAGE__->table('file_columns');
__PACKAGE__->add_columns(
--
-- Created by SQL::Translator::Producer::SQLite
--- Created on Sat Mar 6 12:26:40 2010
+-- Created on Sat Mar 6 13:01:48 2010
--
;
);
--
+-- Table: file_columns
+--
+CREATE TABLE file_columns (
+ id INTEGER PRIMARY KEY NOT NULL,
+ file varchar(255) NOT NULL
+);
+
+--
-- Table: fourkeys
--
CREATE TABLE fourkeys (