jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix tests for explicit errors in aeson-1.4.7, and raise lower bound

Browse Source
This commit is contained in:
Robert Vollmert
2020-04-16 17:47:52 -05:00
committed by Steve Chavez
parent b609d8491e
commit 5838214910
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
postgrest.cabal
+3 -3
View File
@@ -46,7 +46,7 @@ library
build-depends: base >= 4.9 && < 4.14 build-depends: base >= 4.9 && < 4.14
, HTTP >= 4000.3.7 && < 4000.4 , HTTP >= 4000.3.7 && < 4000.4
, Ranged-sets >= 0.3 && < 0.5 , Ranged-sets >= 0.3 && < 0.5
, aeson >= 0.11.3 && < 1.5 , aeson >= 1.4.7 && < 1.5
, ansi-wl-pprint >= 0.6.7 && < 0.7 , ansi-wl-pprint >= 0.6.7 && < 0.7
, base64-bytestring >= 1 && < 1.1 , base64-bytestring >= 1 && < 1.1
, bytestring >= 0.10.8 && < 0.11 , bytestring >= 0.10.8 && < 0.11
@@ -155,7 +155,7 @@ test-suite spec
TestTypes TestTypes
hs-source-dirs: test hs-source-dirs: test
build-depends: base >= 4.9 && < 4.14 build-depends: base >= 4.9 && < 4.14
, aeson >= 0.11.3 && < 1.5 , aeson >= 1.4.7 && < 1.5
, aeson-qq >= 0.8.1 && < 0.9 , aeson-qq >= 0.8.1 && < 0.9
, async >= 2.1.1 && < 2.3 , async >= 2.1.1 && < 2.3
, auto-update >= 0.1.4 && < 0.2 , auto-update >= 0.1.4 && < 0.2
@@ -199,7 +199,7 @@ Test-Suite spec-querycost
Main-Is: QueryCost.hs Main-Is: QueryCost.hs
Other-Modules: SpecHelper Other-Modules: SpecHelper
Build-Depends: base >= 4.9 && < 4.14 Build-Depends: base >= 4.9 && < 4.14
, aeson >= 0.11.3 && < 1.5 , aeson >= 1.4.7 && < 1.5
, aeson-qq >= 0.8.1 && < 0.9 , aeson-qq >= 0.8.1 && < 0.9
, async >= 2.1.1 && < 2.3 , async >= 2.1.1 && < 2.3
, auto-update >= 0.1.4 && < 0.2 , auto-update >= 0.1.4 && < 0.2
test/Feature/InsertSpec.hs
+2 -2
View File
@@ -204,7 +204,7 @@ spec actualPgVersion = do
it "fails with 400 and error" $ it "fails with 400 and error" $
post "/simple_pk" "}{ x = 2" post "/simple_pk" "}{ x = 2"
`shouldRespondWith` `shouldRespondWith`
[json|{"message":"Error in $: Failed reading: not a valid json value"}|] [json|{"message":"Error in $: Failed reading: not a valid json value at '}{x=2'"}|]
{ matchStatus = 400 { matchStatus = 400
, matchHeaders = [matchContentTypeJson] , matchHeaders = [matchContentTypeJson]
} }
@@ -425,7 +425,7 @@ spec actualPgVersion = do
it "fails with 400 and error" $ it "fails with 400 and error" $
request methodPatch "/simple_pk" [] "}{ x = 2" request methodPatch "/simple_pk" [] "}{ x = 2"
`shouldRespondWith` `shouldRespondWith`
[json|{"message":"Error in $: Failed reading: not a valid json value"}|] [json|{"message":"Error in $: Failed reading: not a valid json value at '}{x=2'"}|]
{ matchStatus = 400, { matchStatus = 400,
matchHeaders = [matchContentTypeJson] matchHeaders = [matchContentTypeJson]
} }