2021-02-01 01:25:52 +00:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
|
{-# LANGUAGE PackageImports #-}
|
2021-02-05 18:19:26 +00:00
|
|
|
module AppMainSpec where
|
2021-02-01 01:25:52 +00:00
|
|
|
|
|
|
|
|
import Database.PostgreSQL.Transact
|
|
|
|
|
|
|
|
|
|
import Test.Hspec
|
|
|
|
|
|
|
|
|
|
import Control.Monad.IO.Class (liftIO)
|
|
|
|
|
|
|
|
|
|
-- internal imports
|
|
|
|
|
|
|
|
|
|
import qualified "mateamt" Util as LibUtil
|
|
|
|
|
import TestUtil
|
|
|
|
|
|
2021-02-05 18:19:26 +00:00
|
|
|
spec :: Spec
|
2021-02-01 01:25:52 +00:00
|
|
|
spec = describeDB (const $ return ()) "Initialize DB" $
|
|
|
|
|
itDB "call initialization script" $ do
|
|
|
|
|
conn <- getConnection
|
|
|
|
|
liftIO $ shouldReturn (LibUtil.initDB conn) ()
|
