70caf5f509
This change removes `rendered-scribblings' as a recognized "info.rkt" definition (which was added for binary packages, but now `scribblings' serves both roles). The `raco setup' changes involve support for moving pre-rendered documentation into place (where "moving" may actually mean leaving it in place but updating the "local-redirect.js" path), but also allowing documentation to be re-rendered.
217 lines
9.0 KiB
Racket
217 lines
9.0 KiB
Racket
#lang racket/base
|
|
(require "shelly.rkt"
|
|
"util.rkt"
|
|
racket/file
|
|
file/unzip)
|
|
|
|
(pkg-tests
|
|
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-x/" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-y/" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-x/ test-pkgs/pkg-z/" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-y/ test-pkgs/pkg-z/" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-x/ test-pkgs/pkg-y/" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-y/ test-pkgs/pkg-x/" =exit> 1
|
|
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-z/" =exit> 0
|
|
|
|
(putenv "PLT_PKG_NOSETUP" "")
|
|
$ "raco pkg install test-pkgs/pkg-x/ test-pkgs/pkg-y/"
|
|
(putenv "PLT_PKG_NOSETUP" "1")
|
|
|
|
$ "racket -l racket/base -l x -e '(x)'" =stdout> "'x\n"
|
|
$ "racket -l racket/base -l y -e '(y)'" =stdout> "'y\n"
|
|
$ "racket -l racket/base -l y/sub/s -e '(s)'" =stdout> "'s\n"
|
|
|
|
$ "racket -l racket/base -e '(require (submod x test))'"
|
|
$ "racket -l racket/base -e '(require (submod y/other doc))'"
|
|
|
|
$ "racket -l racket/base -t test-docs.rkt -e '(test-docs-x #t)'"
|
|
$ "racket -l racket/base -t test-docs.rkt -e '(test-docs-y #t)'"
|
|
|
|
(make-directory* "test-pkgs/src-pkgs")
|
|
(make-directory* "test-pkgs/built-pkgs")
|
|
$ "raco pkg create --from-install --source --dest test-pkgs/src-pkgs pkg-x"
|
|
$ "raco pkg create --from-install --source --dest test-pkgs/src-pkgs pkg-y"
|
|
$ "raco pkg create --from-install --source --dest test-pkgs/src-pkgs pkg-z"
|
|
|
|
$ "raco pkg create --from-install --binary --dest test-pkgs pkg-x"
|
|
$ "raco pkg create --from-install --binary --dest test-pkgs pkg-y"
|
|
$ "raco pkg create --from-install --binary --dest test-pkgs pkg-z"
|
|
|
|
$ "raco pkg create --from-install --built --dest test-pkgs/built-pkgs pkg-x"
|
|
$ "raco pkg create --from-install --built --dest test-pkgs/built-pkgs pkg-y"
|
|
$ "raco pkg create --from-install --built --dest test-pkgs/built-pkgs pkg-z"
|
|
|
|
(putenv "PLT_PKG_NOSETUP" "")
|
|
$ "raco pkg remove pkg-x pkg-y pkg-z"
|
|
(putenv "PLT_PKG_NOSETUP" "1")
|
|
|
|
$ "racket -l racket/base -t test-docs.rkt -e '(test-docs-x #f)'"
|
|
$ "racket -l racket/base -t test-docs.rkt -e '(test-docs-y #f)'"
|
|
|
|
(define tmp-dir (make-temporary-file "unpack-~a" 'directory))
|
|
|
|
(shelly-case
|
|
"check content of source package"
|
|
(make-directory* tmp-dir)
|
|
(define (unpack name)
|
|
(define orig-d (current-directory))
|
|
(let ([z (path->complete-path (format "test-pkgs/src-pkgs/pkg-~a.zip" name))])
|
|
(define d (build-path tmp-dir name))
|
|
(make-directory* d)
|
|
(parameterize ([current-directory d])
|
|
(unzip z)
|
|
(for ([f (in-directory)])
|
|
(define orig-f (build-path orig-d (format "test-pkgs/pkg-~a" name) f))
|
|
(unless (if (file-exists? f)
|
|
(file-exists? orig-f)
|
|
(directory-exists? orig-f))
|
|
(error 'diff "extra ~s" f))
|
|
(when (file-exists? f)
|
|
(unless (equal? (file->bytes f)
|
|
(file->bytes orig-f))
|
|
(error 'diff "file differs ~s" f)))))
|
|
(parameterize ([current-directory (format "test-pkgs/pkg-~a" name)])
|
|
(for ([f (in-directory)])
|
|
(define new-f (build-path d f))
|
|
(unless (if (file-exists? f)
|
|
(file-exists? new-f)
|
|
(directory-exists? new-f))
|
|
(unless (regexp-match? #rx#"nosrc" (path->bytes f))
|
|
(error 'diff "missing ~s" new-f)))))))
|
|
(unpack "x")
|
|
(unpack "y")
|
|
(unpack "z")
|
|
(delete-directory/files tmp-dir))
|
|
|
|
(shelly-case
|
|
"check content of binary package"
|
|
(make-directory* tmp-dir)
|
|
(define (unpack-bin name)
|
|
(let ([z (path->complete-path (format "test-pkgs/pkg-~a.zip" name))])
|
|
(define d (build-path tmp-dir name))
|
|
(make-directory* d)
|
|
(parameterize ([current-directory d])
|
|
(unzip z)
|
|
(for ([f (in-directory)])
|
|
(when (or (and (regexp-match? #rx#"(?:[.](?:rkt|scrbl|dep)|_scrbl[.]zo)$" (path->bytes f))
|
|
(not (regexp-match? #rx#"(?:info_rkt[.]dep)$" (path->bytes f))))
|
|
(regexp-match? #rx#"nobin" (path->bytes f)))
|
|
(unless (regexp-match? #rx#"(?:info[.]rkt|keep.scrbl)$" (path->bytes f))
|
|
(error 'binary "extra ~s" f)))))))
|
|
(unpack-bin "x")
|
|
(unpack-bin "y")
|
|
(unpack-bin "z")
|
|
(delete-directory/files tmp-dir))
|
|
|
|
(shelly-case
|
|
"check content of built package"
|
|
(make-directory* tmp-dir)
|
|
(define (unpack-built name)
|
|
(let ([src (path->complete-path (format "test-pkgs/src-pkgs/pkg-~a.zip" name))]
|
|
[bin (path->complete-path (format "test-pkgs/pkg-~a.zip" name))]
|
|
[blt (path->complete-path (format "test-pkgs/built-pkgs/pkg-~a.zip" name))])
|
|
(define sd (build-path tmp-dir name "src"))
|
|
(define bd (build-path tmp-dir name "bin"))
|
|
(define td (build-path tmp-dir name "blt"))
|
|
(make-directory* sd)
|
|
(make-directory* bd)
|
|
(make-directory* td)
|
|
(parameterize ([current-directory sd])
|
|
(unzip src))
|
|
(parameterize ([current-directory bd])
|
|
(unzip bin))
|
|
(parameterize ([current-directory td])
|
|
(unzip blt)
|
|
(for ([f (in-directory)])
|
|
(when (file-exists? f)
|
|
(unless (or (file-exists? (build-path sd f))
|
|
(file-exists? (build-path bd f)))
|
|
(unless (regexp-match? #rx#"(?:[.](?:dep)|_scrbl[.]zo)$" (path->bytes f))
|
|
(error 'built "extra ~s" f))))
|
|
(when (regexp-match? #rx#"[.]zo$" (path->bytes f))
|
|
(unless (file-exists? (path-replace-suffix f #".dep"))
|
|
(error 'build "dep missing for ~s" f)))
|
|
(when (regexp-match? #rx#"[.](rkt|scrbl|ss)$" (path->bytes f))
|
|
(let-values ([(base name dir?) (split-path f)])
|
|
(unless (file-exists? (build-path (if (eq? base 'relative) 'same base)
|
|
"compiled"
|
|
(path-add-suffix name #".zo")))
|
|
(unless (regexp-match? #rx#"^(?:info.rkt|x/keep.scrbl)$" (path->bytes f))
|
|
(error 'build "compiled file missing for ~s" f)))))))
|
|
(parameterize ([current-directory sd])
|
|
(for ([f (in-directory)])
|
|
(when (file-exists? f)
|
|
(unless (file-exists? (build-path td f))
|
|
(error 'built "missing source ~s" f)))))
|
|
(parameterize ([current-directory bd])
|
|
(for ([f (in-directory)])
|
|
(when (file-exists? f)
|
|
(unless (file-exists? (build-path td f))
|
|
(error 'built "missing binary ~s" f)))))))
|
|
(unpack-built "x")
|
|
(unpack-built "y")
|
|
(unpack-built "z")
|
|
(delete-directory/files tmp-dir))
|
|
|
|
(shelly-case
|
|
"source-package dependencies like original"
|
|
$ "raco pkg install --deps fail test-pkgs/src-pkgs/pkg-x.zip" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/src-pkgs/pkg-y.zip" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/src-pkgs/pkg-x.zip test-pkgs/src-pkgs/pkg-z.zip" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/src-pkgs/pkg-y.zip test-pkgs/src-pkgs/pkg-z.zip" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/src-pkgs/pkg-x.zip test-pkgs/src-pkgs/pkg-y.zip" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/src-pkgs/pkg-y.zip test-pkgs/src-pkgs/pkg-x.zip" =exit> 1)
|
|
|
|
(shelly-case
|
|
"binary-package dependencies are less"
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-x.zip" =exit> 1
|
|
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-x.zip test-pkgs/pkg-z.zip"
|
|
$ "raco pkg remove pkg-x pkg-z"
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-y.zip"
|
|
$ "raco pkg remove pkg-y")
|
|
|
|
(putenv "PLT_PKG_NOSETUP" "")
|
|
$ "raco pkg install --deps fail test-pkgs/pkg-y.zip"
|
|
(putenv "PLT_PKG_NOSETUP" "1")
|
|
|
|
$ "racket -l racket/base -l y -e '(y)'" =stdout> "'y\n"
|
|
$ "racket -l racket/base -l y/sub/s -e '(s)'" =stdout> "'s\n"
|
|
|
|
$ "racket -l racket/base -t test-docs.rkt -e '(test-docs-x #f)'"
|
|
$ "racket -l racket/base -t test-docs.rkt -e '(test-docs-y #t)'"
|
|
|
|
$ "racket -l racket/base -e '(require (submod x test))'" =exit> 1
|
|
$ "racket -l racket/base -e '(require (submod y/other doc))'" =exit> 1
|
|
|
|
(shelly-case
|
|
"check that cleaning doesn't destroy a binary install"
|
|
$ "racket -l y"
|
|
$ "raco setup -c -l y"
|
|
$ "racket -l y")
|
|
|
|
(putenv "PLT_PKG_NOSETUP" "")
|
|
$ "raco pkg remove pkg-y"
|
|
(putenv "PLT_PKG_NOSETUP" "1")
|
|
|
|
$ "raco pkg install --deps fail test-pkgs/built-pkgs/pkg-x.zip" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/built-pkgs/pkg-y.zip" =exit> 1
|
|
$ "raco pkg install --deps fail test-pkgs/built-pkgs/pkg-x.zip test-pkgs/built-pkgs/pkg-z.zip" =exit> 1
|
|
|
|
(putenv "PLT_PKG_NOSETUP" "")
|
|
$ "raco pkg install --deps fail test-pkgs/built-pkgs/pkg-x.zip test-pkgs/built-pkgs/pkg-y.zip test-pkgs/built-pkgs/pkg-z.zip"
|
|
=stdout> #rx"syncing: [^\n]*x\n[^\n]*syncing: [^\n]*y"
|
|
(putenv "PLT_PKG_NOSETUP" "1")
|
|
|
|
$ "racket -l racket/base -t test-docs.rkt -e '(test-docs-x #t)'"
|
|
$ "racket -l racket/base -t test-docs.rkt -e '(test-docs-y #t)'"
|
|
$ "racket -l racket/base -l x -e '(x)'" =stdout> "'x\n"
|
|
$ "racket -l racket/base -l y -e '(y)'" =stdout> "'y\n"
|
|
$ "racket -l racket/base -l y/sub/s -e '(s)'" =stdout> "'s\n"
|
|
|
|
$ "raco pkg remove pkg-x pkg-y pkg-z"
|
|
|
|
)
|