;; $Id: bintree-to-list.tst,v 1.2 2005/02/28 20:40:33 leavens Exp leavens $

(newline)
(displayln "Test case of $Date: 2005/02/28 20:40:33 $")
(newline)

(run-regression-tests-equal?
 `(
   ( (bintree-to-list (leaf-node 3)) ==> (leaf-node 3) )
   ( (bintree-to-list (interior-node 'a (leaf-node 3) (leaf-node 4)))
     ==> (interior-node a (leaf-node 3) (leaf-node 4)) )
   ( (bintree-to-list
      (interior-node 'a
		     (interior-node 'b (leaf-node 3) (leaf-node 4))
		     (interior-node 'hmm (leaf-node 5) (leaf-node 2))))
      ==> (interior-node a
			 (interior-node b (leaf-node 3) (leaf-node 4))
			 (interior-node hmm (leaf-node 5) (leaf-node 2))) )
   )
 )