create items in test, not in the schema.

This commit is contained in:
Adam C. Baker
2014-12-29 17:57:31 -08:00
parent 2ae99daa12
commit 3756309b22
5 changed files with 18 additions and 34 deletions
+2 -1
View File
@@ -8,7 +8,8 @@ import Network.Wai.Test (SResponse(simpleHeaders,simpleStatus))
import SpecHelper
spec :: Spec
spec = beforeAll resetDb $ around withApp $
spec = beforeAll (resetDb >> createItems 15) . afterAll_ (clearTable "items")
. around withApp $
describe "GET /items" $ do
context "without range headers" $