m16Tests :: TestTree
m16Tests = decisionTestGroup "m16" "DELETE?"
  [ testCase "True ==> m20" $
      let rq = req { reqMethod = methodDelete }
      in after' m16 resource rq @?= Decision' "m20"
  , testCase "False ==> n16" $
      after' m16 resource req @?= Decision' "n16"
  ]
m16Tests :: TestTree
m16Tests = decisionTestGroup "m16" "DELETE?"
  [ testCase "True ==> m20" $
      let rq = req { reqMethod = methodDelete }
      in after' m16 resource rq @?= Decision' "m20"
  , testCase "False ==> n16" $
      after' m16 resource req @?= Decision' "n16"
  ]
m16Tests = decisionTestGroup "m16" "DELETE?"
  [ testCase "True ==> m20" $
      let rq = req { reqMethod = methodDelete }
      in after' m16 resource rq @?= Decision' "m20"
  , testCase "False ==> n16" $
      after' m16 resource req @?= Decision' "n16"
  ]