stripe-tests-2.2.0: tests/Web/Stripe/Test/Account.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RebindableSyntax #-}
{-# LANGUAGE RankNTypes #-}
module Web.Stripe.Test.Account where

import           Data.Either
import           Test.Hspec
import           Web.Stripe.Test.Prelude
import           Web.Stripe.Account

accountTests :: StripeSpec
accountTests stripe = do
  describe "Account tests" $ do
    it "Succesfully retrieves account information" $ do
      result <- stripe $ do d <- getAccountDetails             
                            return d
      result `shouldSatisfy` isRight