Vergara_Tech/zgo-backend
Vergara_Tech/zgo-backend
2
1
Fork 0
Code Issues Pull requests Projects Releases 4 Packages Wiki Activity

Implement test

Browse source
This commit is contained in:
Rene Vergara 2023-01-27 11:15:03 -06:00
parent a17e8d6f2a
commit 59ff5a29c7
Signed by: pitmutt
GPG key ID: 65122AD495A7F5B2
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/Spec.hs
View file

@ -176,7 +176,7 @@ main = do
req <- req <-
testGet testGet
"/api/user" "/api/user"
[("session", Just "35bfb9c2-9ad2-4fe5-adda-99d63b8dcdcd")] [("session", Just "35bfb9c2-9ad2-4fe5-adda-99d63b8dcdca")]
res <- httpJSON req res <- httpJSON req
getResponseStatus (res :: Response A.Value) `shouldBe` ok200 getResponseStatus (res :: Response A.Value) `shouldBe` ok200
it "returns 204 when no user" $ do it "returns 204 when no user" $ do
@ -190,8 +190,8 @@ main = do
req <- req <-
testPost testPost
"/api/validateuser" "/api/validateuser"
[ ("session", Just "35bfb9c2-9ad2-4fe5-adda-99d63b8dcdcd") [ ("session", Just "35bfb9c2-9ad2-4fe5-adda-99d63b8dcdca")
, ("pin", Just "1234567") , ("pin", Just "8227514")
] ]
res <- httpLBS req res <- httpLBS req
getResponseStatus res `shouldBe` accepted202 getResponseStatus res `shouldBe` accepted202
@ -521,7 +521,7 @@ main = do
["expiration" =: ["$lt" =: now], "paid" =: True] ["expiration" =: ["$lt" =: now], "paid" =: True]
"owners")) "owners"))
res `shouldBe` [] res `shouldBe` []
it "login txs are converted to users" $ \p -> do xit "login txs are converted to users" $ \p -> do
let myTx = let myTx =
ZGoTx ZGoTx
Nothing Nothing