Test failed post, and clean up specs

test/Feature/RangeSpec.hs

@@ -11,62 +11,6 @@ import Network.HTTP.Types
 
 spec :: Spec
 spec = around appWithFixture $ do
-  describe "GET /" $ do
-    it "responds with 200" $
-      get "/" `shouldRespondWith` 200
-
-    it "lists views in schema" $
-      get "/" `shouldRespondWith` [json|
-        [{"schema":"1","name":"auto_incrementing_pk","insertable":true}]
-      |]
-
-  describe "Table info" $
-    it "is available with OPTIONS verb" $
-      -- {{{ big json object
-      request methodOptions "/auto_incrementing_pk" "" `shouldRespondWith` [json|
-      {
-        "pkey":["id"],
-        "columns":{
-          "inserted_at":{
-            "precision":null,
-            "updatable":true,
-            "schema":"1",
-            "name":"inserted_at",
-            "type":"timestamp with time zone",
-            "maxLen":null,
-            "nullable":true,
-            "position":4},
-          "id":{
-            "precision":32,
-            "updatable":true,
-            "schema":"1",
-            "name":"id",
-            "type":"integer",
-            "maxLen":null,
-            "nullable":false,
-            "position":1},
-          "non_nullable_string":{
-            "precision":null,
-            "updatable":true,
-            "schema":"1",
-            "name":"non_nullable_string",
-            "type":"character varying",
-            "maxLen":null,
-            "nullable":false,
-            "position":3},
-          "nullable_string":{
-            "precision":null,
-            "updatable":true,
-            "schema":"1",
-            "name":"nullable_string",
-            "type":"character varying",
-            "maxLen":null,
-            "nullable":true,
-            "position":2}}
-      }
-      |]
-      -- }}}
-
   describe "GET /view" $
     context "without range headers" $
       context "with response under server size limit" $