20 lines
611 B
Haskell
20 lines
611 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module Servant.Client.Core.RequestSpec (spec) where
|
|
|
|
|
|
import Prelude ()
|
|
import Prelude.Compat
|
|
import Control.Monad
|
|
import Data.List (isInfixOf)
|
|
import Servant.Client.Core.Request
|
|
import Test.Hspec
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
describe "Request" $ do
|
|
describe "show" $ do
|
|
it "redacts the authorization header" $ do
|
|
let request = void $ defaultRequest { requestHeaders = pure ("authorization", "secret") }
|
|
isInfixOf "secret" (show request) `shouldBe` False
|