From e76205c25b223165ebe6dcbe2047fa2fae93085f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 14 Nov 2024 08:53:28 -0800
Subject: [PATCH] terminfo: disable tests on windows for now

---
 extra/terminfo/terminfo-tests.factor | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/extra/terminfo/terminfo-tests.factor b/extra/terminfo/terminfo-tests.factor
index 65f55ca301f..e981b9268f0 100644
--- a/extra/terminfo/terminfo-tests.factor
+++ b/extra/terminfo/terminfo-tests.factor
@@ -32,10 +32,12 @@ CONSTANT: ADM3-TERMINFO {
 }
 
 : terminfo-unit-test ( expected quot -- )
-    '[
-        "vocab:terminfo/test" normalize-path "TERMINFO"
-        [ linux \ os _ with-variable ] with-os-env
-    ] unit-test ; inline
+    os windows? [ 2drop ] [
+        '[
+            "vocab:terminfo/test" normalize-path "TERMINFO"
+            [ linux \ os _ with-variable ] with-os-env
+        ] unit-test
+    ] if ; inline
 
 { t f } [
     "vt102-fictional" terminfo-names member?