From: Errietta Kostala <errietta@errietta.me>
Date: Wed, 4 Feb 2015 14:34:15 +0000 (+0000)
Subject: Don't delete old users
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2Fstemmaweb.git;a=commitdiff_plain;h=feeb6c3125fb1c43fc0ee295fe3b1dfaf0d9a12c

Don't delete old users
---

diff --git a/lib/Text/Tradition/Directory.pm b/lib/Text/Tradition/Directory.pm
index 1727903..c669bd8 100644
--- a/lib/Text/Tradition/Directory.pm
+++ b/lib/Text/Tradition/Directory.pm
@@ -581,7 +581,7 @@ sub _find_gplus {
         $new_user->add_tradition($t);
     }
 
-    $self->delete_user({ username => $user->id });
+    # $self->delete_user({ username => $user->id });
     return $new_user;
 }
 
diff --git a/t/07google.t b/t/07google.t
index 09a2c65..37f0a66 100644
--- a/t/07google.t
+++ b/t/07google.t
@@ -88,7 +88,7 @@ io("$FindBin::Bin/var")->rmtree if io("$FindBin::Bin/var")->exists;
 {
     my $scope = $dir->new_scope;
 
-    ok !$dir->find_user({ url => 'https://www.google.com/accounts/o8/id' }), 'Old google-openid is gone.';
+    # ok !$dir->find_user({ url => 'https://www.google.com/accounts/o8/id' }), 'Old google-openid is gone.';
 
     ok $dir->find_user({ sub => 42, openid_id => 'https://www.google.com/accounts/o8/id' }), 'The G+ user is there.';