Create test fixtures

2014-08-23 15:38:40 -07:00
parent d6004ee41f
commit a3a6108d49
3 changed files with 45 additions and 14 deletions
@@ -12,7 +12,7 @@ import Types (SqlRow(..))
 import SpecHelper

 spec :: Spec
-spec = beforeAll (loadFixture "schema") $ do
+spec = around dbWithSchema $ do
  describe "insert" $
    it "can insert into an empty table" $ \conn -> do
      _ <- insert 1 "auto_incrementing_pk" (SqlRow [