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

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2008-04-23 20:47:31 +0100 (Wed, 23 Apr 2008)
New Revision: 4289

Modified:
   DBIx-Class/0.08/trunk/t/66relationship.t
Log:
todo test from zby for set_from_related

Modified: DBIx-Class/0.08/trunk/t/66relationship.t
===================================================================
--- DBIx-Class/0.08/trunk/t/66relationship.t	2008-04-23 01:31:52 UTC (rev 4288)
+++ DBIx-Class/0.08/trunk/t/66relationship.t	2008-04-23 19:47:31 UTC (rev 4289)
@@ -7,7 +7,7 @@
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 62;
+plan tests => 63;
 
 # has_a test
 my $cd = $schema->resultset("CD")->find(4);
@@ -66,6 +66,13 @@
 
 ok( !defined($track->cd), 'set_from_related with undef ok');
 
+TODO: {
+    local $TODO = 'accessing $object->rel and set_from_related';
+    my $track = $schema->resultset("Track")->new( {} );
+    $track->cd;
+    $track->set_from_related( cd => $cd ); 
+    ok ($track->cd, 'set_from_related ok after using the accessor' );
+};
 
 # update_from_related, the same as set_from_related, but it calls update afterwards
 $track = $schema->resultset("Track")->create( {