(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)
)