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

Testing vector components

Browse source
This commit is contained in:
BirDt_ 2026-04-04 14:47:38 +08:00
parent 6f9e0a934f
commit 2991268ecb
2 changed files with 42 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

24
test/components.scm Normal file
View file

@ -0,0 +1,24 @@
(module (test components) ()
(import scheme
(chicken base)
(engine core)
(engine components core)
(srfi 78)
(srfi 99))
(define v1 (make-vector2 0 0))
(define v2 (make-vector2 10 10))
(check (vector-= v2 (make-vector2 10 10)) => #t)
(check (vector-= (make-vector2 20 20)
(vector-+ v2 (make-vector2 10 10))) => #t)
(check (vector-= v1
(vector-- v2 (make-vector2 10 10))) => #t)
(check (vector-= (make-vector2 100 100)
(vector-* v2 (make-vector2 10 10))) => #t)
(check (vector-= (make-vector2 1 1)
(vector-/ v2 (make-vector2 10 10))) => #t)
(check (vector-magnitude (make-vector 100 0)) => 100)
(check (vector-= (make-vector 1 0)
(vector-normalize (make-vector 100 0))) => #t)
)