TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (largestInteger [3,9,2,1,7] 3)," 7 (largestInteger [3,9,2,1,7] 3))13 14test2 :: Test15test2 = TestCase (assertEqual "for (largestInteger [3,9,7,2,1,7] 4)," 3 (largestInteger [3,9,7,2,1,7] 4))16 17test3 :: Test18test3 = TestCase (assertEqual "for (largestInteger [0,0] 1)," (-1) (largestInteger [0,0] 1))19 20test4 :: Test21test4 = TestCase (assertEqual "for (largestInteger [6, 8, 14, 7, 24, 43, 43, 48, 16, 30, 10, 36, 34, 2, 9, 19, 2, 37, 36] 3)," 6 (largestInteger [6, 8, 14, 7, 24, 43, 43, 48, 16, 30, 10, 36, 34, 2, 9, 19, 2, 37, 36] 3))22 23test5 :: Test24test5 = TestCase (assertEqual "for (largestInteger [30, 49, 42, 15, 48, 19, 21, 31, 1, 3, 15, 38, 17, 46, 23, 42, 37, 28, 14, 14, 5, 0, 15, 30, 6, 21, 19, 15, 37] 19)," (-1) (largestInteger [30, 49, 42, 15, 48, 19, 21, 31, 1, 3, 15, 38, 17, 46, 23, 42, 37, 28, 14, 14, 5, 0, 15, 30, 6, 21, 19, 15, 37] 19))25 26test6 :: Test27test6 = TestCase (assertEqual "for (largestInteger [33, 25, 46, 21, 30, 32, 49, 24, 9, 13, 16, 6, 16, 22, 30, 48, 13, 31, 13, 34, 26, 1, 45, 45, 22, 11, 38, 10, 38, 12, 15, 27, 10] 26)," 33 (largestInteger [33, 25, 46, 21, 30, 32, 49, 24, 9, 13, 16, 6, 16, 22, 30, 48, 13, 31, 13, 34, 26, 1, 45, 45, 22, 11, 38, 10, 38, 12, 15, 27, 10] 26))28 29test7 :: Test30test7 = TestCase (assertEqual "for (largestInteger [18, 49, 2, 10, 38, 21, 5, 24, 30, 50, 22, 37, 28, 15, 40, 19, 2, 5, 50, 18, 21, 26, 12, 12, 38, 7, 39, 12, 34] 20)," 34 (largestInteger [18, 49, 2, 10, 38, 21, 5, 24, 30, 50, 22, 37, 28, 15, 40, 19, 2, 5, 50, 18, 21, 26, 12, 12, 38, 7, 39, 12, 34] 20))31 32test8 :: Test33test8 = TestCase (assertEqual "for (largestInteger [32, 47, 9, 39, 19, 40, 16, 10, 21, 11, 40, 32, 33, 7, 47, 12, 37, 29, 42, 37, 6, 40, 30, 31, 47, 24, 11, 16, 39, 5, 23, 44, 48, 31, 37, 13, 33, 8, 6, 32, 49, 48, 25, 9, 29, 45, 22, 19, 28, 44] 21)," (-1) (largestInteger [32, 47, 9, 39, 19, 40, 16, 10, 21, 11, 40, 32, 33, 7, 47, 12, 37, 29, 42, 37, 6, 40, 30, 31, 47, 24, 11, 16, 39, 5, 23, 44, 48, 31, 37, 13, 33, 8, 6, 32, 49, 48, 25, 9, 29, 45, 22, 19, 28, 44] 21))34 35test9 :: Test36test9 = TestCase (assertEqual "for (largestInteger [4, 22, 26, 40, 22, 1, 27, 42, 11, 19, 40, 23] 4)," 23 (largestInteger [4, 22, 26, 40, 22, 1, 27, 42, 11, 19, 40, 23] 4))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