[#500] Start some basic work on trails service.

projects/trails/app/Trails.hs

@@ -1,6 +1,6 @@
 module Main where
 
-import Lib
+import qualified Mirza.Trails.Main as T (main)
 
 main :: IO ()
-main = someFunc
+main = T.main

projects/trails/src/Mirza/Trails/Client/Servant.hs

@@ -0,0 +1 @@
+module Mirza.Trails.Client.Servant where

projects/trails/src/Mirza/Trails/Main.hs

@@ -0,0 +1,6 @@
+module Mirza.Trails.Main where
+main :: IO ()
+main = putStrLn "Trails..."
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

projects/trails/stack.yaml

@@ -30,6 +30,8 @@ resolver: lts-13.28
 #   - wai
 packages:
 - .
+- '../mirza-common-haskell'
+- '../mirza-test-utils-haskell'
 # Dependency packages to be pulled from upstream that are not in the resolver.
 # These entries can reference officially published versions as well as
 # forks / in-progress versions pinned to a git hash. For example:
@@ -76,6 +78,6 @@ extra-deps:
 
 
 ghc-options:
-  $locals: -Wall
+  $locals: -Wall -Werror
 
 local-bin-path: dist

projects/trails/test/Mirza/Trails/Spec.hs

@@ -0,0 +1,19 @@
+module Main where
+
+import           Mirza.Trails.Tests.Client
+
+import           Test.Tasty                hiding (withResource)
+import           Test.Tasty.Runners        (NumThreads (..))
+
+import           Control.Exception         (bracket)
+import           Control.Monad.Except      (liftIO, runExceptT)
+
+main :: IO ()
+main = do
+  either (error . show) pure =<< (liftIO $ runExceptT $ makeDatabase testDbNameTrails)
+
+  clientTests <- clientSpec
+
+  defaultMain $ localOption (NumThreads 1) $ testGroup "tests"
+    [ clientTests
+    ]

projects/trails/test/Mirza/Trails/Tests/Client.hs

@@ -0,0 +1,37 @@
+module Mirza.Trails.Tests.Client where
+
+
+import           Mirza.Trails.Client.Servant
+
+import           Mirza.Trails.Tests.InitClient
+
+import           Mirza.Common.Tests.ServantUtils
+
+import           Test.Hspec.Expectations
+import           Test.Tasty
+import           Test.Tasty.HUnit
+
+import           Control.Exception               (bracket)
+
+
+-- === OR Servant Client tests
+clientSpec :: IO TestTree
+clientSpec = do
+
+
+
+
+  let healthTests = testCaseSteps "Provides health status" $ \step ->
+        bracket runTrailsApp (\(a,b,_) -> endWaiApp (a,b)) $ \(_tid, baseurl) -> do
+          let http = runClient baseurl
+
+          step "Status results in 200"
+          -- healthResult <- http health
+          -- healthResult `shouldSatisfy` isRight
+          -- healthResult `shouldBe` (Right HealthResponse)
+
+
+  pure $ testGroup "Trails HTTP Client tests"
+        [
+          healthTests
+        ]

projects/trails/trails.cabal

@@ -26,36 +26,50 @@ source-repository head
 
 library
   exposed-modules:
-      Lib
+      Mirza.Trails.Main
+      Mirza.Trails.Client.Servant
   other-modules:
       Paths_trails
   hs-source-dirs:
       src
   build-depends:
       base >=4.7 && <5
+    , mirza-test-utils-haskell
   default-language: Haskell2010
 
-executable trails-exe
-  main-is: Main.hs
+executable trails
+  main-is: Trails.hs
   other-modules:
       Paths_trails
   hs-source-dirs:
       app
-  ghc-options: -threaded -rtsopts -with-rtsopts=-N
+  ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall -Werror
   build-depends:
       base >=4.7 && <5
     , trails
   default-language: Haskell2010
 
 test-suite trails-test
   type: exitcode-stdio-1.0
-  main-is: Spec.hs
+  main-is: Mirza/Trails/Spec.hs
   other-modules:
       Paths_trails
+    , Mirza.Trails.Tests.Client
+    , Mirza.Trails.Tests.InitClient
   hs-source-dirs:
       test
   ghc-options: -threaded -rtsopts -with-rtsopts=-N -Wall -Werror
   build-depends:
       base >=4.7 && <5
     , trails
+    , mirza-common-haskell
+    , mirza-test-utils-haskell
+    , hspec-expectations
+    , mtl
+    , tasty
+    , tasty-hunit
   default-language: Haskell2010
+
+source-repository head
+  type:     git
+  location: https://github.com/data61/Mirza