Datasetpublic
TheRealSamuel/LeetCodeProblem

sourceHugging Faceupdated 2mo agoView on Hugging Face
0likes561downloads
rootmaximum_odd_binary_numberhaskell_testsMain.hs
Main.hs48 linesDownload Raw Back to haskell_tests
1 2module Main where3import Test.HUnit4 5--Program start6maximumOddBinaryNumber :: String -> String7maximumOddBinaryNumber s = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (maximumOddBinaryNumber \"010 \")," "001" (maximumOddBinaryNumber "010"))15 16test2 :: Test17test2 = TestCase (assertEqual "for (maximumOddBinaryNumber \"0101 \")," "1001" (maximumOddBinaryNumber "0101"))18 19test3 :: Test20test3 = TestCase (assertEqual "for (maximumOddBinaryNumber  \"100110100001001110100010000011110000001011010001110100100110000010100011110011000111010 \")," "111111111111111111111111111111111111000000000000000000000000000000000000000000000000001" (maximumOddBinaryNumber "100110100001001110100010000011110000001011010001110100100110000010100011110011000111010"))21 22test4 :: Test23test4 = TestCase (assertEqual "for (maximumOddBinaryNumber  \"0000000001100111000000111010101110111111011101010010100001101100010001111000101100100000111001 \")," "1111111111111111111111111111111111111111110000000000000000000000000000000000000000000000000001" (maximumOddBinaryNumber "0000000001100111000000111010101110111111011101010010100001101100010001111000101100100000111001"))24 25test5 :: Test26test5 = TestCase (assertEqual "for (maximumOddBinaryNumber  \"001110000001101101100011010011110011001011101110010001000111011010110011001 \")," "111111111111111111111111111111111111100000000000000000000000000000000000001" (maximumOddBinaryNumber "001110000001101101100011010011110011001011101110010001000111011010110011001"))27 28test6 :: Test29test6 = TestCase (assertEqual "for (maximumOddBinaryNumber  \"0011010100000101010100000011101000101010000100101110101100011111010000101110110100 \")," "1111111111111111111111111111111111100000000000000000000000000000000000000000000001" (maximumOddBinaryNumber "0011010100000101010100000011101000101010000100101110101100011111010000101110110100"))30 31test7 :: Test32test7 = TestCase (assertEqual "for (maximumOddBinaryNumber  \"10111100110111000111000001111100 \")," "11111111111111111000000000000001" (maximumOddBinaryNumber "10111100110111000111000001111100"))33 34test8 :: Test35test8 = TestCase (assertEqual "for (maximumOddBinaryNumber  \"101110000001000001011111101000100010010001101011101100011101100 \")," "111111111111111111111111111100000000000000000000000000000000001" (maximumOddBinaryNumber "101110000001000001011111101000100010010001101011101100011101100"))36 37test9 :: Test38test9 = TestCase (assertEqual "for (maximumOddBinaryNumber  \"11101111000110011100110101101011101100101000011000001111111100000011100001 \")," "11111111111111111111111111111111111111000000000000000000000000000000000001" (maximumOddBinaryNumber "11101111000110011100110101101011101100101000011000001111111100000011100001"))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