[Bast-commits] r8907 - in DBIx-Class/0.08/trunk/t: inflate lib lib/DBICTest lib/DBICTest/Schema

ribasushi at dev.catalyst.perl.org ribasushi at dev.catalyst.perl.org
Sat Mar 6 12:18:01 GMT 2010


Author: ribasushi
Date: 2010-03-06 12:18:01 +0000 (Sat, 06 Mar 2010)
New Revision: 8907

Modified:
   DBIx-Class/0.08/trunk/t/inflate/file_column.t
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema.pm
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/FileColumn.pm
   DBIx-Class/0.08/trunk/t/lib/sqlite.sql
Log:
me-- not thinking

Modified: DBIx-Class/0.08/trunk/t/inflate/file_column.t
===================================================================
--- DBIx-Class/0.08/trunk/t/inflate/file_column.t	2010-03-06 11:44:58 UTC (rev 8906)
+++ DBIx-Class/0.08/trunk/t/inflate/file_column.t	2010-03-06 12:18:01 UTC (rev 8907)
@@ -3,17 +3,21 @@
 
 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;
+my $schema = DBICTest->init_schema;
 
-DBICTest::Schema->load_classes ('FileColumn');
-my $schema = DBICTest::Schema->connect(DBICTest->_database);
-DBICTest->deploy_schema ($schema);
-
 plan tests => 10;
 
 my $rs = $schema->resultset('FileColumn');

Modified: DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/FileColumn.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/FileColumn.pm	2010-03-06 11:44:58 UTC (rev 8906)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema/FileColumn.pm	2010-03-06 12:18:01 UTC (rev 8907)
@@ -6,8 +6,6 @@
 use base qw/DBICTest::BaseResult/;
 use File::Temp qw/tempdir/;
 
-__PACKAGE__->load_components(qw/InflateColumn::File/);
-
 __PACKAGE__->table('file_columns');
 
 __PACKAGE__->add_columns(

Modified: DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema.pm	2010-03-06 11:44:58 UTC (rev 8906)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/Schema.pm	2010-03-06 12:18:01 UTC (rev 8907)
@@ -11,6 +11,7 @@
   BindType
   Employee
   CD
+  FileColumn
   Genre
   Link
   Bookmark

Modified: DBIx-Class/0.08/trunk/t/lib/sqlite.sql
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/sqlite.sql	2010-03-06 11:44:58 UTC (rev 8906)
+++ DBIx-Class/0.08/trunk/t/lib/sqlite.sql	2010-03-06 12:18:01 UTC (rev 8907)
@@ -1,6 +1,6 @@
 -- 
 -- Created by SQL::Translator::Producer::SQLite
--- Created on Sat Mar  6 12:26:40 2010
+-- Created on Sat Mar  6 13:01:48 2010
 -- 
 ;
 
@@ -68,6 +68,14 @@
 );
 
 --
+-- Table: file_columns
+--
+CREATE TABLE file_columns (
+  id INTEGER PRIMARY KEY NOT NULL,
+  file varchar(255) NOT NULL
+);
+
+--
 -- Table: fourkeys
 --
 CREATE TABLE fourkeys (




More information about the Bast-commits mailing list