diff --git a/test/Feature/InsertSpec.hs b/test/Feature/InsertSpec.hs index 160bf5c1d..edd1280d5 100644 --- a/test/Feature/InsertSpec.hs +++ b/test/Feature/InsertSpec.hs @@ -207,7 +207,7 @@ spec = afterAll_ resetDb $ around withApp $ do } - after_ (clearTable "no_pk") . context "with wrong number of columns" $ do + after_ (clearTable "no_pk") . context "with wrong number of columns" $ it "fails for too few" $ do p <- request methodPost "/no_pk" [("Content-Type", "text/csv")] "a,b\nfoo,bar\nbaz" liftIO $ simpleStatus p `shouldBe` badRequest400