From 0058b5df99cf2dae0809eec9fd8a91e77a853dbf Mon Sep 17 00:00:00 2001 From: Moti Zilberman Date: Mon, 8 Feb 2016 14:29:47 +0200 Subject: [PATCH 1/3] Minor proofreading in InsertSpec s/csv/json/ in line 24 --- test/Feature/InsertSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Feature/InsertSpec.hs b/test/Feature/InsertSpec.hs index 54eb3be79..3ca57e8ed 100644 --- a/test/Feature/InsertSpec.hs +++ b/test/Feature/InsertSpec.hs @@ -21,7 +21,7 @@ import TestTypes(IncPK(..), CompoundPK(..)) spec :: DbStructure -> H.Connection -> Spec spec struct c = beforeAll_ resetDb $ around (withApp cfgDefault struct c) $ do describe "Posting new record" $ do - context "disparate csv types" $ do + context "disparate json types" $ do it "accepts disparate json types" $ do p <- post "/menagerie" [json| { From b50882db3a52287852ac5c348942c390e9e5c310 Mon Sep 17 00:00:00 2001 From: Moti Zilberman Date: Mon, 8 Feb 2016 15:52:40 +0200 Subject: [PATCH 2/3] [ci skip] Fix typo in InsertSpec --- test/Feature/InsertSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Feature/InsertSpec.hs b/test/Feature/InsertSpec.hs index 3ca57e8ed..b42b25eec 100644 --- a/test/Feature/InsertSpec.hs +++ b/test/Feature/InsertSpec.hs @@ -130,7 +130,7 @@ spec struct c = beforeAll_ resetDb $ around (withApp cfgDefault struct c) $ do it "fails returning a 409 Conflict" $ post "/simple_pk" [json| { "k":"k1", "extra":"e1" } |] `shouldRespondWith` 409 - context "attempting to insert a row with confliting unique constraint" $ + context "attempting to insert a row with conflicting unique constraint" $ it "fails returning a 409 Conflict" $ post "/withUnique" [json| { "uni":"nodup", "extra":"e2" } |] `shouldRespondWith` 409 From 4dd4eeb421b7ed24a51bff531a4aa00c3023f757 Mon Sep 17 00:00:00 2001 From: Moti Zilberman Date: Mon, 8 Feb 2016 16:39:32 +0200 Subject: [PATCH 3/3] [ci skip] s/unkonwn/unknown/ --- test/Feature/InsertSpec.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/Feature/InsertSpec.hs b/test/Feature/InsertSpec.hs index b42b25eec..e3030fe5a 100644 --- a/test/Feature/InsertSpec.hs +++ b/test/Feature/InsertSpec.hs @@ -241,7 +241,7 @@ spec struct c = beforeAll_ resetDb $ around (withApp cfgDefault struct c) $ do describe "Putting record" $ do - context "to unkonwn uri" $ + context "to unknown uri" $ it "gives a 404" $ do pendingWith "Decide on PUT usefullness" request methodPut "/fake" [] @@ -316,7 +316,7 @@ spec struct c = beforeAll_ resetDb $ around (withApp cfgDefault struct c) $ do describe "Patching record" $ do - context "to unkonwn uri" $ + context "to unknown uri" $ it "gives a 404" $ request methodPatch "/fake" [] [json| { "real": false } |]