Datasetpublic
FPEvalDataset/LeetCodeProblem

sourceHugging Faceupdated 8mo agoView on Hugging Face
0likes305downloads
rootfind_special_substring_of_length_khaskell_testsMain.hs
Main.hs46 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 (hasSpecialSubstring \"aaabaaa \" 3)," True (hasSpecialSubstring "aaabaaa" 3))13 14test2 :: Test15test2 = TestCase (assertEqual "for (hasSpecialSubstring \"abc \" 2)," False (hasSpecialSubstring "abc" 2))16 17test3 :: Test18test3 = TestCase (assertEqual "for (hasSpecialSubstring  \"npiqeyedtwkxpacknwmuiqjwfcjoaspqjjrkedlpsecmlbdzjhmmadyuffboureyfg \" 8)," False (hasSpecialSubstring "npiqeyedtwkxpacknwmuiqjwfcjoaspqjjrkedlpsecmlbdzjhmmadyuffboureyfg" 8))19 20test4 :: Test21test4 = TestCase (assertEqual "for (hasSpecialSubstring  \"frfibfvbjbembzqmpygdsutmdnefweotbbutvihqaodnvkhlovtyhvgksijkrvqclikuzdgjee \" 53)," False (hasSpecialSubstring "frfibfvbjbembzqmpygdsutmdnefweotbbutvihqaodnvkhlovtyhvgksijkrvqclikuzdgjee" 53))22 23test5 :: Test24test5 = TestCase (assertEqual "for (hasSpecialSubstring  \"ow \" 2)," False (hasSpecialSubstring "ow" 2))25 26test6 :: Test27test6 = TestCase (assertEqual "for (hasSpecialSubstring  \"kcbgeeldqbijcfbfwkxjtzrrgvcplhftpaz \" 10)," False (hasSpecialSubstring "kcbgeeldqbijcfbfwkxjtzrrgvcplhftpaz" 10))28 29test7 :: Test30test7 = TestCase (assertEqual "for (hasSpecialSubstring  \"puvexiblpdkdberrcjucrehjrzizyobtittk \" 15)," False (hasSpecialSubstring "puvexiblpdkdberrcjucrehjrzizyobtittk" 15))31 32test8 :: Test33test8 = TestCase (assertEqual "for (hasSpecialSubstring  \"nbmzvrvoljbqwtwmj \" 1)," True (hasSpecialSubstring "nbmzvrvoljbqwtwmj" 1))34 35test9 :: Test36test9 = TestCase (assertEqual "for (hasSpecialSubstring  \"laluchhncipksfyucufozhrkflsrbeqkrnrvyiaihwkptuiquycoxfpmelchzdciilupqsdaqkkyjnkzdyejhatdzjdcco \" 61)," False (hasSpecialSubstring "laluchhncipksfyucufozhrkflsrbeqkrnrvyiaihwkptuiquycoxfpmelchzdciilupqsdaqkkyjnkzdyejhatdzjdcco" 61))37 38 39-- Grouping test cases40tests :: Test41tests = 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]42 43-- Running the tests44main :: IO Counts45main = runTestTT tests46