cryptocompare-0.1.0: test/Spec.hs

{-# LANGUAGE ScopedTypeVariables #-}

import           CryptoCompare
import           Data.Either
import           Data.Either.Utils
import           Test.Hspec

main :: IO ()
main = hspec $
  describe "Testing the library against the live CryptoCompare API" $
    it "performs basic example fetches" $ do
  coinList <- fetchCoinList
  coinList `shouldSatisfy` isRight
  fromRight coinList `shouldSatisfy` (\x -> length x > 1000)
  priceResp <- fetchCurrentPrice "BTC" ["USD", "EUR", "BTC"]
  priceResp `shouldSatisfy` isRight
  priceHistResp <- fetchDailyPriceHistory "BTC" "USD" 300
  priceHistResp `shouldSatisfy` isRight
  snapshotResp <- fetchCoinSnapshot "BTC" "USD"
  snapshotResp `shouldSatisfy` isRight