36 lines
805 B
Common Lisp
36 lines
805 B
Common Lisp
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
|
|
|
|
(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)
|
|
|#
|