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

Implement test

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