65 lines
1.7 KiB
Common Lisp
65 lines
1.7 KiB
Common Lisp
;;;; decons/test-decons - basic tests.
|
|
|
|
(defpackage :test-decons
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:t :scopes/testing))
|
|
(:export #:run)
|
|
(:import-from :scopes/testing #:deftest #:== #:!=))
|
|
|
|
(in-package :test-decons)
|
|
|
|
(defun run ()
|
|
(let ((t:*test-suite* (t:test-suite "decons")))
|
|
(test-basic)
|
|
(test-tensor)
|
|
(test-rapply)
|
|
(test-rreduce)
|
|
(test-line)
|
|
(t:show-result)))
|
|
|
|
(deftest test-basic ()
|
|
(== decons:+pi+ 3.14159)
|
|
(let ((c (make-instance 'decons:circle :radius 2.0)))
|
|
(== (decons:area c) 12.56636))
|
|
(== (funcall (decons:double #'1+) 7) 16)
|
|
(== (decons:absv 7) 7)
|
|
(== (decons:absv -7) 7)
|
|
(== (decons:remainder 7 4) 3)
|
|
)
|
|
|
|
(deftest test-tensor ()
|
|
(== (decons:scalar-p 7) t)
|
|
(== (decons:scalar-p '(a b)) nil)
|
|
(let ((t1 (decons:tensor '(4) '(0 1 2 3))))
|
|
(== (decons:at t1 0) 0)
|
|
(setf (decons:at t1 0) 5)
|
|
(== (decons:at t1 0) 5)
|
|
(== (decons:scalar-p t1) nil)
|
|
))
|
|
|
|
(deftest test-rapply ()
|
|
(== (decons:rapply #'1+ 7) 8)
|
|
(== (decons:rapply #'1+ '(2 3)) '(3 4))
|
|
(== (decons:rapply #'+ 2 3) 5)
|
|
(== (decons:rapply #'+ 3 '(4 5)) '(7 8))
|
|
(== (decons:rapply #'+ '(2 3) '(4 5)) '((6 7) (7 8))) ; not '(6 8)
|
|
(== (decons:rapply #'- '(6 7) '(4 5)) '((2 3) (1 2)))
|
|
)
|
|
|
|
(deftest test-rreduce ()
|
|
(== (decons:rreduce #'+ '(1 2 (3 4))) 10)
|
|
)
|
|
|
|
(deftest test-line ()
|
|
(let ((p1 (decons:line 0.0))
|
|
(p2 (decons:line 1.0))
|
|
(ds1 '((2.0 1.0 4.0 3.0)
|
|
(1.8 1.2 4.2 3.3)))
|
|
ps1)
|
|
(== (funcall p1 '(0.5 2.0)) 2.0)
|
|
(== (funcall p2 '(0.5 2.0)) 2.5)
|
|
(setf ps1 (decons:line (car ds1)))
|
|
(== (funcall ps1 '(0.5 2.0)) '(3.0 2.5 4.0 3.5))
|
|
(== (funcall ps1 '(1.0 0.0)) '(2.0 1.0 4.0 3.0))
|
|
(== (decons:cost (funcall ps1 '(1.0 0.0)) (cadr ds1)) 0.899999861)
|
|
))
|