SortBySpec.hs

module Ast.SortBySpec (spec) where

import Helpers.Specs
import PostgresqlSyntax.Algebra
import PostgresqlSyntax.Ast.SortBy
import Prelude
import Test.Hspec

spec :: Spec
spec = do
  itSatisfiesIsAst @SortBy
  itSatisfiesArbitrary @SortBy
  describe "Postgres grammar conformance" $ do
    it "sortby" $ do
      let render :: SortBy -> Text
          render = toText mempty
      fmap render (parse @SortBy mempty "a") `shouldBe` Right "a"
      fmap render (parse @SortBy mempty "a asc") `shouldBe` Right "a ASC"
      fmap render (parse @SortBy mempty "a desc nulls last") `shouldBe` Right "a DESC NULLS LAST"
      fmap render (parse @SortBy mempty "a nulls first") `shouldBe` Right "a NULLS FIRST"
      fmap render (parse @SortBy mempty "a using > nulls last") `shouldBe` Right "a USING > NULLS LAST"
      fmap render (parse @SortBy mempty "nulls") `shouldBe` Right "nulls"