Datasetpublic

FPEvalDataset/LeetCodeProblem

sourceHugging Faceupdated 8mo agoView on Hugging Face

0likes304downloads

rootscore_of_a_stringhaskell_testsMain.hs

Main.hs42 linesDownload Raw Back to haskell_tests

1 2module Main where3import Test.HUnit4 5--Program start6scoreOfString :: String -> Int7scoreOfString s = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (scoreOfString \"hello \")," 13 (scoreOfString "hello"))15 16test2 :: Test17test2 = TestCase (assertEqual "for (scoreOfString \"zaz \")," 50 (scoreOfString "zaz"))18 19test3 :: Test20test3 = TestCase (assertEqual "for (scoreOfString  \"ggmnxugmzbgeuowbrszedcmslic \")," 214 (scoreOfString "ggmnxugmzbgeuowbrszedcmslic"))21 22test4 :: Test23test4 = TestCase (assertEqual "for (scoreOfString  \"wwd \")," 19 (scoreOfString "wwd"))24 25test5 :: Test26test5 = TestCase (assertEqual "for (scoreOfString  \"ixqhyzqwfcraprwdtoijaapsjhtdahmeuizvcxcfmnmjycthgiwcetjavtkaziffkpgivsuwujrjd \")," 701 (scoreOfString "ixqhyzqwfcraprwdtoijaapsjhtdahmeuizvcxcfmnmjycthgiwcetjavtkaziffkpgivsuwujrjd"))27 28test6 :: Test29test6 = TestCase (assertEqual "for (scoreOfString  \"mwlzgfibhouglxsgmuebmwazdxokswzwtbrjxrpwpccmxrcabffahzhujjmpcliarwwk \")," 594 (scoreOfString "mwlzgfibhouglxsgmuebmwazdxokswzwtbrjxrpwpccmxrcabffahzhujjmpcliarwwk"))30 31test7 :: Test32test7 = TestCase (assertEqual "for (scoreOfString  \"xdilrjtgkglzjeg \")," 115 (scoreOfString "xdilrjtgkglzjeg"))33 34 35-- Grouping test cases36tests :: Test37tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6]38 39-- Running the tests40main :: IO Counts41main = runTestTT tests42