f6Tests :: TestTree
f6Tests = decisionTestGroup "f6" "Accept-Encoding exists?"
  [ testCase "True ==> f7" $
      let rq = req { reqHeaders = HashMap.singleton hAcceptEncoding ["gzip"] }
      in after' f6 resource rq @?= Decision' "f7"
  , testCase "False ==> g7" $
      after' f6 resource req @?= Decision' "g7"
  ]
f6Tests :: TestTree
f6Tests = decisionTestGroup "f6" "Accept-Encoding exists?"
  [ testCase "True ==> f7" $
      let rq = req { reqHeaders = HashMap.singleton hAcceptEncoding ["gzip"] }
      in after' f6 resource rq @?= Decision' "f7"
  , testCase "False ==> g7" $
      after' f6 resource req @?= Decision' "g7"
  ]
f6Tests = decisionTestGroup "f6" "Accept-Encoding exists?"
  [ testCase "True ==> f7" $
      let rq = req { reqHeaders = HashMap.singleton hAcceptEncoding ["gzip"] }
      in after' f6 resource rq @?= Decision' "f7"
  , testCase "False ==> g7" $
      after' f6 resource req @?= Decision' "g7"
  ]