c4Tests :: TestTree
c4Tests = decisionTestGroup "c4" "Acceptable media type available?"
  [ testCase "True ==> d4" $
      let r = resource { contentTypesProvided = return [("text" // "html", return "")] }
      in after' (c4 "text/html") r req @?= Decision' "d4"
  , testCase "False ==> 406 Not Acceptable" $
      after' (c4 "text/html") resource req @?= Error' notAcceptable406 "No acceptable media type available"
  ]
c4Tests :: TestTree
c4Tests = decisionTestGroup "c4" "Acceptable media type available?"
  [ testCase "True ==> d4" $
      let r = resource { contentTypesProvided = return [("text" // "html", return "")] }
      in after' (c4 "text/html") r req @?= Decision' "d4"
  , testCase "False ==> 406 Not Acceptable" $
      after' (c4 "text/html") resource req @?= Error' notAcceptable406 "No acceptable media type available"
  ]
c4Tests = decisionTestGroup "c4" "Acceptable media type available?"
  [ testCase "True ==> d4" $
      let r = resource { contentTypesProvided = return [("text" // "html", return "")] }
      in after' (c4 "text/html") r req @?= Decision' "d4"
  , testCase "False ==> 406 Not Acceptable" $
      after' (c4 "text/html") resource req @?= Error' notAcceptable406 "No acceptable media type available"
  ]