From 1387c4366886f2c5c87799d49a112297e2ce7733 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 7 Apr 2013 21:22:18 -0700 Subject: [PATCH] gtk: Punt tests if no errors or DISPLAY not set. --- tests/gtk/test-gtk.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tests/gtk/test-gtk.scm b/tests/gtk/test-gtk.scm index a377e78f7..eb89591f3 100644 --- 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 -- 2.25.1