;;TEST
(check-expect
 (make-subtree (make-ptree-node 'm 0.0202124))
 (make-treenode empty (make-ptree-node 'm 0.0202124) empty))

;;TEST
(check-expect
 (make-subtree (make-treenode empty (make-ptree-node 'm 0.0202124) empty))
 (make-treenode empty (make-ptree-node 'm 0.0202124) empty))

;;TEST
(check-expect
 (contains? 'e simplecode)
 false)

;;TEST
(check-expect
 (contains? 'c simplecode)
 true)

 ;;TEST
(check-expect
 (encode 'a simplecode)
 '(0 0))

;;TEST
(check-expect
 (encode 'd simplecode)
 '(1 1))
 ;;TEST
(check-expect
 (encode-list '(a d) simplecode)
 '((0 0)(1 1)))

;;TEST
(check-expect
 (encode-list '(c b) simplecode)
 '((1 0)(0 1)))

 ;;TEST
(check-expect
 (make-subtree-list (list ptree1 (make-ptree-node 'b 0.2)))
 (list ptree1 ptree2))

;;TEST
(check-expect
 (make-subtree-list (list (make-treenode empty (make-ptree-node 'a 0.5) empty) (make-ptree-node 'b 0.5)))
 (list (make-treenode empty (make-ptree-node 'a 0.5) empty) (make-treenode empty (make-ptree-node 'b 0.5)empty)))

 ;;TEST
(check-expect
 (sort-ptree-list (list ptree3 ptree2 ptree1))
 (list ptree1 ptree2 ptree3))

;;TEST
(check-expect
  (sort-ptree-list  (list (make-treenode empty (make-ptree-node 'first 0.5) empty)
                          (make-treenode empty (make-ptree-node 'second 0.2) empty)))
  (list (make-treenode empty (make-ptree-node 'second 0.2) empty)
        (make-treenode empty (make-ptree-node 'first 0.5) empty)))

;;TEST
(check-expect
 (build-ptree (list ptree1 ptree2 ptree3))
 (make-treenode
  ptree3
  (make-ptree-node 'unused 0.6)
  (make-treenode
   ptree1
   (make-ptree-node 'unused 0.3)
   ptree2)))

;;TEST
(check-expect
 (build-ptree (list (make-treenode empty (make-ptree-node 'a 0.3) empty)
                    (make-treenode empty (make-ptree-node 'b 0.2) empty)
                    (make-treenode empty (make-ptree-node 'c 0.5) empty)))
 (make-treenode
  (make-treenode empty (make-ptree-node 'c 0.5) empty)
  (make-ptree-node 'unused 1)
  (make-treenode
   (make-treenode empty (make-ptree-node 'b 0.2) empty)
   (make-ptree-node 'unused 0.5)
   (make-treenode empty (make-ptree-node 'a 0.3) empty))))

;;TEST
(check-expect
 (ptree-contains? 'c ptree3)
 true)

;;TEST
(check-expect
 (ptree-contains? 'c (make-treenode empty (make-ptree-node 'unused 0.9)  ptree3))
 true)

;;TEST
(check-expect
 (ptree-encode 'a (make-treenode ptree1 (make-ptree-node 'unused 0.9) ptree3))
 '(0))
;;TEST
(check-expect
 (ptree-encode 'b (make-treenode empty (make-ptree-node 'unused 0.5)
                    (make-treenode empty (make-ptree-node 'b 0.5) empty)))
 (list 1))

;;TEST
(check-expect
 (ptree-encode-list '(g d i space i s t space t o l l) (build-ptree (make-subtree-list freq)))
 (list '(1 0 0 0 1 1) '(1 1 0 1 0) '(0 1 1 0) '(1 1 1) '(0 1 1 0) '(0 0 1 1) '(1 1 0 0) '(1 1 1) '(1 1 0 0) '(1 0 0 1) '(1 0 1 1 0) '(1 0 1 1 0)))

;;TEST
(check-expect
 (ptree-encode-list  '(b a a) (make-treenode (make-treenode empty (make-ptree-node 'a 0.5) empty)
                                             (make-ptree-node 'unused 1.0)
                                             (make-treenode empty (make-ptree-node 'b 0.5) empty)))