test-sandbox-compose-0.1.2: tests/test.hs

{-#LANGUAGE TemplateHaskell#-}
{-#LANGUAGE QuasiQuotes#-}
{-#LANGUAGE OverloadedStrings#-}

import Test.Hspec
import Text.Shakespeare.Text
import Test.Sandbox
import Test.Hspec.Sandbox

import qualified Data.Text as T

import Test.Cabal.Path
import System.Process
import System.Exit

main :: IO ()
main = withSandbox $ \ref -> do
  bin <-  getExePath "." "test-sandbox-compose"
  hspec $ do
    describe "run daemon" $ with ref $ do
      it "run daemon" $ do
        let args = ["daemon", "--conf", "sample/test-sandbox-compose.yml"]
        register "daemon" bin args def >>= start
    describe "Server Test" $ do
      it "help" $ do
        (c,o,e) <- readProcessWithExitCode bin ["--help"] []
        c `shouldBe` ExitSuccess
        e `shouldBe` ""
        o `shouldBe` T.unpack [sbt|Usage: test-sandbox-compose COMMAND
                                  |
                                  |Available options:
                                  |  -h,--help                Show this help text
                                  |
                                  |Available commands:
                                  |  up                       up registered service
                                  |  status                   show sandbox-state
                                  |  conf                     show internal-conf-file
                                  |  kill                     kill service
                                  |  logs                     show logs
                                  |  destroy                  destroy deamon
                                  |  daemon                   start daemon
                                  |]
      it "up" $ do
        (c,o,e) <- readProcessWithExitCode bin ["up"] []
        e `shouldBe` ""
        o `shouldBe` T.unpack [sbt|OK
                                  |]
        c `shouldBe` ExitSuccess
      it "kill" $ do
        (c,o,e) <- readProcessWithExitCode bin ["kill"] []
        e `shouldBe` ""
        o `shouldBe` T.unpack [sbt|OK
                                  |]
        c `shouldBe` ExitSuccess
      it "up" $ do
        (c,o,e) <- readProcessWithExitCode bin ["up"] []
        e `shouldBe` ""
        o `shouldBe` T.unpack [sbt|OK
                                  |]
        c `shouldBe` ExitSuccess
      it "destroy" $ do
        (c,o,e) <- readProcessWithExitCode bin ["destroy"] []
        e `shouldBe` ""
        o `shouldBe` T.unpack [sbt|OK
                                  |]
        c `shouldBe` ExitSuccess