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

fix planet `raco exe' tests

Browse Source 
Merge ot v5.3.1
(cherry picked from commit bd146e2d8d)
This commit is contained in:
Matthew Flatt 2012-10-17 15:36:23 -06:00 committed by Ryan Culpepper
parent 6c5714c0dd
commit d76bdd5919
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/racket/embed.rktl
View File

@ -473,9 +473,9 @@
"planet"))) "planet")))
(define (try-planet) (define (try-planet)
(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")))
(system* planet "link" "racket-tester" "p2.plt" "2" "2" (system* raco "planet" "link" "racket-tester" "p2.plt" "2" "2"
(path->string (collection-path "tests" "racket" "embed-planet-2"))) (path->string (collection-path "tests" "racket" "embed-planet-2")))
(let ([go (lambda (path expected) (let ([go (lambda (path expected)
@ -508,8 +508,8 @@
(void)) (void))
(system* planet "unlink" "racket-tester" "p1.plt" "1" "0") (system* raco "planet" "unlink" "racket-tester" "p1.plt" "1" "0")
(system* planet "unlink" "racket-tester" "p2.plt" "2" "2")) (system* raco "planet" "unlink" "racket-tester" "p2.plt" "2" "2"))
;; ---------------------------------------- ;; ----------------------------------------