b9Tests :: TestTree
b9Tests = decisionTestGroup "b9" "Malformed?"
  [ testCase "True ==> 400 Malformed Request" $
      let r = resource { malformedRequest = return True }
      in after' b9 r req @?= error' badRequest400
  , testCase "False ==> b8" $
      after' b9 resource req @?= Decision' "b8"
 ]
b9Tests :: TestTree
b9Tests = decisionTestGroup "b9" "Malformed?"
  [ testCase "True ==> 400 Malformed Request" $
      let r = resource { malformedRequest = return True }
      in after' b9 r req @?= error' badRequest400
  , testCase "False ==> b8" $
      after' b9 resource req @?= Decision' "b8"
 ]
b9Tests = decisionTestGroup "b9" "Malformed?"
  [ testCase "True ==> 400 Malformed Request" $
      let r = resource { malformedRequest = return True }
      in after' b9 r req @?= error' badRequest400
  , testCase "False ==> b8" $
      after' b9 resource req @?= Decision' "b8"
 ]