raco pkg test repair
This commit is contained in:
parent
bf1d99d9e0
commit
3967a36102
|
@ -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
|
||||
|
|
|
@ -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")
|
||||
|
|
Loading…
Reference in New Issue
Block a user