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

tests for add-line and inexact coordinate

Browse Source 
svn: r1395
This commit is contained in:
Matthew Flatt 2005-11-24 17:11:47 +00:00
parent 037ad25c87
commit 97b8442af2
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/mzscheme/htdp-image.ss
View File

@ -664,6 +664,16 @@
20 20 20 20
'red))) 'red)))
(test 5
image-width
(add-line (line 0 0 'red) 3.141597 3 0 0 'black))
(test 'ignore
(lambda (x) 'ignore)
;; Make sure that inexact coordinate doesn't create inexact
;; width:
(send (add-line (line 0 0 'red) 3.141597 3 0 0 'black) get-argb))
(test (list 3 4) (test (list 3 4)
'ph-ellipse 'ph-ellipse
(list (pinhole-x (ellipse 6 8 'solid 'red)) (list (pinhole-x (ellipse 6 8 'solid 'red))