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 f0cb953dbb8323d669d9a28add24662131f51b19..8c8943795552eee814819649fcfe2a44bc408ed5 100644 (file)
--- 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")