mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Don't mutate read-only string in ports test

Browse source 
* test-suite/tests/ports.test ("valid wide mode string"): modified
This commit is contained in:
Mike Gran 2019-02-09 09:44:28 -08:00 • committed by Andy Wingo
parent abeeec74b2
commit 9a7e66eceb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/ports.test
View file

@ -2,7 +2,7 @@
;;;; Jim Blandy <jimb@red-bean.com> --- May 1999
;;;;
;;;; Copyright (C) 1999, 2001, 2004, 2006, 2007, 2009, 2010,
;;;; 2011, 2012, 2013, 2014, 2015, 2017 Free Software Foundation, Inc.
;;;; 2011, 2012, 2013, 2014, 2015, 2017, 2019 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
@ -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)