further test setup with hie

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

test/Main.hs

@@ -3,9 +3,11 @@ module Main where
 import          Test.Hspec.Runner
 import qualified Spec
 import          Test.Hspec.Formatters
-import qualified Handler.AppSpec as A
+import Startlude
+import GHC.IO.Encoding
+
 
 main :: IO ()
 main = do
-    _ <- A.spec
+    setLocaleEncoding utf8
     hspecWith defaultConfig { configFormatter = Just progress } Spec.spec

test/Spec.hs

@@ -1 +1 @@
-{-# OPTIONS_GHC -F -pgmF hspec-discover #-}
+{-# OPTIONS_GHC -F -pgmF hspec-discover -optF --module-name=Spec #-}