From 83d4cf4485f3cc254b505d5d7db4abbccddadf62 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 3 Jan 2017 13:09:36 -0700
Subject: [PATCH] add test that a sandbox can be created in a sandbox

---
 pkgs/racket-test-core/tests/racket/sandbox.rktl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/pkgs/racket-test-core/tests/racket/sandbox.rktl b/pkgs/racket-test-core/tests/racket/sandbox.rktl
index 96501345b0..5c4174aea4 100644
--- a/pkgs/racket-test-core/tests/racket/sandbox.rktl
+++ b/pkgs/racket-test-core/tests/racket/sandbox.rktl
@@ -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)