k13Tests :: TestTree
k13Tests = decisionTestGroup "k13" "ETag in If-None-Match?"
  [ testCase "True ==> j18" $
      let r = resource { generateETag = return $ StrongETag "webcrank" }
      in after' (k13 "\"webcrank\"") r req @?= Decision' "j18"
  , testCase "False (no ETag) ==> l13" $
      after' (k13 "\"webcrank\"") resource req @?= Decision' "l13"
  , testCase "False (mismatch ETag) ==> l13" $
      let r = resource { generateETag = return $ StrongETag "webcrank123" }
      in after' (k13 "\"webcrank456\"") r req @?= Decision' "l13"
  ]
k13Tests :: TestTree
k13Tests = decisionTestGroup "k13" "ETag in If-None-Match?"
  [ testCase "True ==> j18" $
      let r = resource { generateETag = return $ StrongETag "webcrank" }
      in after' (k13 "\"webcrank\"") r req @?= Decision' "j18"
  , testCase "False (no ETag) ==> l13" $
      after' (k13 "\"webcrank\"") resource req @?= Decision' "l13"
  , testCase "False (mismatch ETag) ==> l13" $
      let r = resource { generateETag = return $ StrongETag "webcrank123" }
      in after' (k13 "\"webcrank456\"") r req @?= Decision' "l13"
  ]
k13Tests = decisionTestGroup "k13" "ETag in If-None-Match?"
  [ testCase "True ==> j18" $
      let r = resource { generateETag = return $ StrongETag "webcrank" }
      in after' (k13 "\"webcrank\"") r req @?= Decision' "j18"
  , testCase "False (no ETag) ==> l13" $
      after' (k13 "\"webcrank\"") resource req @?= Decision' "l13"
  , testCase "False (mismatch ETag) ==> l13" $
      let r = resource { generateETag = return $ StrongETag "webcrank123" }
      in after' (k13 "\"webcrank456\"") r req @?= Decision' "l13"
  ]