1{-# OPTIONS -fglasgow-exts #-}
2
3module Builders (tests) where
4
5-- Testing Data.Generics.Builders functionality
6
7import Test.HUnit
8
9import Data.Data
10import Data.Generics.Builders
11
12
13-- Main function for testing
14tests = ( constrs :: [Maybe Int]
15        , constrs :: [String]
16        , constrs :: [Either Int Float]
17        , constrs :: [((), Integer)]
18        ) ~=? output
19
20output = ([Nothing,Just 0],["","\NUL"],[Left 0,Right 0.0],[((),0)])