2d4f3e2ac9
The layer is now redundant, since everything left in "pkgs" is in the "racket-pkgs" category.
51 lines
1.7 KiB
Racket
51 lines
1.7 KiB
Racket
#lang racket/base
|
|
(require setup/xref
|
|
scribble/xref
|
|
racket/path
|
|
net/url
|
|
rackunit)
|
|
|
|
;; The `test-docs-...' functions are meant to be called via "tests-binary.rkt"
|
|
(provide test-docs-x
|
|
test-docs-y
|
|
test-docs-r)
|
|
|
|
(define xref (load-collections-xref))
|
|
|
|
(define (test here? tag)
|
|
(check-equal? here? (and tag #t))
|
|
(when tag
|
|
(define-values (p a) (xref-tag->path+anchor xref tag))
|
|
(check-true (path? p))
|
|
(call-with-input-file*
|
|
p
|
|
(lambda (in)
|
|
(define m (regexp-match #rx"<script [^>]*src=\"(?:file://)?([^\"]*)local-redirect.js\"[^>]*>" in))
|
|
(define ref (url->path
|
|
(string->url
|
|
(bytes->string/utf-8
|
|
(if (equal? (cadr m) #"")
|
|
#"."
|
|
(cadr m))))))
|
|
(define path (if (absolute-path? ref)
|
|
(build-path ref
|
|
"local-redirect.js")
|
|
(build-path (path-only p)
|
|
ref
|
|
"local-redirect.js")))
|
|
(check-true (file-exists? path))))))
|
|
|
|
(define (test-docs-x here?)
|
|
(when (collection-path "x" #:fail (lambda (x) #f))
|
|
(namespace-require '(for-label x)))
|
|
(test here? (xref-binding->definition-tag xref (eval '#'x) #f)))
|
|
|
|
(define (test-docs-y here?)
|
|
(when (collection-path "y" #:fail (lambda (x) #f))
|
|
(namespace-require '(for-label y)))
|
|
(test here? (xref-binding->definition-tag xref (eval '#'y) #f)))
|
|
|
|
(define (test-docs-r here?)
|
|
(namespace-require '(for-label racket/base))
|
|
(test here? (xref-binding->definition-tag xref (eval '#'lambda) #f)))
|