From 39c2a08d316d42d3e49ca4769837892344c14de5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 11 Dec 2015 19:27:57 -0700 Subject: [PATCH] make tests/zo-path inspect all installation-scope packages --- pkgs/racket-test/tests/zo-path.rkt | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-test/tests/zo-path.rkt b/pkgs/racket-test/tests/zo-path.rkt index e211ea2600..4c62b3ae75 100644 --- a/pkgs/racket-test/tests/zo-path.rkt +++ b/pkgs/racket-test/tests/zo-path.rkt @@ -28,9 +28,19 @@ (check-one name))) (module+ main - (fold-files (check-content #rx"[.](?:zo|dep)$") + (require pkg/lib) + + (define zo/dep-content (check-content #rx"[.](?:zo|dep)$")) + + (fold-files zo/dep-content (void) - (find-pkgs-dir)) + (find-collects-dir)) + + (define cache (make-hash)) + (for ([pkg (in-list (installed-pkg-names #:scope 'installation))]) + (fold-files zo/dep-content + (void) + (pkg-directory pkg #:cache cache))) ;; Check rendered docs, too: (fold-files (check-content #rx"[.](?:html)$")