From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Mon, 8 Apr 2013 04:22:18 +0000 (-0700)
Subject: gtk: Punt tests if no errors or DISPLAY not set.
X-Git-Tag: mit-scheme-pucked-9.2.12~515
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1387c4366886f2c5c87799d49a112297e2ce7733;p=mit-scheme.git

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 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