UtilSpec.hs

{-# LANGUAGE OverloadedStrings #-}

module Web.Spock.Internal.UtilSpec (spec) where

import Test.Hspec
import Web.Spock.Internal.Util

spec :: Spec
spec =
  describe "Utils" $
    do
      describe "detectPreferredFormat" $
        do
          it "should detect json-only requests" $
            do
              detectPreferredFormat "application/json, text/javascript, */*; q=0.01" `shouldBe` PrefJSON
              detectPreferredFormat "application/json;" `shouldBe` PrefJSON
              detectPreferredFormat "text/javascript;" `shouldBe` PrefJSON
          it "should detect browsers as html clients" $
            do
              detectPreferredFormat "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8" `shouldBe` PrefHTML
              detectPreferredFormat "text/html;" `shouldBe` PrefHTML
              detectPreferredFormat "application/xhtml+xml;" `shouldBe` PrefHTML
          it "should detect xml-only requests" $
            do
              detectPreferredFormat "application/xml, text/xml, */*; q=0.01" `shouldBe` PrefXML
              detectPreferredFormat "application/xml;" `shouldBe` PrefXML
              detectPreferredFormat "text/xml;" `shouldBe` PrefXML
          it "should detect text-only requests" $
            do
              detectPreferredFormat "text/plain, */*; q=0.01" `shouldBe` PrefText
              detectPreferredFormat "text/plain;" `shouldBe` PrefText