From ce2589321c424d6a809ae5074c73a5eceb1fc2a2 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 17 May 2015 16:11:25 -0700 Subject: [PATCH] use `find-exe` in test --- tests/test-langs.rkt | 25 +++++++++++++++---------- 1 file changed, 15 insertions(+), 10 deletions(-) diff --git a/tests/test-langs.rkt b/tests/test-langs.rkt index 809dacf..7213df7 100644 --- a/tests/test-langs.rkt +++ b/tests/test-langs.rkt @@ -1,6 +1,5 @@ #lang racket/base -(require rackunit racket/port racket/system racket/runtime-path) - +(require rackunit racket/port racket/system racket/runtime-path compiler/find-exe) (module test-default pollen "hello world") @@ -31,17 +30,23 @@ (require (prefix-in ptree: 'test-ptree)) (check-equal? ptree:doc '(pagetree-root (index (brother sister)))) -(define (run path) - (define cmd-string (format "racket ~a" path)) - (with-output-to-string (λ() (system cmd-string)))) +;; define-runtime-path only allowed at top level (define-runtime-path test.ptree "test.ptree") -(check-equal? (run test.ptree) "'(pagetree-root test ====)") (define-runtime-path test.html.pm "test.html.pm") -(check-equal? (run test.html.pm) "'(root \"test\" \"\\n\" \"====\")") (define-runtime-path test.html.pmd "test.html.pmd") -(check-equal? (run test.html.pmd) "'(root (h1 ((id \"test\")) \"test\"))") (define-runtime-path test.html.pp "test.html.pp") -(check-equal? (run test.html.pp) "test\n====") (define-runtime-path test.no-ext "test.no-ext") -(check-equal? (run test.no-ext) "test\n====") + + +;; `find-exe` avoids reliance on $PATH of the host system +(define racket-path (find-exe)) +(when racket-path + (define (run path) + (define cmd-string (format "~a ~a" racket-path path)) + (with-output-to-string (λ() (system cmd-string)))) + (check-equal? (run test.ptree) "'(pagetree-root test ====)") + (check-equal? (run test.html.pm) "'(root \"test\" \"\\n\" \"====\")") + (check-equal? (run test.html.pmd) "'(root (h1 ((id \"test\")) \"test\"))") + (check-equal? (run test.html.pp) "test\n====") + (check-equal? (run test.no-ext) "test\n===="))