ntf: remove debug output from test

This commit is contained in:
JRoberts
2022-06-21 14:09:05 +04:00
parent 30b36cd756
commit cd9cb19765

View File

@@ -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