{-# 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"}
          }
        ]
      }
      |]