From: Eden Cardim <edencardim@gmail.com>
Date: Thu, 16 Aug 2012 14:47:12 +0000 (-0300)
Subject: fixed test for saving users and equivalent traditions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6840043f05e68b8e1c43d62cb2de3b748b4ddcdc;p=scpubgit%2Fstemmatology.git

fixed test for saving users and equivalent traditions
---

diff --git a/t/text_tradition_user_collapse.t b/t/text_tradition_user_collapse.t
index ce8e6bb..6dba101 100644
--- a/t/text_tradition_user_collapse.t
+++ b/t/text_tradition_user_collapse.t
@@ -14,14 +14,15 @@ my $file = $fh->filename;
 $fh->close;
 my $dsn = "dbi:SQLite:dbname=$file";
 
-my $user_store = Text::Tradition::Directory->new(
-  'dsn'        => $dsn,
-  'extra_args' => { 'create' => 1 }
-);
 
 my $uuid;
 my $email = 'john@doe.com';
 {
+  my $user_store = Text::Tradition::Directory->new(
+    'dsn'        => $dsn,
+    'extra_args' => { 'create' => 1 }
+  );
+
   my $scope = $user_store->new_scope;
 
 ## create user
@@ -40,20 +41,32 @@ my $email = 'john@doe.com';
   $uuid = $user_store->save($t);
   $new_user->add_tradition($t);
   $new_user->email($email);
+  ok( $t->user, 'sets user' );
   $user_store->update($new_user);
+  $user_store->save($t);
 }
 
 {
+  my $user_store = Text::Tradition::Directory->new(
+    'dsn'        => $dsn,
+    'extra_args' => { 'create' => 1 }
+  );
   my $scope = $user_store->new_scope;
 
   # change attribute in the user object
   my $user = $user_store->find_user( { username => 'fred' } );
   $user->email('foo@bar.baz');
   $user_store->update($user);
-  is(scalar @{$user->traditions}, 1);
+  is( scalar @{ $user->traditions }, 1 );
+  ok( $user->traditions->[0]->user,
+    'reinflated tradition object from user points to user' );
 }
 
 {
+  my $user_store = Text::Tradition::Directory->new(
+    'dsn'        => $dsn,
+    'extra_args' => { 'create' => 1 }
+  );
   my $scope = $user_store->new_scope;
 
   # refetch tradition
@@ -64,6 +77,10 @@ my $email = 'john@doe.com';
 }
 
 {
+  my $user_store = Text::Tradition::Directory->new(
+    'dsn'        => $dsn,
+    'extra_args' => { 'create' => 1 }
+  );
   my $scope = $user_store->new_scope;
   my $user = $user_store->find_user( { username => 'fred' } );
 
@@ -73,10 +90,14 @@ my $email = 'john@doe.com';
 }
 
 {
+  my $user_store = Text::Tradition::Directory->new(
+    'dsn'        => $dsn,
+    'extra_args' => { 'create' => 1 }
+  );
   my $scope = $user_store->new_scope;
 
   # refetch tradition
-  my $fetched_t = $user_store->tradition( $uuid );
+  my $fetched_t = $user_store->tradition($uuid);
 
   # assert that email has actually been reverted
   is( $fetched_t->user->email, $email );