CoolFace
Datasetpublic

FPEvalDataset/LeetCodeProblem

sourceHugging Faceupdated 8mo agoView on Hugging Face
0likes304downloads
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 (maxPoints [[1,2,3],[2,5,7],[3,5,1]] [5,6,2])," [5,8,1] (maxPoints [[1,2,3],[2,5,7],[3,5,1]] [5,6,2]))13 14test2 :: Test15test2 = TestCase (assertEqual "for (maxPoints [[5,2,1],[1,1,2]] [3])," [0] (maxPoints [[5,2,1],[1,1,2]] [3]))16 17 18-- Grouping test cases19tests :: Test20tests = TestList [TestLabel "Test1" test1]21 22-- Running the tests23main :: IO Counts24main = runTestTT tests25