import Heap
import Set

-- Testing Heap
hTest01 = heapCreate :: Heap Int
hTest02 = heapInsert (heapInsert (heapInsert (heapInsert (hTest01) 3) 9) 4) 5
hTest03 = heapInsert (heapInsert (heapInsert (heapInsert (hTest01) 1) 6) 7) 8
hTest04 = heapInsert (heapInsert (heapInsert (heapInsert (hTest01) 3) 7) 2) 0
hTest05 = heapMerge hTest02 hTest03
hTest06 = heapDifference hTest02 hTest04
hTest07 = heapIntersect hTest02 hTest04
hTest08 = heapEquals hTest02 hTest03
hTest09 = heapLesserOrEq hTest02 hTest03
hTest10 = heapMerge hTest05 hTest04
hTest11 = heapFold (+) 0 hTest10
hTest12 = heapFilter (even) hTest10

sTest01 = heapShow show hTest01
sTest02 = heapShow show hTest02
sTest03 = heapShow show hTest03
sTest04 = heapShow show hTest04
sTest05 = heapShow show hTest05
sTest06 = heapShow show hTest06
sTest07 = heapShow show hTest07
sTest08 = show hTest08
sTest09 = show hTest09
sTest10 = heapShow show hTest10
sTest11 = show hTest11
sTest12 = heapShow show hTest12

-- Testing Set
hTest13 = empty :: Set Integer
hTest14 = makeSet [(makeSet [4,3,2,1]), (makeSet [4,3,2]), (makeSet [4,2]), (makeSet [5]), (makeSet [5,6,3]), (makeSet [2,4])]
hTest15 = makeSet [4,6,8,2,3,5,7]
hTest16 = makeSet [3,7,2,9,8,9]
hTest17 = union (union hTest13 hTest15) hTest16
hTest18 = makeSet ["Abc","Bcd","Cde","Def","Bcd"]

sTest13 = showSet show hTest13
sTest14 = showSet (showSet show) hTest14
sTest15 = showSet show hTest15
sTest16 = showSet show hTest16
sTest17 = showSet show hTest17
sTest18 = showSet show hTest18