(in-package :kenzo-test)

(in-suite :kenzo)

(test chcm-mat
      (progn
	(let ((d (cat:delta 3)))
	  (princ (cat:chcm-mat d 2))
	  (princ (cat:chcm-mat d 3))
	  (princ (cat:chcm-mat d 4)))))

(test chcm-homology
      (progn
	(let ((d (cat:sphere 3)))
	  (princ (cat:chcm-homology d 2))
	  (princ (cat:chcm-homology d 3))
	  (princ (cat:chcm-homology d 4)))))

(test chcm-homology-gen
      (progn
	(let ((d (cat:sphere 3)))
	  (princ (cat:chcm-homology-gen d 2))
	  (princ (cat:chcm-homology-gen d 3))
	  (princ (cat:chcm-homology-gen d 4)))))


#|
()
(setf d (sphere 3))
(chcm-homology-gen-old d 2)
(chcm-homology-gen-old d 3)
(chcm-homology-gen-old d 4)
|#