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

Extracted cobar tests.

Browse Source
This commit is contained in:
Gerd Heber 2015-07-22 20:11:54 -05:00
parent 3c0bf751c4
commit c6666fbe3d
6 changed files with 462 additions and 630 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
kenzo-test.asd
View File

@ -19,6 +19,7 @@
(:file "circle") (:file "circle")
(:file "cl-space-efhm-test") (:file "cl-space-efhm-test")
(:file "classifying-spaces-test") (:file "classifying-spaces-test")
(:file "cobar-test")
(:file "combinations-test") (:file "combinations-test")
(:file "cones-test") (:file "cones-test")
(:file "delta-test") (:file "delta-test")

19
package.lisp
View File

@ -113,8 +113,10 @@
ABSM ABSM
AB-SIMPLICIAL-GROUP AB-SIMPLICIAL-GROUP
ALLP-LIST
BCC BCC
BRGN BRGN
CBGN
CHAIN-COMPLEX CHAIN-COMPLEX
CMBN-CMBN CMBN-CMBN
CMBN-DEGR CMBN-DEGR
@ -134,6 +136,7 @@
KAN KAN
LRDCT LRDCT
MAKE-ABAR MAKE-ABAR
MAKE-ALLP
MAKE-CMBN MAKE-CMBN
MAKE-RESULT MAKE-RESULT
MORPHISM MORPHISM
@ -159,6 +162,21 @@
NORMALIZE-GBAR NORMALIZE-GBAR
UNNORMALIZE-GBAR UNNORMALIZE-GBAR
;; cobar.lisp
ALLP
COBAR
COBAR-BASIS
COBAR-BASIS-LENGTH
COBAR-CMPR
COBAR-HRZN-DFFR
COBAR-INTR-HRZN-DFFR
COBAR-INTR-VRTC-DFFR
HMTP-VRTC-COBAR-INTR
MRPH-VRTC-COBAR-INTR
NCMBN-COBAR
VRTC-COBAR
;; combinations.lisp ;; combinations.lisp
2CMBN-ADD 2CMBN-ADD
@ -205,6 +223,7 @@
DELTA-FACE DELTA-FACE
DELTA-INFINITY DELTA-INFINITY
DELTA-N-BASIS DELTA-N-BASIS
DELTAB
DELTAB2-BNDR DELTAB2-BNDR
DELTAB2-DGNL DELTAB2-DGNL
SOFT-DELTA SOFT-DELTA

1017
src/cobar.lisp
View File

File diff suppressed because it is too large Load Diff

26
test/bar-test.lisp
View File

@ -176,32 +176,6 @@
3 (cat:crpr 0 14 0 14)))))) 3 (cat:crpr 0 14 0 14))))))
(defun aleat-tc ()
(do ((tdegr 0 (+ tdegr degr))
(degr (+ 2 (random 3)) (+ 2 (random 3)))
(gnrt (intern (coerce (vector (code-char (+ 65 (random 4)))) 'string))
(intern (coerce (vector (code-char (+ 65 (random 4)))) 'string)))
(rslt nil (cons (cat:brgn degr gnrt) rslt)))
((> tdegr 10) (setf cat:*tc* (cat:cmbn tdegr 1 (cat:make-abar
:list rslt))))))
(defun aleat-bc ()
(do ((tdegr 0 (+ tdegr degr))
(degr (+ 2 (random 3)) (+ 2 (random 3)))
(gnrt (intern (coerce (vector (code-char (+ 67 (random 2)))) 'string))
(intern (coerce (vector (code-char (+ 67 (random 2)))) 'string)))
(rslt nil (cons (cat:brgn degr gnrt) rslt)))
((> tdegr 10) (setf cat:*bc* (cat:cmbn tdegr 1 (cat:make-abar
:list rslt))))))
(defun c ()
(aleat-tc)
(aleat-bc)
(check-rdct))
#| #|
(test vrtc-bar1 (test vrtc-bar1
(progn (progn

3
test/cl-space-efhm-test.lisp
View File

@ -237,6 +237,7 @@
(check-rdct)))))) (check-rdct))))))
|# |#
#|
(test cs-left-hmeq-left-reduction (test cs-left-hmeq-left-reduction
(cat:cat-init) (cat:cat-init)
(let ((rdct (cat:cs-left-hmeq-left-reduction (cat:k-z-1))) (let ((rdct (cat:cs-left-hmeq-left-reduction (cat:k-z-1)))
@ -298,7 +299,7 @@
(setf cat:*tc* (cat:cmbn (+ 4 abar-degr) 1 gnrt)) (setf cat:*tc* (cat:cmbn (+ 4 abar-degr) 1 gnrt))
(setf cat:*bc* (cat:cmbn 5 1 gbar)) (setf cat:*bc* (cat:cmbn 5 1 gbar))
(check-rdct)))))) (check-rdct))))))
|#
(test cs-pre-left-hmeq-right-reduction-intr-f (test cs-pre-left-hmeq-right-reduction-intr-f
(cat:cs-pre-left-hmeq-right-reduction-intr-f (cat:cs-pre-left-hmeq-right-reduction-intr-f

26
test/common.lisp
View File

@ -184,3 +184,29 @@
list) list)
list)) list))
rslt))) rslt)))
(defun aleat-tc ()
(do ((tdegr 0 (+ tdegr degr))
(degr (+ 2 (random 3)) (+ 2 (random 3)))
(gnrt (intern (coerce (vector (code-char (+ 65 (random 4)))) 'string))
(intern (coerce (vector (code-char (+ 65 (random 4)))) 'string)))
(rslt nil (cons (cat:brgn degr gnrt) rslt)))
((> tdegr 10) (setf cat:*tc* (cat:cmbn tdegr 1 (cat:make-abar
:list rslt))))))
(defun aleat-bc ()
(do ((tdegr 0 (+ tdegr degr))
(degr (1+ (random 4)) (1+ (random 4)))
(gnrt (intern (coerce (vector (code-char (+ 67 (random 2)))) 'string))
(intern (coerce (vector (code-char (+ 67 (random 2)))) 'string)))
(rslt nil (cons (cat:brgn degr gnrt) rslt)))
((> tdegr 10) (setf cat:*bc* (cat:cmbn tdegr 1 (cat:make-abar
:list rslt))))))
(defun c ()
(aleat-tc)
(aleat-bc)
(check-rdct))