FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (minimumCost 3 2 [1,3] [5])," 13 (minimumCost 3 2 [1,3] [5]))13 14test2 :: Test15test2 = TestCase (assertEqual "for (minimumCost 2 2 [7] [4])," 15 (minimumCost 2 2 [7] [4]))16 17test3 :: Test18test3 = TestCase (assertEqual "for (minimumCost 89625 86605 [] [])," 270184373677 (minimumCost 89625 86605 [] []))19 20test4 :: Test21test4 = TestCase (assertEqual "for (minimumCost 24520 74173 [] [])," 63056735664 (minimumCost 24520 74173 [] []))22 23test5 :: Test24test5 = TestCase (assertEqual "for (minimumCost 86957 32234 [] [])," 97433797491 (minimumCost 86957 32234 [] []))25 26test6 :: Test27test6 = TestCase (assertEqual "for (minimumCost 85068 26951 [] [])," 79683655056 (minimumCost 85068 26951 [] []))28 29test7 :: Test30test7 = TestCase (assertEqual "for (minimumCost 9975 93053 [] [])," 32327998720 (minimumCost 9975 93053 [] []))31 32test8 :: Test33test8 = TestCase (assertEqual "for (minimumCost 32757 15609 [] [])," 17891510836 (minimumCost 32757 15609 [] []))34 35test9 :: Test36test9 = TestCase (assertEqual "for (minimumCost 11492 52523 [] [])," 21084351324 (minimumCost 11492 52523 [] []))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