o20Tests :: TestTree
o20Tests = decisionTestGroup "o20" "Response includes an entity?"
  [ testCase "True ==> o18" $
      let
        body rd = rd { _reqDataRespBody = Just "webcrank" }
        aft = fst $ afterWith o20 resource req body
      in aft @?= Decision' "o18"
  , testCase "False ==> 204 No Content" $
      after' o20 resource req @?= Done' noContent204
  ]
o20Tests :: TestTree
o20Tests = decisionTestGroup "o20" "Response includes an entity?"
  [ testCase "True ==> o18" $
      let
        body rd = rd { _reqDataRespBody = Just "webcrank" }
        aft = fst $ afterWith o20 resource req body
      in aft @?= Decision' "o18"
  , testCase "False ==> 204 No Content" $
      after' o20 resource req @?= Done' noContent204
  ]
o20Tests = decisionTestGroup "o20" "Response includes an entity?"
  [ testCase "True ==> o18" $
      let
        body rd = rd { _reqDataRespBody = Just "webcrank" }
        aft = fst $ afterWith o20 resource req body
      in aft @?= Decision' "o18"
  , testCase "False ==> 204 No Content" $
      after' o20 resource req @?= Done' noContent204
  ]