From 253ba1376bb85e3ebcd0725f711aa7a91325c76f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 16 Jul 2011 21:25:56 -0600 Subject: [PATCH] belated test case for cm ".dep"-read fix Merge to 5.1.2 (cherry picked from commit 67272f114b3ff33277397dc790197568b5abf416) --- collects/tests/racket/cm.rktl | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/collects/tests/racket/cm.rktl b/collects/tests/racket/cm.rktl index 5d118799e3..036c985649 100644 --- a/collects/tests/racket/cm.rktl +++ b/collects/tests/racket/cm.rktl @@ -138,6 +138,14 @@ (delete-directory/files dir) +;; ---------------------------------------- +;; Check that cm sets reader for .dep files: + +(parameterize ([current-readtable (make-readtable #f #\( 'terminating-macro void)]) + (parameterize ([current-namespace (make-base-namespace)]) + (parameterize ([current-load/use-compiled (make-compilation-manager-load/use-compiled-handler)]) + (test (void) dynamic-require 'compiler/cm #f)))) + ;; ---------------------------------------- (report-errs)