From 731260e9ee52b15bb16b3843e0c89f1a12dfc07c Mon Sep 17 00:00:00 2001 From: Joe Nelson Date: Mon, 25 Aug 2014 13:37:10 -0700 Subject: [PATCH] Remove superfluous do statements --- test/Feature/RangeSpec.hs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/test/Feature/RangeSpec.hs b/test/Feature/RangeSpec.hs index 072abe103..daf139e9d 100644 --- a/test/Feature/RangeSpec.hs +++ b/test/Feature/RangeSpec.hs @@ -32,16 +32,16 @@ instance JSON.FromJSON IncPK where spec :: Spec spec = around appWithFixture $ do describe "GET /" $ do - it "responds with 200" $ do + it "responds with 200" $ get "/" `shouldRespondWith` 200 - it "lists views in schema" $ do + it "lists views in schema" $ get "/" `shouldRespondWith` [json| [{"schema":"1","name":"auto_incrementing_pk","insertable":true}] |] - describe "Table info" $ do - it "is available with OPTIONS verb" $ do + describe "Table info" $ + it "is available with OPTIONS verb" $ -- {{{ big json object request methodOptions "/auto_incrementing_pk" "" `shouldRespondWith` [json| { @@ -87,20 +87,20 @@ spec = around appWithFixture $ do |] -- }}} - describe "GET /view" $ do - context "without range headers" $ do - context "with response under server size limit" $ do - it "returns whole range with status 200" $ do + describe "GET /view" $ + context "without range headers" $ + context "with response under server size limit" $ + it "returns whole range with status 200" $ get "/auto_incrementing_pk" `shouldRespondWith` 206 - describe "Posting new record" $ do + describe "Posting new record" $ context "into a table with auto-incrementing pk" $ do it "does not require pk in the payload" $ post "/auto_incrementing_pk" [json| { "non_nullable_string":"not null"} |] `shouldRespondWith` 201 - it "links to the created resource" $ do + it "links to the created resource" $ post "/auto_incrementing_pk" [json| { "non_nullable_string":"not null"} |] `shouldRespondWith` ResponseMatcher {