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

Restored all suspension tests.

Browse Source
This commit is contained in:
Gerd Heber 2019-01-20 12:17:13 -06:00
parent b32e1c80fe
commit a3708245ea
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
test/suspensions-test.lisp
View File

@ -41,6 +41,12 @@
(cat:? scc 4 11))) (cat:? scc 4 11)))
(test suspension-intr-cprd
(cat:suspension-intr-cprd (cat:cmbn 0))
(cat:suspension-intr-cprd (cat:cmbn 0 5 :s-bsgn))
(cat:suspension-intr-cprd (cat:cmbn 3 4 7 5 11)))
(test coal (test coal
(cat:cat-init) (cat:cat-init)
(let* ((coal (cat:deltab)) (let* ((coal (cat:deltab))
@ -90,6 +96,19 @@
(cat:homology ssm 0 6))) (cat:homology ssm 0 6)))
(test suspension-intr
(cat:cat-init)
(let* ((f (cat:idnt-mrph (cat:deltab)))
(sf (cat:suspension-intr f))
(d (cat:dffr (cat:deltab)))
(sd (cat:suspension-intr d)))
(funcall sf (cat:cmbn 0 3 :s-bsgn))
(funcall sf (cat:cmbn 2 4 3))
(funcall sd (cat:cmbn 0 3 :s-bsgn))
(funcall sd (cat:cmbn 2 4 3))
(funcall sd (cat:cmbn 3 4 7))))
(test suspension2 (test suspension2
(cat:cat-init) (cat:cat-init)
(let* ((f (cat:idnt-mrph (cat:deltab))) (let* ((f (cat:idnt-mrph (cat:deltab)))