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)])