From fe1909581ba0fcb1a0596bd7e342b9e67bbb7f4c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 5 Oct 2011 09:32:43 -0600
Subject: [PATCH] remove `raco exe' plot test

---
 collects/meta/props                 |  1 -
 collects/tests/racket/embed-me7.rkt | 15 ---------------
 collects/tests/racket/embed.rktl    | 18 +-----------------
 3 files changed, 1 insertion(+), 33 deletions(-)
 delete mode 100644 collects/tests/racket/embed-me7.rkt

diff --git a/collects/meta/props b/collects/meta/props
index 4688dd43ea..1a99aee363 100755
--- a/collects/meta/props
+++ b/collects/meta/props
@@ -1766,7 +1766,6 @@ path/s is either such a string or a list of them.
 "collects/tests/racket/embed-in-c.rktl" drdr:command-line (racket "-f" *)
 "collects/tests/racket/embed-me4.rktl" drdr:command-line #f
 "collects/tests/racket/embed-me5.rkt" drdr:command-line (gracket-text "-t" *)
-"collects/tests/racket/embed-me7.rkt" drdr:command-line (gracket-text "-t" *)
 "collects/tests/racket/embed-me9.rkt" drdr:command-line #f
 "collects/tests/racket/embed-planet-1/alt.rkt" drdr:command-line #f
 "collects/tests/racket/embed-planet-1/main.rkt" drdr:command-line #f
diff --git a/collects/tests/racket/embed-me7.rkt b/collects/tests/racket/embed-me7.rkt
deleted file mode 100644
index 1fcb1d9374..0000000000
--- a/collects/tests/racket/embed-me7.rkt
+++ /dev/null
@@ -1,15 +0,0 @@
-(module embed-me7 mzscheme
-  (require plot
-           mred
-           mzlib/class)
-  
-  (define img (plot (line (lambda (x) x))))
-
-  (define e (new text%))
-
-  (send e insert img)
-  
-  (with-output-to-file "stdout"
-    (lambda () 
-      (printf "plotted\n"))
-    'append))
diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl
index 25924e8f06..8186067b57 100644
--- a/collects/tests/racket/embed.rktl
+++ b/collects/tests/racket/embed.rktl
@@ -377,23 +377,7 @@
              "--gui-exe"
              (path->string (mk-dest #t))
              (path->string (build-path (collection-path "tests" "racket") "embed-me5.rkt")))
-    (try-exe (mk-dest #t) "This is 5: #<class:button%>\n" #t))
-
-  ;; Another GRacket-specific: try embedding plot, which has extra DLLs and font files:
-  (parameterize ([current-directory (find-system-path 'temp-dir)])
-    (define direct (build-path (find-system-path 'temp-dir) "direct.ps"))
-
-    (test #t
-          system* (build-path (find-console-bin-dir) "mred")
-          "-qu"
-          (path->string (build-path (collection-path "tests" "racket") "embed-me7.rkt"))
-          (path->string direct))
-
-    (system* mzc 
-             "--gui-exe"
-             (path->string (mk-dest #t))
-             (path->string (build-path (collection-path "tests" "racket") "embed-me7.rkt")))
-    (try-exe (mk-dest #t) "plotted\n" #t)))
+    (try-exe (mk-dest #t) "This is 5: #<class:button%>\n" #t)))
 
 ;; Try including source that needs a reader extension