From 3f342053f53a16e97d92972ef833fe47333093cf Mon Sep 17 00:00:00 2001
From: Mirrowel <Mirrowel.zz@gmail.com>
Date: Mon, 3 Jun 2024 17:57:11 +0200
Subject: [PATCH] 123

---
 test/Spec.hs |  14 +++++++-------
 users.db     | Bin 12288 -> 0 bytes
 2 files changed, 7 insertions(+), 7 deletions(-)
 delete mode 100644 users.db

diff --git a/test/Spec.hs b/test/Spec.hs
index 0a2c2be..d2a6d85 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -5,6 +5,7 @@ import UserManager
 import Database.SQLite.Simple
 import Control.Exception (bracket_)
 import System.Directory (removeFile, doesFileExist)
+import Data.String (fromString)
 
 main :: IO ()
 main = hspec $ do
@@ -12,21 +13,20 @@ main = hspec $ do
     beforeAll_ setupDB $
       afterAll_ cleanupDB $ do
         it "initializes the database" $ do
-          conn <- open "test_users.db"
+          conn <- open "users.db"
           tables <- query_ conn "SELECT name FROM sqlite_master WHERE type='table' AND name='users';" :: IO [Only String]
           close conn
           tables `shouldBe` [Only "users"]
 
         it "adds a user" $ do
           addUser "test_user" "test@example.com" "password"
-          users <- listUsers
+          users <- findUsers "test_user"
           users `shouldBe` [User "test_user" "test@example.com" "password"]
 
         it "lists users" $ do
           addUser "test_user1" "test1@example.com" "password1"
-          addUser "test_user2" "test2@example.com" "password2"
           users <- listUsers
-          users `shouldBe` [User "test_user1" "test1@example.com" "password1", User "test_user2" "test2@example.com" "password2"]
+          users `shouldBe` [User "test_user" "test@example.com" "password", User "test_user1" "test1@example.com" "password1" ]
 
         it "finds users by name" $ do
           addUser "unique_user" "unique@example.com" "password"
@@ -46,9 +46,9 @@ main = hspec $ do
 
 setupDB :: IO ()
 setupDB = do
-  conn <- open "test_users.db"
-  execute_ conn "CREATE TABLE users (name TEXT PRIMARY KEY, email TEXT, password TEXT)"
+  conn <- open "users.db"
+  execute_ conn "CREATE TABLE IF NOT EXISTS users (name TEXT PRIMARY KEY, email TEXT, password TEXT)"
   close conn
 
 cleanupDB :: IO ()
-cleanupDB = removeFile "test_users.db"
+cleanupDB = removeFile "users.db"
diff --git a/users.db b/users.db
deleted file mode 100644
index d8a44c0c44f72983be1d5d53c1d2a57243cfbb6c..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 12288
zcmeI1L2DC16vt<>Ynw!pDR|hHvN#YL4aV9@5L-}4DmjQ1Y)r+15H`)Ifh5~zH(K!I
z%`c)~p!hNR9qh@AcRe~YyICV_C|>nHkJ))|-hXD7-=5~pv;Dn6DETXYGV(%RCo6<f
z(%_sBQdZqkeb%UQ>{*~j9beYUWb^IE0{cla%qPre=a(%&9t1!D1V8`;KmY_l00ck)
z1V8`;{s96n>9XTE^n(+6y`h{2auS$F=3%?l?6i2Nxx3fmW{Te&dn3s^trs2swEgHw
zvwg@Pw+^dZj=aIp%vbrb7X<J8N#BH(N@mG<;7~Fc_vLADGE^t~t~U*R6L-z7U10`&
zuFq<o1=THfM%XuY&d!Qo6Z=xU8<|$2fdB}A00@8p2!H?xfB*=900{h-1j+?_z3v{U
z(<>KS@z9W`-spHJH;??$>{P1mh@Xo{w_{{G3shUNYTKx`7pU^F>Ru&hmxSAwL#Yn9
zQ}r2<o3`v$*50VQ-q;V{$cfR$ewtYQ%+JD|jt3{xXy3?PAbo%5dMJa?Y+BP^ElpTc
zo9@pkg;t6*rBKQnx7}n<?WE~eEqkqWttWdEf2^Ng<F&2`h+2I$qcgjDPV}ToCmDy@
zPMrC3NnX9wVi$z{VBgt=vQLTWNSP9#fdB}A00@8p2!H?xfB*=900@8p2>d01tJXS=
zYbN^g{pcWIR*B9PGjc1|2A!{1=!^RMb5)6D6<3ooL2XHezpDn~iVBNK*3MgNG^!O?
O+Kq|>nXKjHjQa~YAPq49