<div dir="ltr"><div>You can use `call-with-values' and wrap it in a helper:<br><br>#lang racket<br>(require rackunit)<br><br>(define (call-with-values->list p . args)<br>  (call-with-values (λ()(apply p args)) list))<br>

<br>(define (some-proc x y)<br>  (values y x))<br><br>(check-equal? (call-with-values->list some-proc 2 1)<br>              (list 1 2))<br><br></div><div><br>(Usually I abbreviate `call-with-values->list' to `cvl'.)<br>

</div><div>I wonder why there is not something similar in the main distribution though.<br></div><div><br></div>Laurent</div><div class="gmail_extra"><br><br><div class="gmail_quote">On Sun, Oct 6, 2013 at 5:51 PM, Manfred Lotz <span dir="ltr"><<a href="mailto:manfred.lotz@arcor.de" target="_blank">manfred.lotz@arcor.de</a>></span> wrote:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi there,<br>
Assume a function which returns values. I couldn't find anything in<br>
rackunit to test such a function out of the box.<br>
<br>
Simple example:<br>
<br>
(define (mval)<br>
  (values 1 2 3))<br>
<br>
<br>
Now I like to test it using rackunit. The only idea I have is:<br>
<br>
  (let-values ([(x y z) (mval)])<br>
    (check-equal? (list x y z) (list 1 2 3)))<br>
<br>
Works fine. However, I can imagine this could be done better and/or<br>
easier.<br>
<span class="HOEnZb"><font color="#888888"><br>
<br>
--<br>
Manfred<br>
<br>
____________________<br>
  Racket Users list:<br>
  <a href="http://lists.racket-lang.org/users" target="_blank">http://lists.racket-lang.org/users</a><br>
</font></span></blockquote></div><br></div>