[Bast-commits] r3795 - DBIx-Class/0.08/trunk/t

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2007-09-28 08:51:40 +0100 (Fri, 28 Sep 2007)
New Revision: 3795

Modified:
   DBIx-Class/0.08/trunk/t/66relationship.t
   DBIx-Class/0.08/trunk/t/96multi_create.t
Log:
Tests from captainL, find_or_new_related fails on belongs_to rels.


Modified: DBIx-Class/0.08/trunk/t/66relationship.t
===================================================================
--- DBIx-Class/0.08/trunk/t/66relationship.t	2007-09-27 18:37:15 UTC (rev 3794)
+++ DBIx-Class/0.08/trunk/t/66relationship.t	2007-09-28 07:51:40 UTC (rev 3795)
@@ -7,7 +7,7 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 56;
+plan tests => 58;
 
 # has_a test
 my $cd = $schema->resultset("CD")->find(4);
@@ -90,6 +90,7 @@
   year => 2006,
 } );
 is( $cd->title, 'Greatest Hits', 'find_or_create_related new record ok' );
+
 @cds = $artist->search_related('cds');
 is( ($artist->search_related('cds'))[4]->title, 'Greatest Hits', 'find_or_create_related new record search ok' );
 
@@ -109,6 +110,19 @@
 is( $cd->title, 'Greatest Hits 2: Louder Than Ever', 'find_or_new_related new record ok' );
 ok( ! $cd->in_storage, 'find_or_new_related on a new record: not in_storage' );
 
+# print STDERR Data::Dumper::Dumper($cd->get_columns);
+# $cd->result_source->schema->storage->debug(1);
+$cd->artist(undef);
+my $newartist = $cd->find_or_new_related( 'artist', {
+  name => 'Random Boy Band Two',
+  artistid => 200,
+} );
+$cd->result_source->schema->storage->debug(0);
+
+is($newartist->name, 'Random Boy Band Two', 'find_or_new_related new artist record with id');
+is($newartist->id, 200, 'find_or_new_related new artist id set');
+
+
 SKIP: {
   skip "relationship checking needs fixing", 1;
   # try to add a bogus relationship using the wrong cols

Modified: DBIx-Class/0.08/trunk/t/96multi_create.t
===================================================================
--- DBIx-Class/0.08/trunk/t/96multi_create.t	2007-09-27 18:37:15 UTC (rev 3794)
+++ DBIx-Class/0.08/trunk/t/96multi_create.t	2007-09-28 07:51:40 UTC (rev 3795)
@@ -161,3 +161,20 @@
   is($a->name, 'Pink Floyd', 'Artist insertion ok');
   is($a->cds && $a->cds->first->title, 'The Wall', 'CD insertion ok');
 }
+
+## Create foreign key col obj including PK
+## See test 20 in 66relationships.t
+my $new_cd_hashref = { 
+              cdid => 27, 
+               title => 'Boogie Woogie', 
+              year => '2007', 
+              artist => { artistid => 17, name => 'king luke' }
+             };
+
+my $cd = $schema->resultset("CD")->find(1);
+
+print $cd->artist->id;
+is($cd->artist->id, 1, 'rel okay');
+
+my $new_cd = $schema->resultset("CD")->create($new_cd_hashref);
+is($new_cd->artist->id, 17, 'new id retained okay');
\ No newline at end of file