suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix up the repl test now that picts dont render as bitmaps

Browse Source 
(following up commits
  ad65164c5e and
  72b9199976)
This commit is contained in:
Robby Findler 2012-02-27 07:58:13 -06:00
parent 0dcc96c5eb
commit bd08e09b12
2 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/drracket/private/drracket-test-util.rkt
View File

@ -562,6 +562,12 @@
(send snip get-text 0 (send snip get-count)) (send snip get-text 0 (send snip get-count))
(send snip get-fraction-view)) (send snip get-fraction-view))
strings))] strings))]
[;; this test is an approximation of
;; (is-a? snip pict-snip%) from drracket/private/pict-snip%
(let ([sc (send snip get-snipclass)])
(and sc (regexp-match #rx"pict-snip.rkt" (send sc get-classname))))
(loop (send snip previous)
(cons "{pict-snip}" strings))]
[else [else
(loop (send snip previous) (loop (send snip previous)

28
collects/tests/drracket/private/repl-test.rkt
View File

@ -904,17 +904,21 @@ This produces an ACK message
(mktest "(require texpict/utils)(disk 3)" (mktest "(require texpict/utils)(disk 3)"
("{image}" ("{pict-snip}"
"{image}" "{pict-snip}"
"{image}" "{pict-snip}"
"{image}" "{pict-snip}"
"{image}" "{pict-snip}"
"{image}") "{pict-snip}")
'interactions 'interactions
#f #f
void void
void) void)
;; this test is kind of hokey in our current, module-based world
;; we get images instead of snips because the image conversion code
;; is in a library that's shared with the user, whereas the pict
;; library isn't (I believe)
(mktest (to-strings (mktest (to-strings
'(require texpict/utils) '(require texpict/utils)
'(let () '(let ()
@ -940,12 +944,12 @@ This produces an ACK message
'(require texpict/utils) '(require texpict/utils)
'(disk 3)) '(disk 3))
("{image}" ("{pict-snip}"
"{image}" "{pict-snip}"
"{image}" "{pict-snip}"
"{image}" "{pict-snip}"
"{image}" "{pict-snip}"
"{image}") "{pict-snip}")
'interactions 'interactions
#f #f
void void