b4Tests :: TestTree
b4Tests = decisionTestGroup "b4" "Req Entity Too Large?"
  [ testCase "True ==> b3" $
      after' b4 resource req @?= Decision' "b3"
  , testCase "False ==> 413 Request Entity Too Large" $
      let r = resource { validEntityLength = return False }
      in after' b4 r req @?= error' requestEntityTooLarge413
  ]
b4Tests :: TestTree
b4Tests = decisionTestGroup "b4" "Req Entity Too Large?"
  [ testCase "True ==> b3" $
      after' b4 resource req @?= Decision' "b3"
  , testCase "False ==> 413 Request Entity Too Large" $
      let r = resource { validEntityLength = return False }
      in after' b4 r req @?= error' requestEntityTooLarge413
  ]
b4Tests = decisionTestGroup "b4" "Req Entity Too Large?"
  [ testCase "True ==> b3" $
      after' b4 resource req @?= Decision' "b3"
  , testCase "False ==> 413 Request Entity Too Large" $
      let r = resource { validEntityLength = return False }
      in after' b4 r req @?= error' requestEntityTooLarge413
  ]