138 lines
4.1 KiB
Haskell
138 lines
4.1 KiB
Haskell
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
|
|
{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}
|
|
module Feature.StructureSpec where
|
|
|
|
import Test.Hspec
|
|
import Test.Hspec.Wai
|
|
import Test.Hspec.Wai.JSON
|
|
|
|
import SpecHelper
|
|
|
|
import Network.HTTP.Types
|
|
import Codec.Binary.Base64.String (encode)
|
|
import Data.Monoid ((<>))
|
|
import Data.String.Conversions (cs)
|
|
|
|
uName = "a user"
|
|
uPass = "nobody can ever know"
|
|
uRole = "dbapi_test"
|
|
|
|
spec :: Spec
|
|
spec = around withDatabaseConnection $
|
|
aroundWith (withUser uName uPass uRole) $ aroundWith withApp $ do
|
|
describe "GET /" $
|
|
it "lists views in schema" $
|
|
request methodGet "/"
|
|
[("Authorization", "Basic "<>(cs.encode $ cs uName<>":"<>cs uPass))] ""
|
|
`shouldRespondWith` [json| [
|
|
{"schema":"1","name":"authors_only","insertable":true}
|
|
, {"schema":"1","name":"auto_incrementing_pk","insertable":true}
|
|
, {"schema":"1","name":"compound_pk","insertable":true}
|
|
, {"schema":"1","name":"has_fk","insertable":true}
|
|
, {"schema":"1","name":"items","insertable":true}
|
|
, {"schema":"1","name":"menagerie","insertable":true}
|
|
, {"schema":"1","name":"no_pk","insertable":true}
|
|
, {"schema":"1","name":"simple_pk","insertable":true}
|
|
] |]
|
|
{matchStatus = 200}
|
|
|
|
describe "Table info" $ do
|
|
it "is available with OPTIONS verb" $
|
|
request methodOptions "/auto_incrementing_pk" [] "" `shouldRespondWith` [json|
|
|
{
|
|
"pkey":["id"],
|
|
"columns":[
|
|
{
|
|
"precision": 32,
|
|
"updatable": true,
|
|
"schema": "1",
|
|
"name": "id",
|
|
"type": "integer",
|
|
"maxLen": null,
|
|
"nullable": false,
|
|
"position": 1,
|
|
"references": null,
|
|
"default": "nextval('\"1\".auto_incrementing_pk_id_seq'::regclass)"
|
|
}, {
|
|
"precision": null,
|
|
"updatable": true,
|
|
"schema": "1",
|
|
"name": "nullable_string",
|
|
"type": "character varying",
|
|
"maxLen": null,
|
|
"nullable": true,
|
|
"position": 2,
|
|
"references": null,
|
|
"default": null
|
|
}, {
|
|
"precision": null,
|
|
"updatable": true,
|
|
"schema": "1",
|
|
"name": "non_nullable_string",
|
|
"type": "character varying",
|
|
"maxLen": null,
|
|
"nullable": false,
|
|
"position": 3,
|
|
"references": null,
|
|
"default": null
|
|
}, {
|
|
"precision": null,
|
|
"updatable": true,
|
|
"schema": "1",
|
|
"name": "inserted_at",
|
|
"type": "timestamp with time zone",
|
|
"maxLen": null,
|
|
"nullable": true,
|
|
"position": 4,
|
|
"references": null,
|
|
"default": "now()"
|
|
}
|
|
]
|
|
}
|
|
|]
|
|
|
|
it "includes foreign key data" $
|
|
request methodOptions "/has_fk"
|
|
[("Authorization", "Basic "<>(cs.encode $ cs uName<>":"<>cs uPass))] ""
|
|
`shouldRespondWith` [json|
|
|
{
|
|
"pkey": ["id"],
|
|
"columns":[
|
|
{
|
|
"default": "nextval('\"1\".has_fk_id_seq'::regclass)",
|
|
"precision": 64,
|
|
"updatable": true,
|
|
"schema": "1",
|
|
"name": "id",
|
|
"type": "bigint",
|
|
"maxLen": null,
|
|
"nullable": false,
|
|
"position": 1,
|
|
"references": null
|
|
}, {
|
|
"default": null,
|
|
"precision": 32,
|
|
"updatable": true,
|
|
"schema": "1",
|
|
"name": "auto_inc_fk",
|
|
"type": "integer",
|
|
"maxLen": null,
|
|
"nullable": true,
|
|
"position": 2,
|
|
"references": {"table": "auto_incrementing_pk", "column": "id"}
|
|
}, {
|
|
"default": null,
|
|
"precision": null,
|
|
"updatable": true,
|
|
"schema": "1",
|
|
"name": "simple_fk",
|
|
"type": "character varying",
|
|
"maxLen": 255,
|
|
"nullable": true,
|
|
"position": 3,
|
|
"references": {"table": "simple_pk", "column": "k"}
|
|
}
|
|
]
|
|
}
|
|
|]
|