wip

LiiiLabs · Aug 5, 2024 · 4c27a13 · 4c27a13
1 parent 90d0e19
commit 4c27a13
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/liii/os-test.scm b/tests/liii/os-test.scm
@@ -15,6 +15,7 @@
 ;
 
 (import (srfi srfi-78)
+        (srfi srfi-13)
         (liii os)
         (scheme time))
 
@@ -37,7 +38,7 @@
       (check (>= (ceiling (- t2 t1)) 1) => #t))))
 
 (when (os-windows?)
-  (check (os-temp-dir) => "C:\\Windows\\TEMP\\"))
+  (check (string-prefix? "C:" (os-temp-dir)) => #t))
 
 (when (os-linux?)
   (check (os-temp-dir) => "/tmp"))