mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

The previous commits fixed a few outstanding issues.

Browse Source
This commit is contained in:
Gerd Heber 2015-07-15 21:03:14 -05:00
parent bd09c079c2
commit 0648e4e8c0
3 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/k-pi-n-test.lisp
View File

@ -124,11 +124,11 @@
(let ((k (cat:k-z2-1))) (let ((k (cat:k-z2-1)))
(cat:homology k 0 4))) (cat:homology k 0 4)))
#|
(test k-z2-homology (test k-z2-homology
(let ((k3 (cat:k-z2 3))) (let ((k3 (cat:k-z2 3)))
(cat:homology k3 7))) (cat:homology k3 7)))
|#
(test z2-bar-absm (test z2-bar-absm
(dotimes (i 8) ;;; not really legal (dotimes (i 8) ;;; not really legal
@ -169,7 +169,6 @@
:orgn '(essai-2))) :orgn '(essai-2)))
(cat:gmsm-cocycle (cat:face d) 1 4 31 chml-clss))) (cat:gmsm-cocycle (cat:face d) 1 4 31 chml-clss)))
#|
(test z-cocycle-gbar (test z-cocycle-gbar
(cat:cat-init) (cat:cat-init)
(let* ((d (cat:delta 10)) (let* ((d (cat:delta 10))
@ -211,4 +210,3 @@
:orgn '(essai-33))) :orgn '(essai-33)))
(cat:gmsm-cocycle (cat:face d) 3 4 31 chml-clss) (cat:gmsm-cocycle (cat:face d) 3 4 31 chml-clss)
(cat:z-cocycle-gbar 3 4 *))) (cat:z-cocycle-gbar 3 4 *)))
|#

2
test/simplicial-groups-test.lisp
View File

@ -3,7 +3,6 @@
(in-suite :kenzo) (in-suite :kenzo)
#|
(test check-kan (test check-kan
(cat:cat-init) (cat:cat-init)
(let* ((k (cat:k-z-1)) (let* ((k (cat:k-z-1))
@ -12,4 +11,3 @@
(cat:<a-b> 0 3)))) (cat:<a-b> 0 3))))
(dotimes (i 4) (dotimes (i 4)
(cat:check-kan k i 3 (remove (nth i hat) hat :test #'equal))))) (cat:check-kan k i 3 (remove (nth i hat) hat :test #'equal)))))
|#

4
test/tensor-products-test.lisp
View File

@ -130,7 +130,7 @@
(cat:? ddd 5 (cat:tnpr 2 7 3 15)) (cat:? ddd 5 (cat:tnpr 2 7 3 15))
(cat:? ddd 5 (cat:tnpr 3 15 2 7)))) (cat:? ddd 5 (cat:tnpr 3 15 2 7))))
#|
(test tnsr-prdc1 (test tnsr-prdc1
(cat:cat-init) (cat:cat-init)
(let* ((r (cat:ez (cat:delta-infinity) (cat:delta-infinity))) (let* ((r (cat:ez (cat:delta-infinity) (cat:delta-infinity)))
@ -142,9 +142,9 @@
(cat:pre-check-rdct r2) (cat:pre-check-rdct r2)
(check-rdct))) (check-rdct)))
(test tnsr-prdc2 (test tnsr-prdc2
(cat:cat-init) (cat:cat-init)
(let* ((k (cat:k-z 2)) (let* ((k (cat:k-z 2))
(k2 (cat:tnsr-prdc k k))) (k2 (cat:tnsr-prdc k k)))
(cat:homology k2 0 10))) (cat:homology k2 0 10)))
|#