Skip hash-lang tests unless gui-lib and framework installed; closes #739

greghendershott · Jan 21, 2025 · 9a29b5d · 9a29b5d
1 parent 8341533
commit 9a29b5d
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/test/racket/hash-lang-test.rkt b/test/racket/hash-lang-test.rkt
@@ -1,7 +1,6 @@
 #lang racket/base
 
 (require rackunit
-         framework
          racket/class
          racket/dict
          racket/async-channel
@@ -11,6 +10,17 @@
          "../../racket/lang-info.rkt"
          "../../racket/util.rkt")
 
+(unless (getenv "DISPLAY")
+  (displayln "DISPLAY not available; SKIPPING hash-lang tests")
+  (exit 0))
+
+(define racket:text%
+  (with-handlers ([exn:fail?
+                   (λ _
+                     (displayln "racket:text% from framework not available; SKIPPING hash-lang tests")
+                     (exit 0))])
+    (dynamic-require 'framework 'racket:text%)))
+
 (define hash-lang%
   (with-handlers ([exn:fail:filesystem:missing-module?
                    (λ _