Main.hs (285B)
1 module Main where 2 3 import qualified Heap.Leftist as HL 4 import qualified Heap.Weighted as HW 5 import Test.Tasty (defaultMain, testGroup) 6 7 main :: IO () 8 main = defaultMain $ testGroup "okasaki" 9 [ testGroup "leftist heap" HL.tests 10 , testGroup "weight-biased leftist heap" HW.tests 11 ]