From b0a0c8c2ce3197e0b01351a80e05dc565d2b63b4 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 8 Nov 2008 17:59:11 +0000
Subject: [PATCH] avoid using the mzscheme tests in planet, added to nightly
 tests, but commented out

svn: r12354
---
 collects/tests/planet/lang.ss         | 35 ++++++++++++---------------
 collects/tests/run-automated-tests.ss |  1 +
 2 files changed, 16 insertions(+), 20 deletions(-)

diff --git a/collects/tests/planet/lang.ss b/collects/tests/planet/lang.ss
index 6ad3c381e2..51d8f80512 100644
--- a/collects/tests/planet/lang.ss
+++ b/collects/tests/planet/lang.ss
@@ -1,26 +1,21 @@
-(load-relative "../mzscheme/loadtest.ss")
-
-(Section 'planet)
+#lang scheme/base
 
 (require planet/util
-         scheme/contract)
+         scheme/runtime-path
+         "../eli-tester.ss")
 
-;; Testing: #lang planet
+(define-runtime-path here ".")
+(define (in-here path) (path->string (build-path here path)))
 
-(test (void)
-      'add-hard-link
-      (with-handlers ([exn:fail? values])
-        (add-hard-link "plt" "dummy-package.plt" 1 0
-                       (string->path "examples/dummy-package"))))
+(test
 
-(test '(successful test result)
-      'hash-lang-planet
-      (with-handlers ([exn:fail? values])
-        (dynamic-require "examples/dummy-module.ss" 'result)))
+ ;; Testing: #lang planet
+ (add-hard-link "plt" "dummy-package.plt" 1 0
+                (string->path (in-here "examples/dummy-package")))
+ => (void)
+ (dynamic-require `(file ,(in-here "examples/dummy-module.ss")) 'result)
+ => '(successful test result)
+ (remove-hard-link "plt" "dummy-package.plt" 1 0)
+ => (void)
 
-(test (void)
-      'remove-hard-link
-      (with-handlers ([exn:fail? values])
-        (remove-hard-link "plt" "dummy-package.plt" 1 0)))
-
-(report-errs)
+ )
diff --git a/collects/tests/run-automated-tests.ss b/collects/tests/run-automated-tests.ss
index 5951f75c55..72513d6336 100755
--- a/collects/tests/run-automated-tests.ss
+++ b/collects/tests/run-automated-tests.ss
@@ -32,6 +32,7 @@
 ;;   ignored, and should only be used by the mzscheme tests.)
 (define tests
   '([no-handler load "mzscheme/quiet.ss" (lib "scheme/init")]
+    ;; [require "planet/lang.ss"]
     [require "typed-scheme/run.ss"]
     [require "match/plt-match-tests.ss"]
     ;; [require "stepper/automatic-tests.ss" (lib "scheme/base")]