belated test case for cm ".dep"-read fix

Merge to 5.1.2
(cherry picked from commit 67272f114b)
This commit is contained in:
Matthew Flatt 2011-07-16 21:25:56 -06:00 committed by Eli Barzilay
parent 4af675677d
commit 253ba1376b

View File

@ -138,6 +138,14 @@
(delete-directory/files dir) (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) (report-errs)