Compare commits
1 commit
master
...
make_tests
Author | SHA1 | Date | |
---|---|---|---|
f2d4c88768 |
3 changed files with 32 additions and 34 deletions
|
@ -168,32 +168,32 @@ executable mateamt
|
||||||
default-language: Haskell2010
|
default-language: Haskell2010
|
||||||
ghc-options: -Wall
|
ghc-options: -Wall
|
||||||
|
|
||||||
test-suite mateamt-test
|
-- test-suite mateamt-test
|
||||||
default-language: Haskell2010
|
-- default-language: Haskell2010
|
||||||
type: exitcode-stdio-1.0
|
-- type: exitcode-stdio-1.0
|
||||||
hs-source-dirs: test
|
-- hs-source-dirs: test
|
||||||
ghc-options: -Wall
|
-- ghc-options: -Wall
|
||||||
main-is: TestMain.hs
|
-- main-is: TestMain.hs
|
||||||
build-depends:
|
-- build-depends:
|
||||||
base >=4.14.1.0
|
-- base >=4.14.1.0
|
||||||
, mateamt
|
-- , mateamt
|
||||||
, text >=1.2.4.1
|
-- , text >=1.2.4.1
|
||||||
, time >=1.9.3
|
-- , time >=1.9.3
|
||||||
, mtl >=2.2.2
|
-- , mtl >=2.2.2
|
||||||
, containers >=0.6.2.1
|
-- , containers >=0.6.2.1
|
||||||
, bytestring >=0.10.12.0
|
-- , bytestring >=0.10.12.0
|
||||||
, hspec
|
-- , hspec
|
||||||
, hspec-wai
|
-- , hspec-wai
|
||||||
, hspec-wai-json
|
-- , hspec-wai-json
|
||||||
, warp
|
-- , warp
|
||||||
, wai
|
-- , wai
|
||||||
, pg-transact
|
-- , pg-transact
|
||||||
, tmp-postgres
|
-- , tmp-postgres
|
||||||
, resource-pool
|
-- , resource-pool
|
||||||
, postgresql-simple
|
-- , postgresql-simple
|
||||||
build-tool-depends:
|
-- build-tool-depends:
|
||||||
hspec-discover:hspec-discover == 2.*
|
-- hspec-discover:hspec-discover == 2.*
|
||||||
other-modules:
|
-- other-modules:
|
||||||
Spec
|
-- Spec
|
||||||
TestUtil
|
-- TestUtil
|
||||||
AppMainSpec
|
-- AppMainSpec
|
||||||
|
|
|
@ -1,5 +1,4 @@
|
||||||
{-# LANGUAGE OverloadedStrings #-}
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
{-# LANGUAGE PackageImports #-}
|
|
||||||
module AppMainSpec where
|
module AppMainSpec where
|
||||||
|
|
||||||
import Database.PostgreSQL.Transact
|
import Database.PostgreSQL.Transact
|
||||||
|
@ -10,11 +9,11 @@ import Control.Monad.IO.Class (liftIO)
|
||||||
|
|
||||||
-- internal imports
|
-- internal imports
|
||||||
|
|
||||||
import qualified "mateamt" Util as LibUtil
|
import Util
|
||||||
import TestUtil
|
import TestUtil
|
||||||
|
|
||||||
spec :: Spec
|
spec :: Spec
|
||||||
spec = describeDB (const $ return ()) "Initialize DB" $
|
spec = describeDB (const $ return ()) "Initialize DB" $
|
||||||
itDB "call initialization script" $ do
|
itDB "calls initialization script" $ do
|
||||||
conn <- getConnection
|
conn <- getConnection
|
||||||
liftIO $ shouldReturn (LibUtil.initDB conn) ()
|
liftIO $ shouldReturn (initDB conn) ()
|
||||||
|
|
|
@ -1,4 +1,3 @@
|
||||||
{-# LANGUAGE PackageImports #-}
|
|
||||||
module Main where
|
module Main where
|
||||||
|
|
||||||
import Test.Hspec
|
import Test.Hspec
|
||||||
|
|
Loading…
Reference in a new issue