From f8b26f8699d391d1558d95ccd907133403cb2b73 Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Sun, 14 Sep 2025 11:52:21 +0200 Subject: login works, ig. Will remake everything now --- test/Spec.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 test/Spec.hs (limited to 'test') diff --git a/test/Spec.hs b/test/Spec.hs new file mode 100644 index 0000000..1065caf --- /dev/null +++ b/test/Spec.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE QuasiQuotes #-} +{-# LANGUAGE OverloadedStrings #-} +module Main (main) where + +import Lib (app) +import Test.Hspec +import Test.Hspec.Wai + +main :: IO () +main = hspec spec + +spec :: Spec +spec = with (return app) $ do + describe "GET /users" $ do + it "responds with 200" $ do + get "/users" `shouldRespondWith` 200 + it "responds with [User]" $ do + let users = "[{\"userId\":1,\"userFirstName\":\"Isaac\",\"userLastName\":\"Newton\"},{\"userId\":2,\"userFirstName\":\"Albert\",\"userLastName\":\"Einstein\"}]" + get "/users" `shouldRespondWith` users -- cgit v1.2.3