gtk: Punt tests if no errors or DISPLAY not set.

diff --git a/tests/gtk/test-gtk.scm b/tests/gtk/test-gtk.scm
index a377e78f74902d34db4e15f1575dfd0029ca5f18..eb89591f30db59c76a27e8355ee8a80d345ac9b7 100644 (file)
--- a/tests/gtk/test-gtk.scm
+++ b/tests/gtk/test-gtk.scm
@@ -85,5 +85,7 @@ USA.
                0
                'EXPRESSION '(LENGTH (MALLOCED-ALIENS))))))
 
-(if (not (warn-errors? (lambda () (load-option 'gtk))))
+(if (and (not (warn-errors? (lambda () (load-option 'gtk))))
+        (let ((s (get-environment-variable "DISPLAY")))
+          (and (string? s) (not (string-null? s)))))
     (main))
\ No newline at end of file