further test setup with hie

2026-03-26 10:21:51 +00:00 · 2020-04-16 11:39:26 -06:00
parent d3703a51af
commit 08654c3b2c
10 changed files with 97 additions and 85 deletions
--- a/test/Handler/AppSpec.hs
+++ b/test/Handler/AppSpec.hs
@@ -6,15 +6,11 @@ import Startlude
 import TestImport

 spec :: Spec
-spec = do
-    describe "GET /apps" $ do
+spec = describe "GET /apps" $
        withApp $ it "returns list of apps" $ do
            request $ do
                setMethod "GET"
                setUrl ("/apps" :: Text)
-            printBody
-            bodyContains ""
-            statusIs 200
-
-            
-
+            bodyContains "bitcoind"
+            bodyContains "version: 0.18.1"
+            statusIs 200