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

implement port-eof?

Browse source 
* module/rnrs/io/ports.scm (port-eof?): Implement.
* module/rnrs.scm: Re-export port-eof?.

* test-suite/tests/r6rs-ports.test ("7.2.5 End-of-File Object"): Add
  test.

Thanks to Göran Weinholt for the report.
This commit is contained in:
Andy Wingo 2011-01-21 08:27:08 +01:00
parent dc78bee588
commit b04f841d5f
3 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/r6rs-ports.test
View file

@ -1,6 +1,6 @@
;;;; r6rs-ports.test --- R6RS I/O port tests. -*- coding: utf-8; -*-
;;;;
;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
;;;; Ludovic Courtès
;;;;
;;;; This library is free software; you can redistribute it and/or
@ -35,7 +35,10 @@
(pass-if "eof-object"
(and (eqv? (eof-object) (eof-object))
(eq? (eof-object) (eof-object)))))
(eq? (eof-object) (eof-object))))
(pass-if "port-eof?"
(port-eof? (open-input-string ""))))
(with-test-prefix "7.2.8 Binary Input"