-- test data for BTree Eq-uality
-- we should have test1 == test1 but test1 /= test2 (even if you are Zac)

bleaf x = Branch x Tip Tip

test1 = Branch 3 (Branch 4 (bleaf 5) (bleaf 6))
                 (Branch 7 Tip (Branch 8 (bleaf 9) (bleaf 10)))

test2 = Branch 3 (Branch 4 (bleaf 6) (bleaf 5))
                 (Branch 7 (Branch 9 (bleaf 10) (bleaf 8)) Tip)


leaf x = Spread x []


-- now for Trees: we should have dogs1 == dogs2 (even though there is some re-ordering)

dogs1 = Spread "Dogs"
               [ Spread "Big dogs" [leaf "Dobermans", leaf "Sheep dogs",
                        Spread "Big red dogs" [leaf "Clifford"]],
                 Spread "Small dogs" [leaf "Chihuahuas (sp?)", leaf "Poodles",
                        Spread "Small mean dogs" [leaf "Triumph the comic insult dog"]]
		 ]

dogs2 = Spread "Dogs"
               [ Spread "Big dogs" [leaf "Sheep dogs", leaf "Dobermans", 
                        Spread "Big red dogs" [leaf "Clifford"]],
                 Spread "Small dogs" [ Spread "Small mean dogs" [leaf "Triumph the comic insult dog"], 
                                                                 leaf "Chihuahuas (sp?)", 
                                                                 leaf "Poodles" ] ]