IchibaSpec.hs

module Rakuten.Endpoints.IchibaSpec
    ( spec
    ) where

import           Data.Default.Class       (Default (def))
import           Network.HTTP.Req         (responseBody, runReq)
import           Rakuten.Endpoints.Ichiba (searchIchibaGenre, searchIchibaItem)
import           Rakuten.Test.Class       (TestData (..))
import           Rakuten.Test.Client      (TestClient (..))
import           Test.Hspec               (Spec, context, describe, it,
                                           shouldBe)

spec :: Spec
spec = do
  describe "searchIchibaItem: endpoint GET /IchibaItem/Search/20170706" $ do
    context "correct responce" $ do
      it "should return IchibaItems response body" $ do
        response <- runReq def $ searchIchibaItem (TestClient def) def
        (responseBody response) `shouldBe` testData
  describe "searchIchibaGenre: endpoint GET /IchibaGenre/Search/20140222" $ do
    context "correct responce" $ do
      it "should return IchibaGenres response body" $ do
        response <- runReq def $ searchIchibaGenre (TestClient def) def
        (responseBody response) `shouldBe` testData