Compare commits

...

1 commit

Author SHA1 Message Date
f2d4c88768 disable test suite 2022-09-16 15:55:22 +02:00
3 changed files with 32 additions and 34 deletions

View file

@ -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

View file

@ -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) ()

View file

@ -1,4 +1,3 @@
{-# LANGUAGE PackageImports #-}
module Main where module Main where
import Test.Hspec import Test.Hspec