Wire tests and GH actions

Test/Main.hs

@@ -16,9 +16,11 @@ import Network.Wai
 import IHP.ControllerPrelude
 import IHP.ViewPrelude
 
+import Test.UsersSpec
+
 main :: IO ()
 main = hspec do
-    tests
+    Test.UsersSpec.tests
 
 tests :: Spec
 tests = aroundAll (withIHPApp WebApplication config) do

Test/UsersSpec.hs

@@ -0,0 +1,33 @@
+module Test.UsersSpec where
+
+import IHP.Prelude
+
+import IHP.FrameworkConfig
+import IHP.Test.Mocking
+import IHP.HaskellSupport
+import IHP.ModelSupport
+import Test.Hspec
+import Config
+
+import Generated.Types
+import Web.Routes
+import Web.Types
+import Web.FrontController
+import Network.Wai
+import IHP.ControllerPrelude
+import IHP.ViewPrelude
+import Network.HTTP.Types.Status
+
+tests :: Spec
+tests = aroundAll (withIHPApp WebApplication config) do
+    describe "Users" do
+        it "should show users list on users page" $ withContext do
+            user <- newRecord @User
+                |> set #email "[email protected]"
+                |> createRecord
+
+            response <- withUser user do
+                callAction UsersAction
+
+            response `responseBodyShouldContain` "[email protected]"
+

flake.nix

@@ -44,6 +44,7 @@
                         hlint
                         jwt
                         mmark
+                        hspec
                     ];
                 };