module TestMySYB

where

import Test.HUnit

import Graphics.UI.SybWidget.MySYB hiding (NoCtx, noCtx)
import SYBInstances

import Data.List(sort)

-- mySYBTests :: IO ()
mySYBTests = "MySYB" ~:
    TestList [ constructorsTests ]

constructorsTests = "Constructor tests" ~:
    TestList
    [ "Tree Int"         ~: assertConstr (undefined :: Tree Int) ["Tree", "Leaf"]
    , "Tree (Tree Char)" ~: assertConstr (undefined :: Tree (Tree Char)) ["Tree", "Leaf"]
    , "Eternal"          ~: assertConstr (undefined :: Eternal) ["Eternal"]
    , "Maybe Char"       ~: assertConstr (undefined :: Maybe Char) ["Nothing", "Just"]
    ]

assertConstr x expected =
    do let constr = map show $ constructors noCtx x
       assertEqual "Constructors differ" (sort constr) (sort expected)