only create schema once

This commit is contained in:
Adam C. Baker
2014-12-29 17:57:31 -08:00
parent 23a75aefcc
commit c9b960f955
10 changed files with 20 additions and 14 deletions
+1 -1
View File
@@ -8,7 +8,7 @@ import Network.Wai.Test (SResponse(simpleHeaders,simpleStatus))
import SpecHelper
spec :: Spec
spec = beforeAll (resetDb >> createItems 15) . afterAll_ (clearTable "items")
spec = beforeAll (clearTable "items" >> createItems 15) . afterAll_ (clearTable "items")
. around withApp $
describe "GET /items" $ do