Testing in Haskell (CS 442)

TestQ17-loop.hs

-- eval loop

module TestQ17 where

import Test.HUnit
import Q17

testFn fn (input, expected) =
  TestCase $ (fn input) @?= expected

main =
  let
    testCases = [("hello", "hello"), (1,1), (True, False)]
    id = \x -> x
  in
  runTestTT $ TestList (map (testFn id) testCases)

TestQ17.hs

-- invoke this from the command line `runghs TestQ17.hs`

module TestQ17 where

import Test.HUnit
-- Replace this with the module you want to test
import Q17

-- Fails
test0 =
  TestCase $ "hello" @?= "Hello"
  
-- Passes
test1 =
  TestCase $ 1 @?= 1

-- Fails
test2 =
  TestCase $ True @?= False

main = runTestTT $ TestList [test0, test1, test2]