b6Tests :: TestTree
b6Tests = decisionTestGroup "b6" "Okay Content-* Headers?"
  [ testCase "True ==> b5" $
      after' b6 resource req @?= Decision' "b5"
  , testCase "False ==> 501 Not Implemented" $
    let r = resource { validContentHeaders = return False }
    in after' b6 r req @?= error' notImplemented501
  ]
b6Tests :: TestTree
b6Tests = decisionTestGroup "b6" "Okay Content-* Headers?"
  [ testCase "True ==> b5" $
      after' b6 resource req @?= Decision' "b5"
  , testCase "False ==> 501 Not Implemented" $
    let r = resource { validContentHeaders = return False }
    in after' b6 r req @?= error' notImplemented501
  ]
b6Tests = decisionTestGroup "b6" "Okay Content-* Headers?"
  [ testCase "True ==> b5" $
      after' b6 resource req @?= Decision' "b5"
  , testCase "False ==> 501 Not Implemented" $
    let r = resource { validContentHeaders = return False }
    in after' b6 r req @?= error' notImplemented501
  ]