TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6strongPasswordCheckerII :: String -> Bool7strongPasswordCheckerII password = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (strongPasswordCheckerII \"IloveLe3tcode! \")," True (strongPasswordCheckerII "IloveLe3tcode!"))15 16test2 :: Test17test2 = TestCase (assertEqual "for (strongPasswordCheckerII \"Me+You--IsMyDream \")," False (strongPasswordCheckerII "Me+You--IsMyDream"))18 19test3 :: Test20test3 = TestCase (assertEqual "for (strongPasswordCheckerII \"1aB! \")," False (strongPasswordCheckerII "1aB!"))21 22test4 :: Test23test4 = TestCase (assertEqual "for (strongPasswordCheckerII  \" k n U $ 3 l r n  \")," True (strongPasswordCheckerII " k n U $ 3 l r n "))24 25test5 :: Test26test5 = TestCase (assertEqual "for (strongPasswordCheckerII  \" 2 O W ^ k X r 1  \")," True (strongPasswordCheckerII " 2 O W ^ k X r 1 "))27 28test6 :: Test29test6 = TestCase (assertEqual "for (strongPasswordCheckerII  \" J & h 5 I 2 k @  \")," True (strongPasswordCheckerII " J & h 5 I 2 k @ "))30 31test7 :: Test32test7 = TestCase (assertEqual "for (strongPasswordCheckerII  \" W h * 2 r ) @ G  \")," True (strongPasswordCheckerII " W h * 2 r ) @ G "))33 34test8 :: Test35test8 = TestCase (assertEqual "for (strongPasswordCheckerII  \" W b y & f 5 K f  \")," True (strongPasswordCheckerII " W b y & f 5 K f "))36 37 38-- Grouping test cases39tests :: Test40tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6, TestLabel "Test7" test7]41 42-- Running the tests43main :: IO Counts44main = runTestTT tests45