b5Tests :: TestTree
b5Tests = decisionTestGroup "b5" "Known Content-Type?"
  [ testCase "True ==> b4" $
      after' b5 resource req @?= Decision' "b4"
  , testCase "False ==> 415 Unsupported Media Type" $
      let r = resource { knownContentType = return False }
      in after' b5 r req @?= error' unsupportedMediaType415
  ]
b5Tests :: TestTree
b5Tests = decisionTestGroup "b5" "Known Content-Type?"
  [ testCase "True ==> b4" $
      after' b5 resource req @?= Decision' "b4"
  , testCase "False ==> 415 Unsupported Media Type" $
      let r = resource { knownContentType = return False }
      in after' b5 r req @?= error' unsupportedMediaType415
  ]
b5Tests = decisionTestGroup "b5" "Known Content-Type?"
  [ testCase "True ==> b4" $
      after' b5 resource req @?= Decision' "b4"
  , testCase "False ==> 415 Unsupported Media Type" $
      let r = resource { knownContentType = return False }
      in after' b5 r req @?= error' unsupportedMediaType415
  ]