From 3eb522469e641e31d02fa060a1b48b93edbf7d84 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 22 Sep 2016 14:08:36 -0400 Subject: record already-existing backup in log after restoring a secret key This will prevent --autostart from prompting to get the newly restored key backed up again. This commit was sponsored by Remy van Elst on Patreon. --- Tests.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Tests.hs') diff --git a/Tests.hs b/Tests.hs index d18628e..09a7356 100644 --- a/Tests.hs +++ b/Tests.hs @@ -98,7 +98,7 @@ backupRestoreTest testdesc secretkey = restore storagelocations = do let sis = shareIdents tunables name secretkeysource - (shares, sis') <- retrieveShares storagelocations sis (return ()) + (shares, sis', _) <- retrieveShares storagelocations sis (return ()) let candidatekeys = candidateKeyEncryptionKeys tunables name password case combineShares tunables [shares] of Left e -> testFailed e @@ -112,7 +112,7 @@ backupRestoreTest testdesc secretkey = then testSuccess else testFailed "restore yielded different value than was backed up" DecryptIncomplete kek -> do - (nextshares, sis') <- retrieveShares storagelocations sis (return ()) + (nextshares, sis', _) <- retrieveShares storagelocations sis (return ()) let shares = firstshares ++ [nextshares] case combineShares tunables shares of Left e -> testFailed e -- cgit v1.2.3