Skip to content

Instantly share code, notes, and snippets.

@7shi

7shi/Main.hs

Last active Aug 29, 2015
Embed
What would you like to do?
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment