text-2.1.4: tests/LiteralRuleTest.hs

{-# LANGUAGE OverloadedStrings #-}

module LiteralRuleTest where

import Data.Text (Text)

-- This should produce 8 firings of the "TEXT literal" rule
strings :: [Text]
strings = [ "abstime", "aclitem", "bit", "bool", "box", "bpchar", "bytea", "char" ]

-- This should produce 7 firings of the "TEXT literal UTF8" rule
utf8Strings :: [Text]
utf8Strings = [ "\0abstime", "\0aclitem", "\xfefe bit", "\0bool", "\0box", "\0bpchar", "\0bytea" ]

-- This should produce 4 firings of the "TEXT empty literal" rule
empties :: [Text]
empties = [ "", "", "", "" ]

-- This should produce 5 firings of the "TEXT empty literal" rule
--singletons :: [Text]
--singletons = [ "a", "b", "c", "d", "e" ]