From 97b8442af2ff181a4e10105ec31243fc7434ccdc Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 24 Nov 2005 17:11:47 +0000
Subject: [PATCH] tests for add-line and inexact coordinate

svn: r1395
---
 collects/tests/mzscheme/htdp-image.ss | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/collects/tests/mzscheme/htdp-image.ss b/collects/tests/mzscheme/htdp-image.ss
index 90869940b9..73a084ecc0 100644
--- a/collects/tests/mzscheme/htdp-image.ss
+++ b/collects/tests/mzscheme/htdp-image.ss
@@ -664,6 +664,16 @@
                  20 20
                  '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)
       'ph-ellipse
       (list (pinhole-x (ellipse 6 8 'solid 'red))