commit bad524ff543a71936b5c3f07b033daff0053f22c parent 36eea932a8534f91b9090fdf4caa0bd19a87a889 Author: Eli Barzilay <eli@barzilay.org> Date: Mon, 7 May 2012 09:11:36 -0400 Do the xref test only if "doc/reference/out.sxref" exists/ (Since the nightly build includes the documentation only on the main machine.) original commit: a4381dd1f62f701227ead8efa6be15d5b950dc7d Diffstat:
| M | collects/tests/scribble/xref.rkt | | | 17 | +++++++---------- |
1 file changed, 7 insertions(+), 10 deletions(-)
diff --git 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") ->)))))