The automated tests, uses hunit to check a bunch of text expressions
and sql statements parse to the correct tree, and then checks pretty
printing and then reparsing gives the same tree. The code was mostly
written almost in tdd style, which the order/ coverage of these tests
reflects.

There are no tests for invalid syntax at the moment.

> {-# LANGUAGE OverloadedStrings #-}
> module Database.HsSqlPpp.Tests.Parsing.Misc (misc) where
>
> import Database.HsSqlPpp.Syntax

> import Database.HsSqlPpp.Tests.Parsing.Utils
> import Database.HsSqlPpp.Tests.TestTypes

> misc :: Item
> misc =
>   Group "miscParserTests"
>   [Group "multiple statements"
>    [s "select 1;\nselect 2;"
>     [QueryStatement ea $ makeSelect {selSelectList = sl [si $ num "1"]}
>     ,QueryStatement ea $ makeSelect {selSelectList = sl [si $ num "2"]}]
>    ]
>   ,Group "comments"
>    [s "" []
>    ,s "-- this is a test" []
>    ,s "/* this is\n\
>       \a test*/" []
>    ,s "select 1;\n\
>       \-- this is a test\n\
>       \select -- this is a test\n\
>       \2;"
>     [QueryStatement ea $ makeSelect {selSelectList = sl [si $ num "1"]}
>     ,QueryStatement ea $ makeSelect {selSelectList = sl [si $ num "2"]}]
>    ,s "select 1;\n\
>       \/* this is\n\
>       \a test*/\n\
>       \select /* this is a test*/2;"
>     [QueryStatement ea $ makeSelect {selSelectList = sl [si $ num "1"]}
>     ,QueryStatement ea $ makeSelect {selSelectList = sl [si $ num "2"]}]
>    ]

--------------------------------------------------------------------------------

ddl statements


>    ,Group "misc"
>     [s "SET search_path TO my_schema, public;"
>      [Set ea "search_path" [SetId ea "my_schema"
>                            ,SetId ea "public"]]
>     ,s "SET t1 = 3;"
>      [Set ea "t1" [SetNum ea 3]]
>     ,s "SET t1 = 'stuff';"
>      [Set ea "t1" [SetStr ea "stuff"]]
>     ,s "create language plpgsql;"
>      [CreateLanguage ea "plpgsql"]
>     ]
>    ]
>  where
>    s = ParseStmts defaultParseFlags