;;;; Automatic test of multiple return values | |
(let ((quotient/remainder (divide-l 37 5))) | |
(if (not (equal? quotient/remainder '(7 2))) | |
(exit 1))) | |
(let ((quotient-remainder-vector (divide-v 41 7))) | |
(if (not (equal? quotient-remainder-vector #(5 6))) | |
(exit 1))) | |
(call-with-values (lambda () | |
(divide-mv 91 13)) | |
(lambda (quotient remainder) | |
(if (not (and (= quotient 7) | |
(= remainder 0))) | |
(exit 1)))) | |
(exit 0) | |