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 Int deriving Show
eval (Add x y) = x + y
tests = TestList
[ "eval 1" ~: eval (Add 1 1) ~?= 1+1
, "eval 2" ~: eval (Add 2 3) ~?= 2+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