suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Do the xref test only if "doc/reference/out.sxref" exists/

Browse Source 
(Since the nightly build includes the documentation only on the main
machine.)

original commit: a4381dd1f62f701227ead8efa6be15d5b950dc7d
This commit is contained in:
Eli Barzilay 2012-05-07 09:11:36 -04:00
parent 36eea932a8
commit bad524ff54
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/tests/scribble/xref.rkt
View File

@ -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") ->)))))