rename test module
This commit is contained in:
parent
beb284a818
commit
459074b331
2 changed files with 3 additions and 3 deletions
|
@ -140,6 +140,6 @@ test-suite spec
|
||||||
, postgresql-simple
|
, postgresql-simple
|
||||||
other-modules: TestUtil
|
other-modules: TestUtil
|
||||||
, Spec
|
, Spec
|
||||||
, MainSpec
|
, AppMainSpec
|
||||||
default-language: Haskell2010
|
default-language: Haskell2010
|
||||||
build-tool-depends: hspec-discover:hspec-discover
|
build-tool-depends: hspec-discover:hspec-discover
|
||||||
|
|
|
@ -1,9 +1,8 @@
|
||||||
{-# LANGUAGE OverloadedStrings #-}
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
{-# LANGUAGE PackageImports #-}
|
{-# LANGUAGE PackageImports #-}
|
||||||
module MainSpec where
|
module AppMainSpec where
|
||||||
|
|
||||||
import Database.PostgreSQL.Transact
|
import Database.PostgreSQL.Transact
|
||||||
import Database.PostgreSQL.Simple (Only(..))
|
|
||||||
|
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
|
|
||||||
|
@ -14,6 +13,7 @@ import Control.Monad.IO.Class (liftIO)
|
||||||
import qualified "mateamt" Util as LibUtil
|
import qualified "mateamt" Util as LibUtil
|
||||||
import TestUtil
|
import TestUtil
|
||||||
|
|
||||||
|
spec :: Spec
|
||||||
spec = describeDB (const $ return ()) "Initialize DB" $
|
spec = describeDB (const $ return ()) "Initialize DB" $
|
||||||
itDB "call initialization script" $ do
|
itDB "call initialization script" $ do
|
||||||
conn <- getConnection
|
conn <- getConnection
|
Loading…
Reference in a new issue