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

adjust planet tests to use 'raco planet' command-line tool, not 'planet'

Browse Source
This commit is contained in:
Robby Findler 2012-08-24 07:41:05 -05:00
parent 0d92608367
commit 0fa2e6d7d5
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/planet/cmdline-tool.rkt
View File

@ -13,11 +13,11 @@ using 'system' to call out to the tool and then reading its results, etc.
(define debug? #f) (define debug? #f)
(define planet-bin-path (define raco-bin-path
(simplify-path (build-path (collection-path "racket") 'up 'up (simplify-path (build-path (collection-path "racket") 'up 'up
(if (eq? (system-type) 'windows) (if (eq? (system-type) 'windows)
"planet.exe" "raco.exe"
(build-path "bin" "planet"))))) (build-path "bin" "raco")))))
(define test-connection-spec '("planet" "test-connection.plt" "1" "0")) (define test-connection-spec '("planet" "test-connection.plt" "1" "0"))
(define test-connection.plt-cache (define test-connection.plt-cache
@ -32,7 +32,7 @@ using 'system' to call out to the tool and then reading its results, etc.
(parameterize ([current-input-port (open-input-string "")] (parameterize ([current-input-port (open-input-string "")]
[current-output-port sp] [current-output-port sp]
[current-error-port sp]) [current-error-port sp])
(apply system* planet-bin-path args)) (apply system* raco-bin-path "planet" args))
(when debug? (display (get-output-string sp))) (when debug? (display (get-output-string sp)))
(get-output-string sp))) (get-output-string sp)))

10
collects/tests/planet/submod.rkt
View File

@ -1,13 +1,13 @@
#lang racket #lang racket
(require setup/dirs) (require setup/dirs)
(define planet (build-path (find-console-bin-dir) (define raco (build-path (find-console-bin-dir)
(if (eq? 'windows (system-type)) (if (eq? 'windows (system-type))
"planet.exe" "raco.exe"
"planet"))) "raco")))
(void (void
(system* planet "link" "racket-tester" "p1.plt" "1" "0" (system* raco "planet" "link" "racket-tester" "p1.plt" "1" "0"
(path->string (collection-path "tests" "racket" "embed-planet-1")))) (path->string (collection-path "tests" "racket" "embed-planet-1"))))
(define (test expected got) (define (test expected got)
@ -34,5 +34,5 @@
(test #t (module-declared? `(submod (planet racket-tester/p1/has-sub) the-sub) #t)) (test #t (module-declared? `(submod (planet racket-tester/p1/has-sub) the-sub) #t))
(void (void
(system* planet "unlink" "racket-tester" "p1.plt" "1" "0")) (system* raco "planet" "unlink" "racket-tester" "p1.plt" "1" "0"))