[racket] How to test a function which return multiple values?

Hi there,
Assume a function which returns values. I couldn't find anything in
rackunit to test such a function out of the box.

Simple example:

(define (mval)
  (values 1 2 3))


Now I like to test it using rackunit. The only idea I have is:

  (let-values ([(x y z) (mval)])
    (check-equal? (list x y z) (list 1 2 3)))

Works fine. However, I can imagine this could be done better and/or
easier.


-- 
Manfred