Silence the database fixture output from stdout
This commit is contained in:
+2
-1
@@ -1,6 +1,7 @@
|
|||||||
{-# LANGUAGE QuasiQuotes #-}
|
{-# LANGUAGE QuasiQuotes #-}
|
||||||
module Main where
|
module Main where
|
||||||
|
|
||||||
|
import Control.Monad (void)
|
||||||
import qualified Hasql as H
|
import qualified Hasql as H
|
||||||
import System.Process
|
import System.Process
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
@@ -22,4 +23,4 @@ main = do
|
|||||||
|
|
||||||
loadFixture :: FilePath -> IO()
|
loadFixture :: FilePath -> IO()
|
||||||
loadFixture name =
|
loadFixture name =
|
||||||
callProcess "psql" ["-U", "postgres", "-d", "dbapi_test", "-a", "-f", "test/fixtures/" ++ name ++ ".sql"]
|
void $ readProcess "psql" ["-U", "postgres", "-d", "dbapi_test", "-a", "-f", "test/fixtures/" ++ name ++ ".sql"] []
|
||||||
|
|||||||
Reference in New Issue
Block a user