From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 23 Apr 2008 19:47:31 +0000 (+0000)
Subject: todo test from zby for set_from_related
X-Git-Tag: v0.08240~478
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f77bad73b698229916a64dc5c192770cdb70dd19;p=dbsrgits%2FDBIx-Class.git

todo test from zby for set_from_related
---

diff --git a/t/66relationship.t b/t/66relationship.t
index 192c17a..f81ae94 100644
--- a/t/66relationship.t
+++ b/t/66relationship.t
@@ -7,7 +7,7 @@ use DBICTest;
 
 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 @@ $track->set_from_related( cd => undef );
 
 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( {