i7Tests :: TestTree
i7Tests = decisionTestGroup "i7" "PUT?"
  [ testCase "True ==> i4" $
      let rq = req { reqMethod = methodPut }
      in after' i7 resource rq @?= Decision' "i4"
  , testCase "False ==> k7" $
      after' i7 resource req @?= Decision' "k7"
  ]
i7Tests :: TestTree
i7Tests = decisionTestGroup "i7" "PUT?"
  [ testCase "True ==> i4" $
      let rq = req { reqMethod = methodPut }
      in after' i7 resource rq @?= Decision' "i4"
  , testCase "False ==> k7" $
      after' i7 resource req @?= Decision' "k7"
  ]
i7Tests = decisionTestGroup "i7" "PUT?"
  [ testCase "True ==> i4" $
      let rq = req { reqMethod = methodPut }
      in after' i7 resource rq @?= Decision' "i4"
  , testCase "False ==> k7" $
      after' i7 resource req @?= Decision' "k7"
  ]