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"
  loadFixture "schema" c
  disconnect c
  hspec spec