Datasetpublic

TheRealSamuel/LeetCodeProblem

sourceHugging Faceupdated 2mo agoView on Hugging Face

0likes564downloads

rootminimum_deletions_to_make_array_divisiblehaskell_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 (minOperations [2,3,2,4,3] [9,6,9,3,15])," 2 (minOperations [2,3,2,4,3] [9,6,9,3,15]))13 14test2 :: Test15test2 = TestCase (assertEqual "for (minOperations [4,3,6] [8,2,6,10])," (-1) (minOperations [4,3,6] [8,2,6,10]))16 17 18-- Grouping test cases19tests :: Test20tests = TestList [TestLabel "Test1" test1]21 22-- Running the tests23main :: IO Counts24main = runTestTT tests25