l7Tests :: TestTree
l7Tests = decisionTestGroup "l7" "POST? (no existing resource)"
  [ testCase "True ==> m7" $
      let rq = req { reqMethod = methodPost }
      in after' l7 resource rq @?= Decision' "m7"
  , testCase "False ==> 404 Not Found" $
      after' l7 resource req @?= error' notFound404
  ]
l7Tests :: TestTree
l7Tests = decisionTestGroup "l7" "POST? (no existing resource)"
  [ testCase "True ==> m7" $
      let rq = req { reqMethod = methodPost }
      in after' l7 resource rq @?= Decision' "m7"
  , testCase "False ==> 404 Not Found" $
      after' l7 resource req @?= error' notFound404
  ]
l7Tests = decisionTestGroup "l7" "POST? (no existing resource)"
  [ testCase "True ==> m7" $
      let rq = req { reqMethod = methodPost }
      in after' l7 resource rq @?= Decision' "m7"
  , testCase "False ==> 404 Not Found" $
      after' l7 resource req @?= error' notFound404
  ]