From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 29 Apr 2019 21:43:08 +0000 (-0700)
Subject: x11-test: Expect the correct device name.  Use x-graphics-draw-arc.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~27
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dec2a72ab02f53bb7fb936649807c049863c8ad0;p=mit-scheme.git

x11-test: Expect the correct device name.  Use x-graphics-draw-arc.
---

diff --git a/src/x11/x11-test.scm b/src/x11/x11-test.scm
index f0cb953db..8c8943795 100644
--- a/src/x11/x11-test.scm
+++ b/src/x11/x11-test.scm
@@ -37,8 +37,10 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 	     (x-window (graphics-device/descriptor dev))
 	     (x-display (x-window/display x-window)))
 
-	(if (not (eq? 'X11 (graphics-type-name (graphics-type dev))))
-	    (error "The X11 graphics type is NOT the default."))
+	(if (not (eq? 'X (graphics-type-name (graphics-type dev))))
+	    (error "The X graphics type is NOT the default."))
+
+	(sleep-current-thread 500)
 
 	(test-graphics dev)
 
@@ -55,14 +57,16 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
 (define (test-graphics dev)
   (display "Drawing...\n")
-  (graphics-draw-point dev 0 .1)
-  (graphics-draw-point dev 0 .2)
-  (graphics-draw-point dev 0 .3)
-  (graphics-erase-point dev 0 .2)
+  (graphics-draw-point dev 0 .10)
+  (graphics-draw-point dev 0 .15)
+  (graphics-draw-point dev 0 .20)
+  (graphics-draw-point dev 0 .25)
+  (graphics-erase-point dev 0 .15)
   (graphics-draw-text dev 0. .4 "Hello!")
   (graphics-draw-line dev -.5 -.5 .5 .5)
   (graphics-move-cursor dev -.5 .5)
-  (graphics-drag-cursor dev .5 -.5))
+  (graphics-drag-cursor dev .5 -.5)
+  (x-graphics/draw-arc dev 0. 0. .5 .3 300. 300. #f))
 
 (define (test-properties xd window-id)
   (display "Getting/putting properties...\n")