b3Tests :: TestTree
b3Tests = decisionTestGroup "b3" "OPTIONS?"
  [ testCase "True ==> 200 Ok" $
      let
        r = resource { options = return [("X-Tra", "Webcrank")] }
        rq = req { reqMethod = methodOptions }
      in afterHdrs b3 r rq @?= (Done' ok200, HashMap.singleton "X-Tra" ["Webcrank"])
  , testCase "False ==> c3" $
      after' b3 resource req @?= Decision' "c3"
  ]
b3Tests :: TestTree
b3Tests = decisionTestGroup "b3" "OPTIONS?"
  [ testCase "True ==> 200 Ok" $
      let
        r = resource { options = return [("X-Tra", "Webcrank")] }
        rq = req { reqMethod = methodOptions }
      in afterHdrs b3 r rq @?= (Done' ok200, HashMap.singleton "X-Tra" ["Webcrank"])
  , testCase "False ==> c3" $
      after' b3 resource req @?= Decision' "c3"
  ]
b3Tests = decisionTestGroup "b3" "OPTIONS?"
  [ testCase "True ==> 200 Ok" $
      let
        r = resource { options = return [("X-Tra", "Webcrank")] }
        rq = req { reqMethod = methodOptions }
      in afterHdrs b3 r rq @?= (Done' ok200, HashMap.singleton "X-Tra" ["Webcrank"])
  , testCase "False ==> c3" $
      after' b3 resource req @?= Decision' "c3"
  ]