[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 06/07: ports test tries to mutate a read-only string
From: |
Mike Gran |
Subject: |
[Guile-commits] 06/07: ports test tries to mutate a read-only string |
Date: |
Tue, 4 Apr 2017 12:16:47 -0400 (EDT) |
mike121 pushed a commit to branch wip-cygwin-guile-2.2
in repository guile.
commit ddbb110e8767755bef5100d6f0b66d5038a3b828
Author: Michael Gran <address@hidden>
Date: Tue Apr 4 08:56:34 2017 -0700
ports test tries to mutate a read-only string
* test-suite/tests/ports.test ("valid wide mode string"): copy string
---
test-suite/tests/ports.test | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 007f566..25e387c 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -315,7 +315,7 @@
(pass-if "valid wide mode string"
;; Pass 'open-file' a valid mode string, but as a wide string.
- (let ((mode "λ"))
+ (let ((mode (string-copy "λ")))
(string-set! mode 0 #\r)
(let ((port (open-file "/dev/null" mode)))
(and (input-port? port)
- [Guile-commits] branch wip-cygwin-guile-2.2 created (now 1479125), Mike Gran, 2017/04/04
- [Guile-commits] 01/07: use fallback nl_langinfo on cygwin, Mike Gran, 2017/04/04
- [Guile-commits] 04/07: Fix socket test throw without catch, Mike Gran, 2017/04/04
- [Guile-commits] 05/07: Don't run popen tests when popen not provided, Mike Gran, 2017/04/04
- [Guile-commits] 06/07: ports test tries to mutate a read-only string,
Mike Gran <=
- [Guile-commits] 02/07: prefer producer/consumer to pipes on Cygwin, Mike Gran, 2017/04/04
- [Guile-commits] 07/07: Skip ports tests that require popen if popen not available, Mike Gran, 2017/04/04
- [Guile-commits] 03/07: Disable scm_fork on Cygwin, Mike Gran, 2017/04/04