TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (hasMatch \"leetcode \"  \"ee*e \")," True (hasMatch "leetcode" "ee*e"))13 14test2 :: Test15test2 = TestCase (assertEqual "for (hasMatch \"car \"  \"c*v \")," False (hasMatch "car" "c*v"))16 17test3 :: Test18test3 = TestCase (assertEqual "for (hasMatch \"luck \"  \"u* \")," True (hasMatch "luck" "u*"))19 20test4 :: Test21test4 = TestCase (assertEqual "for (hasMatch  \"fxdzelxekldposkfv \"  \"w*x \")," False (hasMatch "fxdzelxekldposkfv" "w*x"))22 23test5 :: Test24test5 = TestCase (assertEqual "for (hasMatch  \"hvjtouuxcdldxairxhizqhurxfjnc \"  \"xcphgkzmwxhok*mkkxewgmivyzcdtnvxlwmrgjyhhqytnmxz \")," False (hasMatch "hvjtouuxcdldxairxhizqhurxfjnc" "xcphgkzmwxhok*mkkxewgmivyzcdtnvxlwmrgjyhhqytnmxz"))25 26test6 :: Test27test6 = TestCase (assertEqual "for (hasMatch  \"bki \"  \"jagufqjls*qnqqre \")," False (hasMatch "bki" "jagufqjls*qnqqre"))28 29test7 :: Test30test7 = TestCase (assertEqual "for (hasMatch  \"yyyupshqyzgsfa \"  \"z*n \")," False (hasMatch "yyyupshqyzgsfa" "z*n"))31 32test8 :: Test33test8 = TestCase (assertEqual "for (hasMatch  \"riyqclmu \"  \"mthvmft*ydlluorupgosnedafxlfxqksvtmnqnxbfirsub \")," False (hasMatch "riyqclmu" "mthvmft*ydlluorupgosnedafxlfxqksvtmnqnxbfirsub"))34 35test9 :: Test36test9 = TestCase (assertEqual "for (hasMatch  \"elmfffsslfjkpgnybbbsqnunjkismthskalvtinapewrgzdeh \"  \"kmoossfovnjypcvooyoh*avtizoqnsjgnfotafvna \")," False (hasMatch "elmfffsslfjkpgnybbbsqnunjkismthskalvtinapewrgzdeh" "kmoossfovnjypcvooyoh*avtizoqnsjgnfotafvna"))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