suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

anoter repair to test for raco pkg

Browse Source
This commit is contained in:
Matthew Flatt 2020-09-03 08:50:46 -06:00
parent 9464bc3274
commit f50f44bb25
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test/tests/pkg/tests-permissions.rkt
View File

@ -1,5 +1,6 @@
#lang racket/base #lang racket/base
(require "shelly.rkt" (require racket/file
"shelly.rkt"
"util.rkt") "util.rkt")
(this-test-is-run-by-the-main-test) (this-test-is-run-by-the-main-test)
@ -34,5 +35,5 @@
(rename-file-or-directory alt-dir pkg-dir)) (rename-file-or-directory alt-dir pkg-dir))
;; create the directory and try again: ;; create the directory and try again:
(begin (begin
(make-directory pkg-dir) (make-directory* pkg-dir)
(try-now)))) (try-now))))

2
pkgs/racket-test/tests/pkg/util.rkt
View File

@ -49,7 +49,6 @@
(define tmp-dir (define tmp-dir
(make-temporary-file ".racket.fake-installation~a" 'directory (make-temporary-file ".racket.fake-installation~a" 'directory
(find-system-path 'temp-dir))) (find-system-path 'temp-dir)))
(make-directory* tmp-dir)
(dynamic-wind (dynamic-wind
void void
(λ () (λ ()
@ -105,7 +104,6 @@
(define tmp-dir (define tmp-dir
(make-temporary-file ".racket.fake-root~a" 'directory (make-temporary-file ".racket.fake-root~a" 'directory
(find-system-path 'home-dir))) (find-system-path 'home-dir)))
(make-directory* tmp-dir)
(dynamic-wind (dynamic-wind
void void
(λ () (λ ()