gtk-screen: Punt tests if errors or DISPLAY not set.

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