avoid using the mzscheme tests in planet, added to nightly tests, but commented out

svn: r12354

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)
+ )

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")]