Adam C. Baker
a93065a887
This will make it easier to support semantic API versioning, and makes code reuse easier right now.
16 lines
336 B
Haskell
16 lines
336 B
Haskell
module Main where
|
|
|
|
import Database.HDBC (runRaw, disconnect)
|
|
import Test.Hspec
|
|
import Spec
|
|
import SpecHelper (openConnection, loadFixture)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
c <-openConnection
|
|
runRaw c "drop schema if exists \"1\" cascade"
|
|
runRaw c "drop schema if exists dbapi cascade"
|
|
loadFixture "schema" c
|
|
disconnect c
|
|
hspec spec
|