l14Tests :: TestTree
l14Tests = decisionTestGroup "l14" "If-Modified-Since is a valid date?"
  [ testCase "True ==> l15" $
      after' (l14 dateStr) resource req @?= Decision' "l15"
  , testCase "False ==> m16" $
      after' (l14 "not a date") resource req @?= Decision' "m16"
  ]
l14Tests :: TestTree
l14Tests = decisionTestGroup "l14" "If-Modified-Since is a valid date?"
  [ testCase "True ==> l15" $
      after' (l14 dateStr) resource req @?= Decision' "l15"
  , testCase "False ==> m16" $
      after' (l14 "not a date") resource req @?= Decision' "m16"
  ]
l14Tests = decisionTestGroup "l14" "If-Modified-Since is a valid date?"
  [ testCase "True ==> l15" $
      after' (l14 dateStr) resource req @?= Decision' "l15"
  , testCase "False ==> m16" $
      after' (l14 "not a date") resource req @?= Decision' "m16"
  ]