remove `raco exe' plot test

This commit is contained in:
Matthew Flatt 2011-10-05 09:32:43 -06:00
parent 560dfd5312
commit fe1909581b
3 changed files with 1 additions and 33 deletions

View File

@ -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

View File

@ -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))

View File

@ -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