[racket] unit test for close enough values

[J G Cho]

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?

____________________
  Racket Users list:
  http://lists.racket-lang.org/users