diff options
-rw-r--r-- | test-suite/ChangeLog | 6 | ||||
-rw-r--r-- | test-suite/tests/ports.test | 8 |
2 files changed, 13 insertions, 1 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index bb6d44292..55c3795a9 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -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 diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 54eb72787..f1ba80be0 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -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 ;;; |