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 "cl-space-efhm-test")
(:file "classifying-spaces-test")
(:file "cobar-test")
(:file "combinations-test")
(:file "cones-test")
(:file "delta-test")

19
package.lisp
View File

@ -113,8 +113,10 @@
ABSM
AB-SIMPLICIAL-GROUP
ALLP-LIST
BCC
BRGN
CBGN
CHAIN-COMPLEX
CMBN-CMBN
CMBN-DEGR
@ -134,6 +136,7 @@
KAN
LRDCT
MAKE-ABAR
MAKE-ALLP
MAKE-CMBN
MAKE-RESULT
MORPHISM
@ -159,6 +162,21 @@
NORMALIZE-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
2CMBN-ADD
@ -205,6 +223,7 @@
DELTA-FACE
DELTA-INFINITY
DELTA-N-BASIS
DELTAB
DELTAB2-BNDR
DELTAB2-DGNL
SOFT-DELTA

1015
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))))))
(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
(progn

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

@ -237,6 +237,7 @@
(check-rdct))))))
|#
#|
(test cs-left-hmeq-left-reduction
(cat:cat-init)
(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:*bc* (cat:cmbn 5 1 gbar))
(check-rdct))))))
|#
(test 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))
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))