From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 20 May 2006 01:14:38 +0000 (+0000)
Subject: futz changes, fix populate. I'm a retard.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cb9fdccb2320feebf33c7e82e6724f6f6b4ad478;p=dbsrgits%2FDBIx-Class-Historic.git

futz changes, fix populate. I'm a retard.
---

diff --git a/Changes b/Changes
index 3a51cb7..bfa3bbf 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 Revision history for DBIx::Class
 
+        - added AutoInflate::DateTime component
         - refactor debugging to allow for profiling using Storage::Statistics
         - removed Data::UUID from deps, made other optionals required
         - modified SQLT parser to skip dupe table names
diff --git a/t/helperrels/26sqlt.t b/t/helperrels/26sqlt.t
index 16f7013..4452bd5 100644
--- a/t/helperrels/26sqlt.t
+++ b/t/helperrels/26sqlt.t
@@ -10,7 +10,7 @@ plan skip_all => 'SQL::Translator required' if $@;
 
 my $schema = DBICTest::Schema;
 
-plan tests => 35;
+plan tests => 31;
 
 my $translator           =  SQL::Translator->new( 
     parser_args          => {
@@ -71,10 +71,14 @@ my @fk_constraints =
    'selftable' => 'treelike', 'foreigntable' => 'treelike', 
    'selfcols'  => ['parent'], 'foreigncols' => ['id'],
    'needed' => 1, on_delete => '', on_update => ''},
-  {'display' => 'twokeytreelike -> twokeytreelike for parent1,parent2',
-   'selftable' => 'twokeytreelike', 'foreigntable' => 'twokeytreelike', 
-   'selfcols'  => ['parent1', 'parent2'], 'foreigncols' => ['id1','id2'],
-   'needed' => 1, on_delete => '', on_update => ''},
+
+  # shouldn't this be generated?
+  # 
+  #{'display' => 'twokeytreelike -> twokeytreelike for parent1,parent2',
+  # 'selftable' => 'twokeytreelike', 'foreigntable' => 'twokeytreelike', 
+  # 'selfcols'  => ['parent1', 'parent2'], 'foreigncols' => ['id1','id2'],
+  # 'needed' => 1, on_delete => '', on_update => ''},
+
   {'display' => 'tags -> cd',
    'selftable' => 'tags', 'foreigntable' => 'cd', 
    'selfcols'  => ['cd'], 'foreigncols' => ['cdid'],
@@ -83,10 +87,6 @@ my @fk_constraints =
    'selftable' => 'bookmark', 'foreigntable' => 'link', 
    'selfcols'  => ['link'], 'foreigncols' => ['id'],
    'needed' => 1, on_delete => '', on_update => ''},
-  {'display' => 'bookmark -> link',
-   'selftable' => 'bookmark', 'foreigntable' => 'link', 
-   'selfcols'  => ['link'], 'foreigncols' => ['id'],
-   'needed' => 1, on_delete => '', on_update => ''},
  );
 
 my @unique_constraints = (
diff --git a/t/lib/DBICTest/Schema/Event.pm b/t/lib/DBICTest/Schema/Event.pm
index e9642e3..fea3b07 100644
--- a/t/lib/DBICTest/Schema/Event.pm
+++ b/t/lib/DBICTest/Schema/Event.pm
@@ -1,5 +1,18 @@
 package DBICTest::Schema::Event;
 
+use strict;
+use warnings;
 use base qw/DBIx::Class/;
 
-__PACKAGE__->load_components(qw/
+__PACKAGE__->load_components(qw/InflateColumn::DateTime PK::Auto Core/);
+
+__PACKAGE__->table('event');
+
+__PACKAGE__->add_columns(
+  id => { data_type => 'integer', is_auto_increment => 1 },
+  starts_at => { data_type => 'datetime' }
+);
+
+__PACKAGE__->set_primary_key('id');
+
+1;
diff --git a/t/lib/DBICTest/Setup.pm b/t/lib/DBICTest/Setup.pm
index b327e48..833bebf 100755
--- a/t/lib/DBICTest/Setup.pm
+++ b/t/lib/DBICTest/Setup.pm
@@ -152,9 +152,4 @@ $schema->populate('Bookmark', [
   [ 1, 1 ]
 ]);
 
-$schema->populate('Event', [
-  [ qw/id starts_at/ ],
-  [ 1, '2006-04-25 22:24:33' ],
-]);
-
 1;
diff --git a/t/lib/sqlite.sql b/t/lib/sqlite.sql
index 2f37699..6a63ce7 100644
--- a/t/lib/sqlite.sql
+++ b/t/lib/sqlite.sql
@@ -1,6 +1,6 @@
 -- 
 -- Created by SQL::Translator::Producer::SQLite
--- Created on Wed Apr 26 03:18:22 2006
+-- Created on Sat May 20 01:05:10 2006
 -- 
 BEGIN TRANSACTION;