making tradition user become a weak ref
Eden Cardim [Mon, 13 Aug 2012 13:29:15 +0000 (10:29 -0300)]
lib/Text/Tradition.pm
t/text_tradition_user_collapse.t

index ce64e1d..ca0c5a4 100644 (file)
@@ -68,6 +68,7 @@ has 'user' => (
     required => 0,
     predicate => 'has_user',
     clearer => 'clear_user',
+    weak_ref => 1
     );
 
 has 'public' => (
index dca99bb..ce8e6bb 100644 (file)
@@ -50,6 +50,7 @@ my $email = 'john@doe.com';
   my $user = $user_store->find_user( { username => 'fred' } );
   $user->email('foo@bar.baz');
   $user_store->update($user);
+  is(scalar @{$user->traditions}, 1);
 }
 
 {