Datasetpublic

FPEvalDataset/LeetCodeProblem

sourceHugging Faceupdated 8mo agoView on Hugging Face

0likes302downloads

rootcreate_binary_tree_from_descriptionshaskell_testsMain.hs

Main.hs25 linesDownload Raw Back to haskell_tests

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (createBinaryTree [[20,15,1],[20,17,0],[50,20,1],[50,80,0],[80,19,1]])," [50,20,80,15,17,19] (createBinaryTree [[20,15,1],[20,17,0],[50,20,1],[50,80,0],[80,19,1]]))13 14test2 :: Test15test2 = TestCase (assertEqual "for (createBinaryTree [[1,2,1],[2,3,0],[3,4,1]])," [1,2,null,null,3,4] (createBinaryTree [[1,2,1],[2,3,0],[3,4,1]]))16 17 18-- Grouping test cases19tests :: Test20tests = TestList [TestLabel "Test1" test1]21 22-- Running the tests23main :: IO Counts24main = runTestTT tests25