19 lines
387 B
Haskell
19 lines
387 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module AppMainSpec where
|
|
|
|
import Database.PostgreSQL.Transact
|
|
|
|
import Test.Hspec
|
|
|
|
import Control.Monad.IO.Class (liftIO)
|
|
|
|
-- internal imports
|
|
|
|
import Util
|
|
import TestUtil
|
|
|
|
spec :: Spec
|
|
spec = describeDB (const $ return ()) "Initialize DB" $
|
|
itDB "calls initialization script" $ do
|
|
conn <- getConnection
|
|
liftIO $ shouldReturn (initDB conn) ()
|