70 lines
1.8 KiB
Haskell
70 lines
1.8 KiB
Haskell
{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}
|
|
module Feature.RangeSpec where
|
|
|
|
import Test.Hspec
|
|
import Test.Hspec.Wai
|
|
import Test.Hspec.Wai.JSON
|
|
|
|
import SpecHelper
|
|
|
|
import Network.HTTP.Types
|
|
import Dbapi (app)
|
|
|
|
spec :: Spec
|
|
spec = with (prepareAppDb "schema" $ app cfg) $ do
|
|
describe "GET /" $ do
|
|
it "responds with 200" $ do
|
|
get "/" `shouldRespondWith` 200
|
|
|
|
it "lists views in schema" $ do
|
|
get "/" `shouldRespondWith` [json|
|
|
[{"schema":"1","name":"auto_incrementing_pk","insertable":true}]
|
|
|]
|
|
|
|
describe "Table info" $ do
|
|
it "available with OPTIONS verb" $ do
|
|
-- {{{ 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}}
|
|
}
|
|
|]
|
|
-- }}}
|