eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

fix test

Browse source
This commit is contained in:
Mark Wotton 2016-05-04 17:37:12 -04:00
parent 05e140314e
commit a79c718705
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
servant-client/test/Servant/ClientSpec.hs
View file

@ -395,10 +395,9 @@ genAuthSpec = beforeAll (startWaiApp genAuthServer) $ afterAll endWaiApp $ do
(left show <$> runExceptT (getProtected authRequest manager baseUrl)) `shouldReturn` Right alice (left show <$> runExceptT (getProtected authRequest manager baseUrl)) `shouldReturn` Right alice
it "Also works for more complicated apis" $ \(_, baseUrl) -> do it "Also works for more complicated apis" $ \(_, baseUrl) -> do
let (getProtected :<|> getOtherProtected) = client genAuthAPI2
let authRequest = mkAuthenticateReq () (\_ req -> SCR.addHeader "AuthHeader" ("cool" :: String) req) let authRequest = mkAuthenticateReq () (\_ req -> SCR.addHeader "AuthHeader" ("cool" :: String) req)
(left show <$> runExceptT (getProtected authRequest manager baseUrl)) `shouldReturn` Right alice let (getProtected :<|> getOtherProtected) = client genAuthAPI2 $ authRequest
(left show <$> runExceptT (getProtected manager baseUrl)) `shouldReturn` Right alice
context "Authentication is rejected when requests are not authenticated properly" $ do context "Authentication is rejected when requests are not authenticated properly" $ do