Add module with unit tests

a94c0e8b · Aggelos Giantsios · 38d09209 · a94c0e8b
Commit a94c0e8b authored Nov 18, 2014 by Aggelos Giantsios
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 0 deletions

Tests.hs Tests.hs +12 -0

No files found.
--- a/Tests.hs
+++ b/Tests.hs
+import Test.HUnit
+
+import Bench (seq, g13, g124, g1245)
+
+test1 = TestCase (assertEqual "g13 11" "{size,10}" (Bench.seq g13 11))
+test2 = TestCase (assertEqual "g124 157" "{size,133}" (Bench.seq g124 157))
+test3 = TestCase (assertEqual "g1245 157" "{size,134}" (Bench.seq g1245 157))
+
+tests = TestList [ TestLabel "seq short" test1
+                 , TestLabel "seq medium" test2
+                 , TestLabel "seq long" test3
+                 ]