X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest%2FSchema%2FTreeLike.pm;h=a5413d14ee573a4212cc8e0a5748039df660250a;hb=823c91a18ccb75b3bd2e9adf87139b612c96ba86;hp=c1242416b5874920f8fc43eeae1ad8b86a157aa2;hpb=8871d4ad1ce3afa80338d355a21ba28d9b4a46ca;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/lib/DBICTest/Schema/TreeLike.pm b/t/lib/DBICTest/Schema/TreeLike.pm index c124241..a5413d1 100644 --- a/t/lib/DBICTest/Schema/TreeLike.pm +++ b/t/lib/DBICTest/Schema/TreeLike.pm @@ -1,20 +1,20 @@ package # hide from PAUSE DBICTest::Schema::TreeLike; -use base qw/DBIx::Class::Core/; +use base qw/DBICTest::BaseResult/; __PACKAGE__->table('treelike'); __PACKAGE__->add_columns( 'id' => { data_type => 'integer', is_auto_increment => 1 }, - 'parent_fk' => { data_type => 'integer' , is_nullable=>1}, + 'parent' => { data_type => 'integer' , is_nullable=>1}, 'name' => { data_type => 'varchar', size => 100, }, ); __PACKAGE__->set_primary_key(qw/id/); __PACKAGE__->belongs_to('parent', 'TreeLike', - { 'foreign.id' => 'self.parent_fk' }); -__PACKAGE__->has_many('children', 'TreeLike', { 'foreign.parent_fk' => 'self.id' }); + { 'foreign.id' => 'self.parent' }); +__PACKAGE__->has_many('children', 'TreeLike', { 'foreign.parent' => 'self.id' }); ## since this is a self referential table we need to do a post deploy hook and get ## some data in while constraints are off @@ -22,6 +22,7 @@ __PACKAGE__->has_many('children', 'TreeLike', { 'foreign.parent_fk' => 'self.id' sub sqlt_deploy_hook { my ($self, $sqlt_table) = @_; - $sqlt_table->add_index(name => 'idx_name', fields => ['name']); + ## We don't seem to need this anymore, but keeping it for the moment + ## $sqlt_table->add_index(name => 'idx_name', fields => ['name']); } 1;