Datasetpublic

FPEvalDataset/LeetCodeProblem

sourceHugging Faceupdated 8mo agoView on Hugging Face

0likes305downloads

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