l5Tests :: TestTree
l5Tests = decisionTestGroup "l5" "Moved temporarily?"
  [ testCase "True ==> 307 Moved Temporarily" $
      let
        uri = "http://example.com/abc"
        r = resource { movedTemporarily = return uri }
      in afterHdrs l5 r req @?= (Done' temporaryRedirect307, HashMap.singleton hLocation [uri])
  , testCase "False ==> m5" $
      after' l5 resource req @?= Decision' "m5"
  ]
l5Tests :: TestTree
l5Tests = decisionTestGroup "l5" "Moved temporarily?"
  [ testCase "True ==> 307 Moved Temporarily" $
      let
        uri = "http://example.com/abc"
        r = resource { movedTemporarily = return uri }
      in afterHdrs l5 r req @?= (Done' temporaryRedirect307, HashMap.singleton hLocation [uri])
  , testCase "False ==> m5" $
      after' l5 resource req @?= Decision' "m5"
  ]
l5Tests = decisionTestGroup "l5" "Moved temporarily?"
  [ testCase "True ==> 307 Moved Temporarily" $
      let
        uri = "http://example.com/abc"
        r = resource { movedTemporarily = return uri }
      in afterHdrs l5 r req @?= (Done' temporaryRedirect307, HashMap.singleton hLocation [uri])
  , testCase "False ==> m5" $
      after' l5 resource req @?= Decision' "m5"
  ]