From 7c640c5c5d430f7a74d0a1c0410c8137192d4641 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 27 Aug 2011 17:25:15 -0500
Subject: [PATCH] add a test case for starting up drracket when there is no
 writing to the filesystem allowed

---
 ...aky-frame.rkt => no-write-and-frame-leak.rkt} | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 rename collects/tests/drracket/{leaky-frame.rkt => no-write-and-frame-leak.rkt} (74%)

diff --git a/collects/tests/drracket/leaky-frame.rkt b/collects/tests/drracket/no-write-and-frame-leak.rkt
similarity index 74%
rename from collects/tests/drracket/leaky-frame.rkt
rename to collects/tests/drracket/no-write-and-frame-leak.rkt
index 3f6447e242..1af0c5e776 100644
--- a/collects/tests/drracket/leaky-frame.rkt
+++ b/collects/tests/drracket/no-write-and-frame-leak.rkt
@@ -2,6 +2,22 @@
 (require "private/drracket-test-util.rkt"
          framework)
 
+(parameterize ([current-security-guard
+                (make-security-guard
+                 (current-security-guard)
+                 (λ (who pth what)
+                   (when (member 'write what)
+                     (error who "Writing to the file system is not allowed"))
+                   (when (member 'delete what)
+                     (error who "Deleting files is not allowed")))
+                 void
+                 void)])
+  (fire-up-drscheme-and-run-tests 
+   (λ ()
+     (define drs-frame (wait-for-drscheme-frame))
+     (test:menu-select "File" "Close"))))
+
+#;
 (parameterize ([current-command-line-arguments '#()])
   (fire-up-drscheme-and-run-tests 
    (λ ()