n16Tests :: TestTree
n16Tests = decisionTestGroup "n16" "POST? (resource exists)"
  [ testCase "True ==> n11" $
      let rq = req { reqMethod = methodPost }
      in after' n16 resource rq @?= Decision' "n11"
  , testCase "False ==> o16" $
      after' n16 resource req @?= Decision' "o16"
  ]
n16Tests :: TestTree
n16Tests = decisionTestGroup "n16" "POST? (resource exists)"
  [ testCase "True ==> n11" $
      let rq = req { reqMethod = methodPost }
      in after' n16 resource rq @?= Decision' "n11"
  , testCase "False ==> o16" $
      after' n16 resource req @?= Decision' "o16"
  ]
n16Tests = decisionTestGroup "n16" "POST? (resource exists)"
  [ testCase "True ==> n11" $
      let rq = req { reqMethod = methodPost }
      in after' n16 resource rq @?= Decision' "n11"
  , testCase "False ==> o16" $
      after' n16 resource req @?= Decision' "o16"
  ]