21 lines
666 B
Plaintext
21 lines
666 B
Plaintext
;; 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
|
|
|
|
|