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

Remove env var the correct way.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-11-05 11:39:21 -05:00
parent 9928bb4395
commit 7f01f8e8a5
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
net-test/tests/net/git-checkout.rkt
View File

@ -59,14 +59,6 @@
[else [else
(error 'compare "no such file: ~s" a)])) (error 'compare "no such file: ~s" a)]))
;; produces a copy of env that omits name
(define (remove-env-var env name)
(define new (make-environment-variables))
(for ([n (environment-variables-names env)]
#:unless (equal? n name))
(environment-variables-set! new n (environment-variables-ref env n)))
new)
(when git-exe (when git-exe
(for ([link-mode '(rel up abs)]) (for ([link-mode '(rel up abs)])
(define dir (make-temporary-file "~a-git-test" 'directory)) (define dir (make-temporary-file "~a-git-test" 'directory))
@ -84,9 +76,10 @@
#:servlet-regexp #rx"$." ; no servlets #:servlet-regexp #rx"$." ; no servlets
#:port 8950)))) #:port 8950))))
(define vars (remove-env-var (current-environment-variables) #"GIT_DIR"))
(parameterize ([current-directory dir] (parameterize ([current-directory dir]
[current-environment-variables vars]) [current-environment-variables
(environment-variables-copy (current-environment-variables))])
(environment-variables-set! (current-environment-variables) #"GIT_DIR" #f)
(make-directory "repo") (make-directory "repo")
(parameterize ([current-directory (build-path dir "repo")]) (parameterize ([current-directory (build-path dir "repo")])
(make-file "x" #"hello") (make-file "x" #"hello")