testNewAccount :: TestTree
testNewAccount =
  testCase "Account operations" $ do
    (acc, jwk) <- acmeNewObjAccountStub "email1@example.org"
    state <- myState jwk putStrLn
    _ <-
      flip evalCragT state $ do
        (url1, _) <- acmePerformCreateAccount acc
        url2 <- acmePerformFindAccountURL
        return (url1 @?= url2)
    return ()
testNewAccount :: TestTree
testNewAccount =
  testCase "Account operations" $ do
    (acc, jwk) <- acmeNewObjAccountStub "email1@example.org"
    state <- myState jwk putStrLn
    _ <-
      flip evalCragT state $ do
        (url1, _) <- acmePerformCreateAccount acc
        url2 <- acmePerformFindAccountURL
        return (url1 @?= url2)
    return ()
testNewAccount =
  testCase "Account operations" $ do
    (acc, jwk) <- acmeNewObjAccountStub "email1@example.org"
    state <- myState jwk putStrLn
    _ <-
      flip evalCragT state $ do
        (url1, _) <- acmePerformCreateAccount acc
        url2 <- acmePerformFindAccountURL
        return (url1 @?= url2)
    return ()