18 lines
458 B
Racket
18 lines
458 B
Racket
#lang racket
|
|
|
|
(require rackunit
|
|
(only-in racket-makefile raco))
|
|
|
|
(check-not-exn
|
|
(lambda ()
|
|
(raco '(help))))
|
|
|
|
;; It must not require raco to be on PATH. The current Racket installation
|
|
;; should locate its own raco first.
|
|
(define env (environment-variables-copy (current-environment-variables)))
|
|
(environment-variables-set! env #"PATH" #f)
|
|
(parameterize ([current-environment-variables env])
|
|
(check-not-exn
|
|
(lambda ()
|
|
(raco '(help)))))
|