From 59ff5a29c7b1d855b9a8f2126abe565e21963e0c Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Fri, 27 Jan 2023 11:15:03 -0600
Subject: [PATCH] Implement test

---
 test/Spec.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/Spec.hs b/test/Spec.hs
index 1946b5b..0d50804 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -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