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

ports test tries to mutate a read-only string

Browse source 
* test-suite/tests/ports.test ("valid wide mode string"): copy string
This commit is contained in:
Michael Gran 2017-04-04 08:56:34 -07:00
parent 6dfb48d416
commit ddbb110e87
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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)