m5Tests :: TestTree
m5Tests = decisionTestGroup "m5" "POST? (resource previously existed)"
  [ testCase "True ==> n5" $
      let rq = req { reqMethod = methodPost }
      in after' m5 resource rq @?= Decision' "n5"
  , testCase "False ==> 410 Gone" $
      after' m5 resource req @?= error' gone410
  ]
m5Tests :: TestTree
m5Tests = decisionTestGroup "m5" "POST? (resource previously existed)"
  [ testCase "True ==> n5" $
      let rq = req { reqMethod = methodPost }
      in after' m5 resource rq @?= Decision' "n5"
  , testCase "False ==> 410 Gone" $
      after' m5 resource req @?= error' gone410
  ]
m5Tests = decisionTestGroup "m5" "POST? (resource previously existed)"
  [ testCase "True ==> n5" $
      let rq = req { reqMethod = methodPost }
      in after' m5 resource rq @?= Decision' "n5"
  , testCase "False ==> 410 Gone" $
      after' m5 resource req @?= error' gone410
  ]