bad524ff54
(Since the nightly build includes the documentation only on the main machine.) original commit: a4381dd1f62f701227ead8efa6be15d5b950dc7d
17 lines
541 B
Racket
17 lines
541 B
Racket
#lang racket/base
|
|
(require scribble/xref
|
|
racket/fasl
|
|
setup/dirs
|
|
tests/eli-tester)
|
|
|
|
(provide xref-tests)
|
|
(module+ main (xref-tests))
|
|
(define (xref-tests)
|
|
(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") ->)))))
|