n5Tests :: TestTree
n5Tests = decisionTestGroup "n5" "Server allows POST to missing resource? (resource did not exist previously)"
  [ testCase "True ==> n11" $
      let r = resource { allowMissingPost = return True }
      in after' n5 r req @?= Decision' "n11"
  , testCase "False ==> 410 Gone" $
      after' n5 resource req @?= error' gone410
  ]
n5Tests :: TestTree
n5Tests = decisionTestGroup "n5" "Server allows POST to missing resource? (resource did not exist previously)"
  [ testCase "True ==> n11" $
      let r = resource { allowMissingPost = return True }
      in after' n5 r req @?= Decision' "n11"
  , testCase "False ==> 410 Gone" $
      after' n5 resource req @?= error' gone410
  ]
n5Tests = decisionTestGroup "n5" "Server allows POST to missing resource? (resource did not exist previously)"
  [ testCase "True ==> n11" $
      let r = resource { allowMissingPost = return True }
      in after' n5 r req @?= Decision' "n11"
  , testCase "False ==> 410 Gone" $
      after' n5 resource req @?= error' gone410
  ]