[racket] unit test for close enough values

I have a test that fails.

(module+ test
         (check-equal? (list->set
                        (vector-2d-orthogonals (vector 1 1)))
                       (list->set
                        (list
                         (vector-unit
                          (vector -1 1))
                         (vector-unit
                          (vector 1 -1))))))

--------------------
FAILURE
actual:     #<set: #(-0.7071067811865476 0.7071067811865476)
#(0.7071067811865476 -0.7071067811865476)>
expected:   #<set: #(-0.7071067811865475 0.7071067811865475)
#(0.7071067811865475 -0.7071067811865475)>

Is there something like "check-close-enough?" in rackunit?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20131221/52fef975/attachment.html>