First batch of DELTA tests.

kenzo-test.asd

@@ -19,4 +19,5 @@
 	       (:file "effective-homology-test")
 	       (:file "bicones-test")
 	       (:file "homology-groups-test")
-	       (:file "searching-homology-test")))
+	       (:file "searching-homology-test")
+	       (:file "delta-test")))

package.lisp

@@ -72,6 +72,7 @@
 	   DFFR1
 	   F
 	   G
+	   GMSM
 	   H
 	   HOMOTOPY-EQUIVALENCE
 	   IABSM
@@ -107,7 +108,10 @@
 	   ;; delta.lisp
 
 	   DELTA
+	   DELTA-FACE
 	   DELTA-N-BASIS
+	   SOFT-DELTA-CMPR
+	   SOFT-DELTA-FACE
 
 	   ;; effective-homology.lisp
 
@@ -149,6 +153,7 @@
 	   DFFR
 	   GNRT
 	   I-SBTR
+	   MASK
 	   RBCC
 	   TERM
 	   TERM-CMBN
@@ -160,6 +165,7 @@
 
 	   ;; simplicial-sets.lisp
 
+	   DLOP-EXT-INT
 	   DLOP-INT-EXT
 
 	   ;; smith.lisp

test/delta-test.lisp

@@ -0,0 +1,37 @@
+
+(in-package :kenzo-test)
+
+(in-suite :kenzo)
+
+(test soft-delta-cmpr
+      (is (equal :less (cat:soft-delta-cmpr '(d 12) '(d 23)))))
+
+(defun faces (i lst)
+  (cat:dlop-int-ext
+   (cat:gmsm
+    (cat:delta-face i 3 (cat:dlop-ext-int lst)))))
+
+(test delta-face
+      (is (equal '(1 2 3) (faces 0 '(0 1 2 3))))
+      (is (equal '(0 2 3) (faces 1 '(0 1 2 3))))
+      (is (equal '(0 1 3) (faces 2 '(0 1 2 3))))
+      (is (equal '(0 1 2) (faces 3 '(0 1 2 3))))
+      (is (equal '(2 4 6) (faces 0 '(0 2 4 6))))
+      (is (equal '(0 4 6) (faces 1 '(0 2 4 6))))
+      (is (equal '(0 2 6) (faces 2 '(0 2 4 6))))
+      (is (equal '(0 2 4) (faces 3 '(0 2 4 6))))
+
+      (dotimes (i 4)
+	(print (cat:soft-delta-face i 3 `(:delt ,(cat:mask 4)))))
+      
+      (dotimes (i 4)
+	(print (cat:soft-delta-face i 3 `(:delt
+					  ,(cat:dlop-ext-int '(0 2 4 6)))))))
+
+#|
+(test homology
+      (progn
+	(cat:cat-init)
+	(let ((d (cat:delta 3)))
+	  (princ (cat:homology d 0)))))
+|#