git.iko.soy/text
on text-jsstring-8.4 help sign in
text/tests/LiteralRuleTest.hs
21 lines 687 B history raw
1{-# LANGUAGE OverloadedStrings #-}
3module LiteralRuleTest where
5import Data.Text (Text)
7-- This should produce 8 firings of the "TEXT literal" rule
8strings :: [Text]
9strings = [ "abstime", "aclitem", "bit", "bool", "box", "bpchar", "bytea", "char" ]
11-- This should produce 7 firings of the "TEXT literal UTF8" rule
12utf8Strings :: [Text]
13utf8Strings = [ "\0abstime", "\0aclitem", "\xfefe bit", "\0bool", "\0box", "\0bpchar", "\0bytea" ]
15-- This should produce 4 firings of the "TEXT empty literal" rule
16empties :: [Text]
17empties = [ "", "", "", "" ]
19-- This should produce 5 firings of the "TEXT empty literal" rule
20--singletons :: [Text]
21--singletons = [ "a", "b", "c", "d", "e" ]