content: {-# LANGUAGE OverloadedStrings #-}
  ------------------------------------------------------------
  -- Copyright : Erik de Castro Lopo <erikd@mega-nerd.com>
  -- License : BSD3
  ------------------------------------------------------------
  
  module Test.Wai where
  
  import Network.Wai.Internal
  import Test.Hspec
  
  waiShouldBe :: Request -> Request -> Expectation
  waiShouldBe a b = do
      requestMethod a         `shouldBe` requestMethod b
      httpVersion a           `shouldBe` httpVersion b
      rawPathInfo a           `shouldBe` rawPathInfo b
      rawQueryString a        `shouldBe` rawQueryString b
      requestHeaders a        `shouldBe` requestHeaders b
      isSecure a              `shouldBe` isSecure b
      remoteHost a            `shouldBe` remoteHost b
      pathInfo a              `shouldBe` pathInfo b
      queryString a           `shouldBe` queryString b
      -- requestBody a
      -- vault a                 `shouldBe` vault b
      -- requestBodyLength a     `shouldBe` requestBodyLength b
      requestHeaderHost a     `shouldBe` requestHeaderHost b
      requestHeaderRange a    `shouldBe` requestHeaderRange b
  
  
  