l15Tests :: TestTree
l15Tests = decisionTestGroup "l15" "If-Modified-Since > Now?"
  [ testCase "True ==> m16" $
      let rq = req { reqTime = date { hdDay = 10 } }
      in after' (l15 date) resource rq @?= Decision' "m16"
  , testCase "False ==> l17" $
      after' (l15 date) resource req @?= Decision' "l17"
  ]
l15Tests :: TestTree
l15Tests = decisionTestGroup "l15" "If-Modified-Since > Now?"
  [ testCase "True ==> m16" $
      let rq = req { reqTime = date { hdDay = 10 } }
      in after' (l15 date) resource rq @?= Decision' "m16"
  , testCase "False ==> l17" $
      after' (l15 date) resource req @?= Decision' "l17"
  ]
l15Tests = decisionTestGroup "l15" "If-Modified-Since > Now?"
  [ testCase "True ==> m16" $
      let rq = req { reqTime = date { hdDay = 10 } }
      in after' (l15 date) resource rq @?= Decision' "m16"
  , testCase "False ==> l17" $
      after' (l15 date) resource req @?= Decision' "l17"
  ]