30 lines
691 B
Scheme
30 lines
691 B
Scheme
(module (test components) ()
|
|
(import scheme
|
|
(chicken base)
|
|
(engine core)
|
|
(engine components core)
|
|
(engine math)
|
|
(srfi 78)
|
|
(srfi 99))
|
|
|
|
(define v1 (vec 0 0))
|
|
(define v2 (vec 10 10))
|
|
|
|
(check (v= v2 (vec 10 10)) => #t)
|
|
(check (v= (vec 20 20)
|
|
(v+ v2 (vec 10 10))) => #t)
|
|
(check (v= v1
|
|
(v- v2 (vec 10 10))) => #t)
|
|
(check (v= (vec 100 100)
|
|
(v* v2 (vec 10 10))) => #t)
|
|
(check (v= (vec 1 1)
|
|
(v/ v2 (vec 10 10))) => #t)
|
|
(check (vector-magnitude (vec 100 0)) => 100)
|
|
(check (v= (vec 1 0)
|
|
(vector-normalize (vec 100 0))) => #t)
|
|
(check (vector-dot (vec 1 2)
|
|
(vec 3 4)) => 11)
|
|
(check (rad-to-deg
|
|
(vector-angle-between (vec 1 2)
|
|
(vec 3 4))) (=> approx-=) 10.305)
|
|
)
|