h11Tests :: TestTree
h11Tests = decisionTestGroup "h11" "If-Unmodified-Since is valid date?"
  [ testCase "True ==> h12" $
      after' (h11 dateStr) resource req @?= Decision' "h12"
  , testCase "False ==> i12" $
      after' (h11 "not a date") resource req @?= Decision' "i12"
  ]
h11Tests :: TestTree
h11Tests = decisionTestGroup "h11" "If-Unmodified-Since is valid date?"
  [ testCase "True ==> h12" $
      after' (h11 dateStr) resource req @?= Decision' "h12"
  , testCase "False ==> i12" $
      after' (h11 "not a date") resource req @?= Decision' "i12"
  ]
h11Tests = decisionTestGroup "h11" "If-Unmodified-Since is valid date?"
  [ testCase "True ==> h12" $
      after' (h11 dateStr) resource req @?= Decision' "h12"
  , testCase "False ==> i12" $
      after' (h11 "not a date") resource req @?= Decision' "i12"
  ]