30 lines
899 B
Scheme
30 lines
899 B
Scheme
(module (test components) ()
|
|
(import scheme
|
|
(chicken base)
|
|
(engine core)
|
|
(engine components core)
|
|
(engine math)
|
|
(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-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)
|
|
)
|