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

add example for more complicated api

Browse source
This commit is contained in:
Mark Wotton 2016-04-21 17:13:26 -04:00
parent 4f4ca69672
commit 05e140314e
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -211,6 +211,15 @@ type GenAuthAPI =
genAuthAPI :: Proxy GenAuthAPI genAuthAPI :: Proxy GenAuthAPI
genAuthAPI = Proxy genAuthAPI = Proxy
type GenAuthAPI2 =
AuthProtect "auth-tag" :> ("private" :> "auth" :> Get '[JSON] Person
:<|> ("private2" :> "auth" :> Get '[JSON] Person))
genAuthAPI2 :: Proxy GenAuthAPI2
genAuthAPI2 = Proxy
type instance AuthServerData (AuthProtect "auth-tag") = () type instance AuthServerData (AuthProtect "auth-tag") = ()
type instance AuthClientData (AuthProtect "auth-tag") = () type instance AuthClientData (AuthProtect "auth-tag") = ()
@ -385,6 +394,13 @@ genAuthSpec = beforeAll (startWaiApp genAuthServer) $ afterAll endWaiApp $ do
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 (left show <$> runExceptT (getProtected authRequest manager baseUrl)) `shouldReturn` Right alice
it "Also works for more complicated apis" $ \(_, baseUrl) -> do
let (getProtected :<|> getOtherProtected) = client genAuthAPI2
let authRequest = mkAuthenticateReq () (\_ req -> SCR.addHeader "AuthHeader" ("cool" :: String) req)
(left show <$> runExceptT (getProtected authRequest 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
it "Authenticates a AuthProtect protected server appropriately" $ \(_, baseUrl) -> do it "Authenticates a AuthProtect protected server appropriately" $ \(_, baseUrl) -> do