Datasetpublic
TheRealSamuel/LeetCodeProblem

sourceHugging Faceupdated 2mo agoView on Hugging Face
0likes572downloads
rootfind_the_longest_semi_repetitive_substringhaskell_testsMain.hs
Main.hs48 linesDownload Raw Back to haskell_tests
1 2module Main where3import Test.HUnit4 5--Program start6longestSemiRepetitiveSubstring :: String -> Int7longestSemiRepetitiveSubstring s = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring \"52233 \")," 4 (longestSemiRepetitiveSubstring "52233"))15 16test2 :: Test17test2 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring \"5494 \")," 4 (longestSemiRepetitiveSubstring "5494"))18 19test3 :: Test20test3 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring \"1111111 \")," 2 (longestSemiRepetitiveSubstring "1111111"))21 22test4 :: Test23test4 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring  \"800224406092326904284192442626098218931287187431 \")," 42 (longestSemiRepetitiveSubstring "800224406092326904284192442626098218931287187431"))24 25test5 :: Test26test5 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring  \"82069083341368866002193339400441 \")," 14 (longestSemiRepetitiveSubstring "82069083341368866002193339400441"))27 28test6 :: Test29test6 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring  \"5025542296885025828 \")," 12 (longestSemiRepetitiveSubstring "5025542296885025828"))30 31test7 :: Test32test7 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring  \"4530164565084030141690 \")," 22 (longestSemiRepetitiveSubstring "4530164565084030141690"))33 34test8 :: Test35test8 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring  \"7192337667651626882611322 \")," 13 (longestSemiRepetitiveSubstring "7192337667651626882611322"))36 37test9 :: Test38test9 = TestCase (assertEqual "for (longestSemiRepetitiveSubstring  \"8027412881409430111445840735378988310 \")," 17 (longestSemiRepetitiveSubstring "8027412881409430111445840735378988310"))39 40 41-- Grouping test cases42tests :: Test43tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6, TestLabel "Test7" test7, TestLabel "Test8" test8, TestLabel "Test9" test9]44 45-- Running the tests46main :: IO Counts47main = runTestTT tests48