h7Tests :: TestTree
h7Tests = decisionTestGroup "h7" "If-Match exists? (no existing resource)"
  [ testCase "True ==> 412 Precondition Failed" $
      let rq = req { reqHeaders = HashMap.singleton hIfMatch ["webcrank"] }
      in after' h7 resource rq @?= error' preconditionFailed412
  , testCase "False ==> i7" $
      after' h7 resource req @?= Decision' "i7"
  ]
h7Tests :: TestTree
h7Tests = decisionTestGroup "h7" "If-Match exists? (no existing resource)"
  [ testCase "True ==> 412 Precondition Failed" $
      let rq = req { reqHeaders = HashMap.singleton hIfMatch ["webcrank"] }
      in after' h7 resource rq @?= error' preconditionFailed412
  , testCase "False ==> i7" $
      after' h7 resource req @?= Decision' "i7"
  ]
h7Tests = decisionTestGroup "h7" "If-Match exists? (no existing resource)"
  [ testCase "True ==> 412 Precondition Failed" $
      let rq = req { reqHeaders = HashMap.singleton hIfMatch ["webcrank"] }
      in after' h7 resource rq @?= error' preconditionFailed412
  , testCase "False ==> i7" $
      after' h7 resource req @?= Decision' "i7"
  ]