raco pkg test repair

This commit is contained in:
Matthew Flatt 2020-09-02 08:18:08 -06:00
parent bf1d99d9e0
commit 3967a36102
2 changed files with 4 additions and 4 deletions

View File

@ -5,7 +5,7 @@
(this-test-is-run-by-the-main-test)
(pkg-tests
(define dir (getenv "PLTADDONDIR"))
(define dir (find-system-path 'addon-dir))
(define pkg-dir (build-path dir "pkgs"))
(define (try-now)
(shelly-case

View File

@ -257,10 +257,10 @@
(initialize-catalogs/git))
(define (initialize-catalogs/git)
(define pkg-git.git (make-temporary-file "pkg-git-~a.git"))
(delete-file pkg-git.git)
(define pkg-git.git (make-temporary-file "pkg-git-~a.git" 'directory))
(parameterize ([current-directory (build-path test-source-directory "test-pkgs")])
(copy-directory/files (build-path test-source-directory "test-pkgs" "pkg-git") pkg-git.git))
(for ([f (directory-list "pkg-git")])
(copy-directory/files (build-path "pkg-git" f) (build-path pkg-git.git f))))
(define checksum
(parameterize ([current-directory pkg-git.git])
(system "git init")