add test that a sandbox can be created in a sandbox

This commit is contained in:
Matthew Flatt 2017-01-03 13:09:36 -07:00
parent 78bbcec963
commit 83d4cf4485

View File

@ -706,4 +706,11 @@
;; ---------------------------------------- ;; ----------------------------------------
;; Check that a sandbox can host a sandbox:
(let ([e (make-module-evaluator (string-append "#lang racket/base\n"))])
(e '(require racket/sandbox))
(e '(make-module-evaluator (string-append "#lang racket/base\n"))))
;; ----------------------------------------
(report-errs) (report-errs)