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