remove `raco exe' plot test
This commit is contained in:
parent
560dfd5312
commit
fe1909581b
|
@ -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
|
||||
|
|
|
@ -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))
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user