h12Tests :: TestTree
h12Tests = decisionTestGroup "h12" "Last-Modified > If-Unmodified-Since?"
  [ testCase "True ==> 412 Precondition Failed" $
      after' (h12 $ date { hdDay = 10 }) r req @?= error' preconditionFailed412
  , testCase "False ==> i12" $
      after' (h12 $ date { hdDay = 20 }) r req @?= Decision' "i12"
  ] where
    r = resource { lastModified = return date }
h12Tests :: TestTree
h12Tests = decisionTestGroup "h12" "Last-Modified > If-Unmodified-Since?"
  [ testCase "True ==> 412 Precondition Failed" $
      after' (h12 $ date { hdDay = 10 }) r req @?= error' preconditionFailed412
  , testCase "False ==> i12" $
      after' (h12 $ date { hdDay = 20 }) r req @?= Decision' "i12"
  ] where
    r = resource { lastModified = return date }
h12Tests = decisionTestGroup "h12" "Last-Modified > If-Unmodified-Since?"
  [ testCase "True ==> 412 Precondition Failed" $
      after' (h12 $ date { hdDay = 10 }) r req @?= error' preconditionFailed412
  , testCase "False ==> i12" $
      after' (h12 $ date { hdDay = 20 }) r req @?= Decision' "i12"
  ] where
    r = resource { lastModified = return date }