b5865f2f79
For example, the cross-reference information for the Reference is now broken into about 16 pieces, so that resolving a cross-reference into the Reference doesn't require loading all cross-reference information for the Reference. Every document is split into two pieces, so that the title of a document is roughly in its own piece. That way, re-building the page of all installed documentation can be more scalable (after some further changes). original commit: a73dc502242d5a61efe526ebb19fc2588f30372a
19 lines
589 B
Racket
19 lines
589 B
Racket
#lang racket/base
|
|
(require scribble/xref
|
|
racket/fasl
|
|
setup/dirs
|
|
tests/eli-tester)
|
|
|
|
;; FIXME: need to look for out<i>.sxref files
|
|
|
|
(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") ->)))))
|