TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (differenceOfSums 10 3)," 19 (differenceOfSums 10 3))13 14test2 :: Test15test2 = TestCase (assertEqual "for (differenceOfSums 5 6)," 15 (differenceOfSums 5 6))16 17test3 :: Test18test3 = TestCase (assertEqual "for (differenceOfSums 5 1)," (-15) (differenceOfSums 5 1))19 20test4 :: Test21test4 = TestCase (assertEqual "for (differenceOfSums 827 713)," 340952 (differenceOfSums 827 713))22 23test5 :: Test24test5 = TestCase (assertEqual "for (differenceOfSums 957 390)," 456063 (differenceOfSums 957 390))25 26test6 :: Test27test6 = TestCase (assertEqual "for (differenceOfSums 941 790)," 441631 (differenceOfSums 941 790))28 29test7 :: Test30test7 = TestCase (assertEqual "for (differenceOfSums 224 255)," 25200 (differenceOfSums 224 255))31 32test8 :: Test33test8 = TestCase (assertEqual "for (differenceOfSums 17 99)," 153 (differenceOfSums 17 99))34 35test9 :: Test36test9 = TestCase (assertEqual "for (differenceOfSums 203 363)," 20706 (differenceOfSums 203 363))37 38 39-- Grouping test cases40tests :: Test41tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6, TestLabel "Test7" test7, TestLabel "Test8" test8, TestLabel "Test9" test9]42 43-- Running the tests44main :: IO Counts45main = runTestTT tests46