TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6minimizedStringLength :: String -> Int7minimizedStringLength s = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (minimizedStringLength \"aaabc \")," 3 (minimizedStringLength "aaabc"))15 16test2 :: Test17test2 = TestCase (assertEqual "for (minimizedStringLength \"cbbd \")," 3 (minimizedStringLength "cbbd"))18 19test3 :: Test20test3 = TestCase (assertEqual "for (minimizedStringLength \"baadccab \")," 4 (minimizedStringLength "baadccab"))21 22test4 :: Test23test4 = TestCase (assertEqual "for (minimizedStringLength  \"tcvpsshshoempgosrmzprwdcqyjxtubmrctsxiplwhdnvnzl \")," 23 (minimizedStringLength "tcvpsshshoempgosrmzprwdcqyjxtubmrctsxiplwhdnvnzl"))24 25test5 :: Test26test5 = TestCase (assertEqual "for (minimizedStringLength  \"zbdiihopkvppoyujbpqwlazodrulomflmeektpolhnlinorgkoabhesiufhjxyouoayxffbs \")," 25 (minimizedStringLength "zbdiihopkvppoyujbpqwlazodrulomflmeektpolhnlinorgkoabhesiufhjxyouoayxffbs"))27 28test6 :: Test29test6 = TestCase (assertEqual "for (minimizedStringLength  \"bfregovatvtfocylmcrvldljokensrvtuasjblfrppljuafmpanfvdvjmhijjzrevithz \")," 23 (minimizedStringLength "bfregovatvtfocylmcrvldljokensrvtuasjblfrppljuafmpanfvdvjmhijjzrevithz"))30 31test7 :: Test32test7 = TestCase (assertEqual "for (minimizedStringLength  \"daokppkqwypwzrcyoxpqayzqabuxbgafmehmrmcqpowltebbzcqkgxndvblvnrxatq \")," 23 (minimizedStringLength "daokppkqwypwzrcyoxpqayzqabuxbgafmehmrmcqpowltebbzcqkgxndvblvnrxatq"))33 34test8 :: Test35test8 = TestCase (assertEqual "for (minimizedStringLength  \"wqrl \")," 4 (minimizedStringLength "wqrl"))36 37test9 :: Test38test9 = TestCase (assertEqual "for (minimizedStringLength  \"bprwvtx \")," 7 (minimizedStringLength "bprwvtx"))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