Datasetpublic

FPEvalDataset/LeetCodeProblem

sourceHugging Faceupdated 8mo agoView on Hugging Face

0likes305downloads

rootcount_days_spent_togetherhaskell_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 (countDaysTogether \"08-15 \"  \"08-18 \"  \"08-16 \"  \"08-19 \")," 3 (countDaysTogether "08-15" "08-18" "08-16" "08-19"))13 14test2 :: Test15test2 = TestCase (assertEqual "for (countDaysTogether \"10-01 \"  \"10-31 \"  \"11-01 \"  \"12-31 \")," 0 (countDaysTogether "10-01" "10-31" "11-01" "12-31"))16 17 18-- Grouping test cases19tests :: Test20tests = TestList [TestLabel "Test1" test1]21 22-- Running the tests23main :: IO Counts24main = runTestTT tests25