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

("port-for-each"): remove unresolved for

Browse source 
port-for-each memory test.
("fdes->port"): test fdes->port
This commit is contained in:
Han-Wen Nienhuys 2007-08-26 18:12:53 +00:00
parent 5dbc6c0679
commit e9966dbb9f
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/ChangeLog
View file

@ -1,3 +1,9 @@
2007-08-26 Han-Wen Nienhuys <hanwen@lilypond.org>
* tests/ports.test ("port-for-each"): remove unresolved for
port-for-each memory test.
("fdes->port"): test fdes->port
2007-08-23 Ludovic Courtès <ludo@gnu.org>
* tests/reader.test (read-options)[positions on quote]: New

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

@ -561,7 +561,6 @@
;; table (scm_i_port_table). Provoking those gc conditions is a little
;; tricky, but the following code made it happen in 1.8.2.
(pass-if "passing freed cell"
(throw 'unresolved)
(let ((lst '()))
;; clear out the heap
(gc) (gc) (gc)
@ -581,6 +580,13 @@
;; freed cells, which give #f from `port?'
(not (memq #f (map port? lst))))))
(with-test-prefix
"fdes->port"
(pass-if "fdes->ports finds port"
(let ((port (open-file (test-file) "w")))
(not (not (memq port (fdes->ports (port->fdes port))))))))
;;;
;;; seek
;;;