[Bast-commits] r9222 - in DBIx-Class/0.08/branches/mc_optimizations/t: lib/DBICTest lib/DBICTest/Schema multi_create

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2010-04-26 21:28:14 +0100 (Mon, 26 Apr 2010)
New Revision: 9222

Added:
   DBIx-Class/0.08/branches/mc_optimizations/t/lib/DBICTest/Schema/NoBackRels.pm
   DBIx-Class/0.08/branches/mc_optimizations/t/multi_create/backrels.t
Modified:
   DBIx-Class/0.08/branches/mc_optimizations/t/lib/DBICTest/Schema.pm
Log:
Test for multi-create with no reverse relationships


Added: DBIx-Class/0.08/branches/mc_optimizations/t/lib/DBICTest/Schema/NoBackRels.pm
===================================================================
--- DBIx-Class/0.08/branches/mc_optimizations/t/lib/DBICTest/Schema/NoBackRels.pm	                        (rev 0)
+++ DBIx-Class/0.08/branches/mc_optimizations/t/lib/DBICTest/Schema/NoBackRels.pm	2010-04-26 20:28:14 UTC (rev 9222)
@@ -0,0 +1,44 @@
+package # hide from PAUSE
+  DBICTest::Schema::NoBackRels;
+
+use strict;
+use warnings;
+
+use base qw/DBICTest::BaseResult/;
+
+__PACKAGE__->table('cd');
+
+__PACKAGE__->add_columns(
+  'cdid' => {
+    data_type => 'integer',
+    is_auto_increment => 1,
+  },
+  'artist' => {
+    data_type => 'integer',
+  },
+  'title' => {
+    data_type => 'varchar',
+    size      => 100,
+  },
+  'year' => {
+    data_type => 'varchar',
+    size      => 100,
+  },
+  'genreid' => { 
+    data_type => 'integer',
+    is_nullable => 1,
+    accessor => undef,
+  },
+  'single_track' => {
+    data_type => 'integer',
+    is_nullable => 1,
+    is_foreign_key => 1,
+  }
+);
+__PACKAGE__->set_primary_key('cdid');
+__PACKAGE__->add_unique_constraint([ qw/artist title/ ]);
+
+__PACKAGE__->belongs_to( artist => 'DBICTest::Schema::Artist');
+__PACKAGE__->has_many( tracks => 'DBICTest::Schema::Track', 'cd' );
+
+1;

Modified: DBIx-Class/0.08/branches/mc_optimizations/t/lib/DBICTest/Schema.pm
===================================================================
--- DBIx-Class/0.08/branches/mc_optimizations/t/lib/DBICTest/Schema.pm	2010-04-26 19:49:10 UTC (rev 9221)
+++ DBIx-Class/0.08/branches/mc_optimizations/t/lib/DBICTest/Schema.pm	2010-04-26 20:28:14 UTC (rev 9222)
@@ -10,6 +10,7 @@
   SequenceTest
   BindType
   Employee
+  NoBackRels
   CD
   FileColumn
   Genre

Added: DBIx-Class/0.08/branches/mc_optimizations/t/multi_create/backrels.t
===================================================================
--- DBIx-Class/0.08/branches/mc_optimizations/t/multi_create/backrels.t	                        (rev 0)
+++ DBIx-Class/0.08/branches/mc_optimizations/t/multi_create/backrels.t	2010-04-26 20:28:14 UTC (rev 9222)
@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Exception;
+use lib qw(t/lib);
+use DBICTest;
+
+my $schema = DBICTest->init_schema();
+
+my $cd = $schema->resultset('NoBackRels')->create({
+    artist => {
+        name => 'Elvis',
+    },
+    title => 'Greatest Elvis hits',
+    year => 1973,
+    tracks => [
+        { 
+            title => 'Heartbreak hotel',
+        },
+        ],
+});
+
+isa_ok($cd, 'DBICTest::CD', 'Main CD object created');
+
+done_testing;