;; DEGREES-TO-RADIANS
;; By Peter Reidy
;; Filed as {ERIS}<LISPCORE>TEST>DISPLAY>MATMULT>DEGREES-TO-RADIANS.TEST
;; Syntax: (DEGREES-TO-RADIANS DEGREES)
;; Function description: converts DEGREES to the equivalent quantity of radians.
;; Arguments: DEGREES - a real number
;;
(do-test-group degrees-to-radians-group
	:before
	(il:load? '{eris}<lispcore>test>display>matmult>matmult-test.source)
;;
	(do-test degrees-to-radians-test
	;; Compare the results of the function to an independent calculation that should give the same result.
		(every 'dtrtest (list 0 pi (* 2 pi) (- (+ pi pi)) (* 3/2 pi) (randmost) (randmost) (- (randmost)) (- (randmost)))
		)
	)
)
END