mirror of
https://github.com/open-goal/jak-project
synced 2026-06-25 18:14:34 -04:00
water111
14 lines
281 B
Common Lisp
14 lines
281 B
Common Lisp
(start-test "vector-dot")
|
|
|
|
(let ((a (new 'global 'vector))
|
|
(b (new 'global 'vector)))
|
|
(set! (-> a x) 1.)
|
|
(set! (-> a y) 2.)
|
|
(set! (-> a z) 3.)
|
|
(set! (-> b x) 2.)
|
|
(set! (-> b y) 3.)
|
|
(set! (-> b z) 4.)
|
|
(expect-true (= 20.0 (vector-dot-vu a b)))
|
|
)
|
|
|
|
(finish-test) |