syb-0.4.1: tests/Builders.hs

{-# OPTIONS -fglasgow-exts #-}

module Builders (tests) where

-- Testing Data.Generics.Builders functionality 

import Test.HUnit

import Data.Data
import Data.Generics.Builders


-- Main function for testing
tests = ( constrs :: [Maybe Int]
        , constrs :: [String]
        , constrs :: [Either Int Float]
        , constrs :: [((), Integer)]
        ) ~=? output

output = ([Nothing,Just 0],["","\NUL"],[Left 0,Right 0.0],[((),0)])