b10Tests :: TestTree
b10Tests = decisionTestGroup "b10" "Method allowed?"
  [ testCase "True ==> b9" $
      after' b10 resource req @?= Decision' "b9"
  , testCase "False ==> 405 Method Not Allowed" $
      let rq = req { reqMethod = methodPost }
      in afterHdrs b10 resource rq @?=
        (error' methodNotAllowed405, HashMap.singleton hAllow ["GET, HEAD"])
  ]
b10Tests :: TestTree
b10Tests = decisionTestGroup "b10" "Method allowed?"
  [ testCase "True ==> b9" $
      after' b10 resource req @?= Decision' "b9"
  , testCase "False ==> 405 Method Not Allowed" $
      let rq = req { reqMethod = methodPost }
      in afterHdrs b10 resource rq @?=
        (error' methodNotAllowed405, HashMap.singleton hAllow ["GET, HEAD"])
  ]
b10Tests = decisionTestGroup "b10" "Method allowed?"
  [ testCase "True ==> b9" $
      after' b10 resource req @?= Decision' "b9"
  , testCase "False ==> 405 Method Not Allowed" $
      let rq = req { reqMethod = methodPost }
      in afterHdrs b10 resource rq @?=
        (error' methodNotAllowed405, HashMap.singleton hAllow ["GET, HEAD"])
  ]