BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

Tests for vector functions

Browse source
This commit is contained in:
BirDt_ 2026-04-06 13:07:39 +08:00
parent 8dbf44a9f0
commit 65a60a2a65
3 changed files with 58 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/components.scm
View file

@ -3,6 +3,7 @@
(chicken base)
(engine core)
(engine components core)
(engine math)
(srfi 78)
(srfi 99))
@ -21,4 +22,9 @@
(check (vector-magnitude (make-vector2 100 0)) => 100)
(check (vector-= (make-vector2 1 0)
(vector-normalize (make-vector2 100 0))) => #t)
(check (vector-dot (make-vector2 1 2)
(make-vector2 3 4)) => 11)
(check (rad-to-deg
(vector-angle-between (make-vector2 1 2)
(make-vector2 3 4))) (=> approx-=) 10.305)
)