From d76bdd591937e719910cf6d200bf751acc96c803 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 17 Oct 2012 15:36:23 -0600 Subject: [PATCH] fix planet `raco exe' tests Merge ot v5.3.1 (cherry picked from commit bd146e2d8d2f9f8fdbe071c1943a665d3b17bfbe) --- collects/tests/racket/embed.rktl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl index 5c7b6ba662..47c5183ea7 100644 --- a/collects/tests/racket/embed.rktl +++ b/collects/tests/racket/embed.rktl @@ -473,9 +473,9 @@ "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"))) - (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"))) (let ([go (lambda (path expected) @@ -508,8 +508,8 @@ (void)) - (system* planet "unlink" "racket-tester" "p1.plt" "1" "0") - (system* planet "unlink" "racket-tester" "p2.plt" "2" "2")) + (system* raco "planet" "unlink" "racket-tester" "p1.plt" "1" "0") + (system* raco "planet" "unlink" "racket-tester" "p2.plt" "2" "2")) ;; ----------------------------------------