p11Tests :: TestTree
p11Tests = decisionTestGroup "p11" "New resource?"
  [ testCase "True ==> 201 Created" $
      let
        loc rd = rd { _reqDataRespHeaders = HashMap.singleton hLocation ["http://example.com/abc"] }
        aft = fst $ afterWith p11 resource req loc
      in aft @?= Done' created201
  , testCase "False ==> o20" $
      after' p11 resource req @?= Decision' "o20"
  ]
p11Tests :: TestTree
p11Tests = decisionTestGroup "p11" "New resource?"
  [ testCase "True ==> 201 Created" $
      let
        loc rd = rd { _reqDataRespHeaders = HashMap.singleton hLocation ["http://example.com/abc"] }
        aft = fst $ afterWith p11 resource req loc
      in aft @?= Done' created201
  , testCase "False ==> o20" $
      after' p11 resource req @?= Decision' "o20"
  ]
p11Tests = decisionTestGroup "p11" "New resource?"
  [ testCase "True ==> 201 Created" $
      let
        loc rd = rd { _reqDataRespHeaders = HashMap.singleton hLocation ["http://example.com/abc"] }
        aft = fst $ afterWith p11 resource req loc
      in aft @?= Done' created201
  , testCase "False ==> o20" $
      after' p11 resource req @?= Decision' "o20"
  ]