Skip to content

Instantly share code, notes, and snippets.

@naush

naush/hunit_2.hs

Created July 18, 2010 04:05
Show Gist options
  • Save naush/480106 to your computer and use it in GitHub Desktop.
Save naush/480106 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
hunit_2.hs
suite = [ TestLabel "Given Index is Empty" testIsEmpty,
TestLabel "Given Index is Not Empty" testIsNotEmpty ]
main = runTestTT (TestList suite)
-- Test Results :
-- Case 2 Tried 0 Errors: 0 Failures: 0
-- Case 2 Tried 1 Errors: 0 Failures: 0
-- Counts {cases = 2, tried = 2, errors = 0, failures = 0}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment