16 lines
456 B
Haskell
16 lines
456 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import Database.MongoDB.Admin (serverVersion)
|
||
|
|
import Database.MongoDB.Connection (connect, host)
|
||
|
|
import Database.MongoDB.Query (access, slaveOk)
|
||
|
|
import Data.Text (unpack)
|
||
|
|
import Test.Hspec.Runner
|
||
|
|
import qualified Spec
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
p <- connect $ host "localhost"
|
||
|
|
version <- access p slaveOk "admin" serverVersion
|
||
|
|
putStrLn $ "Running tests with mongodb version: " ++ (unpack version)
|
||
|
|
hspecWith defaultConfig Spec.spec
|