Datasetpublic

TheRealSamuel/LeetCodeProblem

sourceHugging Faceupdated 2mo agoView on Hugging Face

0likes561downloads

rootminimum_reverse_operationshaskell_testsMain.hs

Main.hs28 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 (minReverseOperations 4 0 [1,2] 4)," [0,-1,-1,1] (minReverseOperations 4 0 [1,2] 4))13 14test2 :: Test15test2 = TestCase (assertEqual "for (minReverseOperations 5 0 [2,4] 3)," [0,-1,-1,-1,-1] (minReverseOperations 5 0 [2,4] 3))16 17test3 :: Test18test3 = TestCase (assertEqual "for (minReverseOperations 4 2 [0,1,3] 1)," [-1,-1,0,-1] (minReverseOperations 4 2 [0,1,3] 1))19 20 21-- Grouping test cases22tests :: Test23tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2]24 25-- Running the tests26main :: IO Counts27main = runTestTT tests28