dormouse-client-0.1.0.0: test/Dormouse/Client/StatusSpec.hs

module Dormouse.Client.StatusSpec
  ( spec
  ) where

import Test.Hspec
import Dormouse.Client.Status

spec :: Spec
spec = do
  describe "Successful" $ do
    it "matches a status code of 200" $
      let wasSuccess = 
            case 200 of
              Successful -> True
              _ -> False in
      wasSuccess `shouldBe` True
    it "does not match a status code of 400" $
      let wasSuccess = 
            case 400 of
              Successful -> True
              _ -> False in
      wasSuccess `shouldBe` False