Datasetpublic

FPEvalDataset/LeetCodeProblem

sourceHugging Faceupdated 8mo agoView on Hugging Face

0likes305downloads

rootcollect_coins_in_a_treehaskell_testsMain.hs

Main.hs25 linesDownload Raw Back to haskell_tests

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (collectTheCoins [1,0,0,0,0,1] [[0,1],[1,2],[2,3],[3,4],[4,5]])," 2 (collectTheCoins [1,0,0,0,0,1] [[0,1],[1,2],[2,3],[3,4],[4,5]]))13 14test2 :: Test15test2 = TestCase (assertEqual "for (collectTheCoins [0,0,0,1,1,0,0,1] [[0,1],[0,2],[1,3],[1,4],[2,5],[5,6],[5,7]])," 2 (collectTheCoins [0,0,0,1,1,0,0,1] [[0,1],[0,2],[1,3],[1,4],[2,5],[5,6],[5,7]]))16 17 18-- Grouping test cases19tests :: Test20tests = TestList [TestLabel "Test1" test1]21 22-- Running the tests23main :: IO Counts24main = runTestTT tests25