base test setup

test/Handler/AppSpec.hs

@@ -0,0 +1,20 @@
+{-# LANGUAGE TypeFamilies #-}
+
+module Handler.AppSpec (spec) where
+
+import Startlude
+import TestImport
+
+spec :: Spec
+spec = do
+    describe "GET /apps" $ do
+        withApp $ it "returns list of apps" $ do
+            request $ do
+                setMethod "GET"
+                setUrl ("/apps" :: Text)
+            printBody
+            bodyContains ""
+            statusIs 200
+
+            
+