[Haskell]代数計算入門 http://qiita.com/7shi/items/096396f0007857676515

Main.hs

module Main where

import Test.HUnit
import System.IO

data Add = Add [Int] deriving Show

eval (Add xs) = sum xs

tests = TestList
    [ "eval 1" ~: eval (Add [1, 1]) ~?= 1+1
    , "eval 2" ~: eval (Add [2, 3]) ~?= 2+3
    , "eval 3" ~: eval (Add [5, -3]) ~?= 5-3
    ]

main = do
    runTestText (putTextToHandle stderr False) tests