o16Tests :: TestTree
o16Tests = decisionTestGroup "o16" "PUT? (resource exists)"
  [ testCase "True ==> o14" $
      let rq = req { reqMethod = methodPut }
      in after' o16 resource rq @?= Decision' "o14"
  , testCase "False ==> o18" $
      after' o16 resource req @?= Decision' "o18"
  ]
o16Tests :: TestTree
o16Tests = decisionTestGroup "o16" "PUT? (resource exists)"
  [ testCase "True ==> o14" $
      let rq = req { reqMethod = methodPut }
      in after' o16 resource rq @?= Decision' "o14"
  , testCase "False ==> o18" $
      after' o16 resource req @?= Decision' "o18"
  ]
o16Tests = decisionTestGroup "o16" "PUT? (resource exists)"
  [ testCase "True ==> o14" $
      let rq = req { reqMethod = methodPut }
      in after' o16 resource rq @?= Decision' "o14"
  , testCase "False ==> o18" $
      after' o16 resource req @?= Decision' "o18"
  ]