104 lines
3.4 KiB
Common Lisp
104 lines
3.4 KiB
Common Lisp
|
|
(in-package :kenzo-test)
|
|
|
|
(in-suite :kenzo)
|
|
|
|
|
|
(test normalize-gbar
|
|
(cat:normalize-gbar (list 0))
|
|
(cat:normalize-gbar (list 1 (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 2 (cat:absm 1 'i) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 2 (cat:absm 0 'a) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 0 'a) (cat:absm 0 'b)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 7 'i) (cat:absm 3 'i)
|
|
(cat:absm 1 'i) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 0 'a) (cat:absm 3 'i)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 1 'a) (cat:absm 3 'i)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 2 'a) (cat:absm 3 'i)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 4 'a) (cat:absm 3 'i)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 3 'a) (cat:absm 3 'i)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 5 'a) (cat:absm 3 'i)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 6 'a) (cat:absm 3 'i)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))
|
|
(cat:normalize-gbar (list 4 (cat:absm 1 'a) (cat:absm 3 'i)
|
|
(cat:absm 1 'i) (cat:absm 0 'i))))
|
|
|
|
|
|
(test unnormalize-gbar
|
|
(cat:unnormalize-gbar (cat:absm 1 cat:+null-gbar+) 'i)
|
|
(cat:unnormalize-gbar (cat:absm 15 cat:+null-gbar+) 'i)
|
|
(cat:normalize-gbar (cat:unnormalize-gbar
|
|
(cat:absm 15 cat:+null-gbar+) 'i))
|
|
(cat:unnormalize-gbar
|
|
(cat:absm 0 (cat:make-gbar :dmns 4
|
|
:list (list (cat:absm 0 'a) (cat:absm 0 'b)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))) 'i)
|
|
(cat:normalize-gbar
|
|
(cat:unnormalize-gbar
|
|
(cat:absm 0 (cat:make-gbar :dmns 4
|
|
:list (list (cat:absm 0 'a) (cat:absm 0 'b)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))) 'i))
|
|
(cat:unnormalize-gbar
|
|
(cat:absm 5 (cat:make-gbar :dmns 4
|
|
:list (list (cat:absm 0 'a) (cat:absm 0 'b)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))) 'i)
|
|
(cat:normalize-gbar
|
|
(cat:unnormalize-gbar
|
|
(cat:absm 5 (cat:make-gbar :dmns 4
|
|
:list (list (cat:absm 0 'a) (cat:absm 0 'b)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))) 'i))
|
|
(cat:unnormalize-gbar
|
|
(cat:absm 9 (cat:make-gbar :dmns 4
|
|
:list (list (cat:absm 0 'a) (cat:absm 0 'b)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))) 'i)
|
|
(cat:normalize-gbar
|
|
(cat:unnormalize-gbar
|
|
(cat:absm 9 (cat:make-gbar :dmns 4
|
|
:list (list (cat:absm 0 'a) (cat:absm 0 'b)
|
|
(cat:absm 0 'c) (cat:absm 0 'i)))) 'i)))
|
|
|
|
|
|
(test gbar
|
|
(cat:gbar 0)
|
|
(signals #-ecl simple-error
|
|
#+ecl simple-type-error (cat:gbar 1))
|
|
(cat:gbar 2 1 'a 2 'b))
|
|
|
|
|
|
(test classifying-space-cmpr
|
|
(let ((cmpr (cat:classifying-space-cmpr 'cat:s-cmpr)))
|
|
(is (equal :less (funcall cmpr
|
|
(cat:gbar 2 0 'a 0 'a)
|
|
(cat:gbar 2 1 'a 0 'a))))
|
|
(is (equal :less (funcall cmpr
|
|
(cat:gbar 2 0 'a 0 'a)
|
|
(cat:gbar 2 0 'b 0 'a))))
|
|
(is (equal :equal (funcall cmpr
|
|
(cat:gbar 2 0 'a 0 'a)
|
|
(cat:gbar 2 0 'a 0 'a))))))
|
|
|
|
|
|
(test classifying-space-basis
|
|
(cat:cat-init)
|
|
(let* ((k (cat:k-z2-1))
|
|
(b (cat:classifying-space-basis (cat:basis k))))
|
|
(funcall b 0)
|
|
(funcall b 1)
|
|
(dotimes (i 5) (print (funcall b i)))))
|
|
#|
|
|
()
|
|
(cat-init)
|
|
(setf k (k-z2-1))
|
|
(setf b (classifying-space-basis (basis k)))
|
|
(funcall b 0)
|
|
(funcall b 1)
|
|
(dotimes (i 5) (print (funcall b i)))
|
|
|#
|