m7Tests :: TestTree
m7Tests = decisionTestGroup "m7" "Server allows POST to missing resource?"
  [ testCase "True ==> n11" $
      let r = resource { allowMissingPost = return True }
      in after' m7 r req @?= Decision' "n11"
  , testCase "False ==> 404 Not Found" $
      after' m7 resource req @?= error' notFound404
  ]
m7Tests :: TestTree
m7Tests = decisionTestGroup "m7" "Server allows POST to missing resource?"
  [ testCase "True ==> n11" $
      let r = resource { allowMissingPost = return True }
      in after' m7 r req @?= Decision' "n11"
  , testCase "False ==> 404 Not Found" $
      after' m7 resource req @?= error' notFound404
  ]
m7Tests = decisionTestGroup "m7" "Server allows POST to missing resource?"
  [ testCase "True ==> n11" $
      let r = resource { allowMissingPost = return True }
      in after' m7 r req @?= Decision' "n11"
  , testCase "False ==> 404 Not Found" $
      after' m7 resource req @?= error' notFound404
  ]