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 planet-bin-path
(define raco-bin-path
(simplify-path (build-path (collection-path "racket") 'up 'up
(if (eq? (system-type) 'windows)
"planet.exe"
(build-path "bin" "planet")))))
"raco.exe"
(build-path "bin" "raco")))))
(define test-connection-spec '("planet" "test-connection.plt" "1" "0"))
(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 "")]
[current-output-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)))
(get-output-string sp)))

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

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