b7Tests :: TestTree
b7Tests = decisionTestGroup "b7" "Forbidden?"
  [ testCase "True ==> 403 Forbidden" $
      let r = resource { forbidden = return True }
      in after' b7 r req @?= error' forbidden403
  , testCase "False ==> b6" $
      after' b7 resource req @?= Decision' "b6"
 ]
b7Tests :: TestTree
b7Tests = decisionTestGroup "b7" "Forbidden?"
  [ testCase "True ==> 403 Forbidden" $
      let r = resource { forbidden = return True }
      in after' b7 r req @?= error' forbidden403
  , testCase "False ==> b6" $
      after' b7 resource req @?= Decision' "b6"
 ]
b7Tests = decisionTestGroup "b7" "Forbidden?"
  [ testCase "True ==> 403 Forbidden" $
      let r = resource { forbidden = return True }
      in after' b7 r req @?= error' forbidden403
  , testCase "False ==> b6" $
      after' b7 resource req @?= Decision' "b6"
 ]