[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/11: disable popen 'no duplicates' test for MinGW
From: |
Mike Gran |
Subject: |
[Guile-commits] 01/11: disable popen 'no duplicates' test for MinGW |
Date: |
Sun, 24 Jan 2021 01:28:47 -0500 (EST) |
mike121 pushed a commit to branch mingw-guile-3.0
in repository guile.
commit 19e7209adf5ee1dc16abc2693c2ad2255c4e29fd
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Fri Jan 22 21:13:00 2021 -0800
disable popen 'no duplicates' test for MinGW
This test, which seems quite complicated to fix, causes the MinGW build
to hang. Disable it for now, but, come back to it later.
* test-suite/tests/popen.test (mingw?): new constant
(no duplicate): disable for mingw, for now
---
test-suite/tests/popen.test | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test
index 692156a..3df8633 100644
--- a/test-suite/tests/popen.test
+++ b/test-suite/tests/popen.test
@@ -1,6 +1,7 @@
;;;; popen.test --- exercise ice-9/popen.scm -*- scheme -*-
;;;;
-;;;; Copyright 2003, 2006, 2010, 2011, 2013, 2014, 2020 Free Software
Foundation, Inc.
+;;;; Copyright 2003, 2006, 2010, 2011, 2013, 2014, 2020
+;;;; 2021 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -22,6 +23,9 @@
#:use-module (ice-9 rdelim))
+(define mingw?
+ (string-contains %host-type "-mingw32"))
+
;; read from PORT until eof is reached, return what's read as a string
(define (read-string-to-eof port)
(do ((lst '() (cons c lst))
@@ -104,6 +108,7 @@
;; sure that we are testing what the parent sees at a point where
;; the child has closed stdout but is still alive.
(pass-if "no duplicate"
+ (when mingw? (throw 'unresolved))
(let* ((c2p (pipe))
(p2c (pipe))
(port (with-error-to-port (cdr c2p)
- [Guile-commits] branch mingw-guile-3.0 created (now c8990b7), Mike Gran, 2021/01/24
- [Guile-commits] 01/11: disable popen 'no duplicates' test for MinGW,
Mike Gran <=
- [Guile-commits] 03/11: Add Win32 compatibility to JIT, Mike Gran, 2021/01/24
- [Guile-commits] 05/11: ice-9 ftw: handle missing getuid and getgid, Mike Gran, 2021/01/24
- [Guile-commits] 07/11: ftw test should handle missing symlink procedure, Mike Gran, 2021/01/24
- [Guile-commits] 04/11: On Win32, prefer winsock2 header for socket declarations, Mike Gran, 2021/01/24
- [Guile-commits] 06/11: ice-9 ftw: handle non-working inodes, Mike Gran, 2021/01/24
- [Guile-commits] 08/11: Let read-line handle alternate line endings, Mike Gran, 2021/01/24
- [Guile-commits] 02/11: remove 2nd attempt at invoking ComSpec when spawning child, Mike Gran, 2021/01/24
- [Guile-commits] 09/11: Let suspendable ports' read-line handle alternate line endings, Mike Gran, 2021/01/24
- [Guile-commits] 10/11: simplify reading http headers using updated %read-line, Mike Gran, 2021/01/24
- [Guile-commits] 11/11: For MinGW use Windows filepaths in libpath.h, Mike Gran, 2021/01/24