From e9864216b1cd6f44be272cb8e06af4115d1c92cc Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <jonathan.knowles@iohk.io>
Date: Thu, 30 Jul 2020 09:42:44 +0000
Subject: [PATCH] Add test to confirm NO delay for successful authentications.

---
 .../Integration/Scenario/API/Shelley/Wallets.hs     | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Wallets.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Wallets.hs
index 876e871b8ce..31b4396c8dd 100644
--- a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Wallets.hs
+++ b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Wallets.hs
@@ -950,6 +950,19 @@ spec = do
         expectResponseCode @IO HTTP.status403 rup
         expectErrorMessage errMsg403WrongPass rup
 
+    it "WALLETS_UPDATE_PASS_09 - \
+        \No delay on authentication success" $ \ctx -> do
+        w <- emptyWalletWith ctx
+            ("Wallet to update pass", "cardano-passphrase", 20)
+        let payload = updatePassPayload "cardano-passphrase" "whatever-pass"
+        startTime <- getCurrentTime
+        rup <- request @ApiWallet ctx
+            (Link.putWalletPassphrase @'Shelley w) Default payload
+        endTime <- getCurrentTime
+        let timeElapsed = endTime `diffUTCTime` startTime
+        timeElapsed `shouldSatisfy` (< minimumExecutionTimeOnAuthFailure)
+        expectResponseCode @IO HTTP.status204 rup
+
     it "WALLETS_COIN_SELECTION_01 - \
         \A singleton payment is included in the coin selection output." $
         \ctx -> do