diff --git a/collects/tests/scribble/xref.rkt b/collects/tests/scribble/xref.rkt index cb8ef79e..2b2b8849 100644 --- a/collects/tests/scribble/xref.rkt +++ b/collects/tests/scribble/xref.rkt @@ -7,13 +7,10 @@ (provide xref-tests) (module+ main (xref-tests)) (define (xref-tests) - (define xref - (load-xref (list - (lambda () - (cadr - (call-with-input-file* - (build-path (find-doc-dir) "reference" "out.sxref") - fasl->s-exp)))))) - (test (xref-binding->definition-tag - xref (list '(lib "contract.rkt" "racket") '->) #f) - => '(form ((lib "racket/contract/base.rkt") ->)))) + (define sxref (build-path (find-doc-dir) "reference" "out.sxref")) + (when (file-exists? sxref) + (define xref + (load-xref (list (λ() (cadr (call-with-input-file* sxref fasl->s-exp)))))) + (test (xref-binding->definition-tag + xref (list '(lib "contract.rkt" "racket") '->) #f) + => '(form ((lib "racket/contract/base.rkt") ->)))))