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

fix some tests that need to find `racket'

Browse Source 
original commit: 4492cf2555
This commit is contained in:
Matthew Flatt 2013-08-02 12:08:26 -06:00
parent b7f32c3cf3
commit 3a67e505ba
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-pkgs/racket-test/tests/compiler/demodularizer/demod-test.rkt
View File

@ -1,6 +1,7 @@
#lang racket
(require tests/eli-tester
racket/runtime-path)
racket/runtime-path
compiler/find-exe)
(define (capture-output command . args)
(define o (open-output-string))
@ -14,7 +15,7 @@
(define (test-on-program filename)
; run modular program, capture output
(define-values (modular-output modular-error)
(capture-output (find-executable-path "racket") filename))
(capture-output (find-exe) filename))
(define demod-filename
(let-values ([(base filename dir?) (split-path filename)])
@ -25,11 +26,11 @@
; demodularize
(parameterize ([current-input-port (open-input-string "")])
(system* (find-executable-path "raco") "demod" "-o" demod-filename filename))
(system* (find-exe) "-l-" "raco" "demod" "-o" demod-filename filename))
; run whole program
(define-values (whole-output whole-error)
(capture-output (find-executable-path "racket") demod-filename))
(capture-output (find-exe) demod-filename))
; compare output
(test

3
pkgs/racket-pkgs/racket-test/tests/compiler/zo-test.rkt
View File

@ -7,6 +7,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
(require setup/dirs
racket/runtime-path
racket/future
compiler/find-exe
"zo-test-util.rkt")
(define ((make-recorder! ht) file phase)
@ -63,7 +64,7 @@ exec racket -t "$0" -- -s -t 60 -v -R $*
(! p-str)]))
(define-runtime-path zo-test-worker-path "zo-test-worker.rkt")
(define racket-path (path->string (find-executable-path "racket")))
(define racket-path (path->string (find-exe)))
(define p
(command-line #:program "zo-test"