From a3708245ea1e3ff16f3f76a2d72bfaff251485c6 Mon Sep 17 00:00:00 2001 From: Gerd Heber Date: Sun, 20 Jan 2019 12:17:13 -0600 Subject: [PATCH] Restored all suspension tests. --- test/suspensions-test.lisp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/test/suspensions-test.lisp b/test/suspensions-test.lisp index b12dc34..c031c06 100644 --- a/test/suspensions-test.lisp +++ b/test/suspensions-test.lisp @@ -41,6 +41,12 @@ (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 (cat:cat-init) (let* ((coal (cat:deltab)) @@ -90,6 +96,19 @@ (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 (cat:cat-init) (let* ((f (cat:idnt-mrph (cat:deltab)))