summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/ChangeLog6
-rw-r--r--test-suite/tests/ports.test8
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
;;;