diff --git a/tests/AgentTests/NotificationTests.hs b/tests/AgentTests/NotificationTests.hs index 3666f007f..c360d87eb 100644 --- a/tests/AgentTests/NotificationTests.hs +++ b/tests/AgentTests/NotificationTests.hs @@ -142,9 +142,7 @@ testNtfTokenSecondRegistration APNSMockServer {apnsQ} = do NTActive <- checkNtfToken a tkn -- and the second is not yet verified liftIO $ threadDelay 50000 - r <- checkNtfToken a' tkn - liftIO . print $ "checkNtfToken a' tkn: " <> show r - unless (r == NTConfirmed) $ error "bad status" + NTConfirmed <- checkNtfToken a' tkn -- now the second token registration is verified verifyNtfToken a' tkn verification' nonce' -- the first registration is removed