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

* tests/ports.test: include (ice-9 rdelim) module.

Browse source
This commit is contained in:
Gary Houston 2001-01-24 21:46:04 +00:00
parent 6d36532c1c
commit 22d356150d
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/ChangeLog
View file

@ -1,3 +1,7 @@
2001-01-24 Gary Houston <ghouston@arglist.com>
* tests/ports.test: include (ice-9 rdelim) module.
2001-01-18 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-01-18 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/numbers.test: Converted to do real boundary testing. * tests/numbers.test: Converted to do real boundary testing.

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

@ -19,7 +19,8 @@
;;;; Boston, MA 02111-1307 USA ;;;; Boston, MA 02111-1307 USA
(use-modules (test-suite lib) (use-modules (test-suite lib)
(ice-9 popen)) (ice-9 popen)
(ice-9 rdelim))
(define (display-line . args) (define (display-line . args)
(for-each display args) (for-each display args)
@ -200,6 +201,7 @@
(let ((errno (car (list-ref args 3)))) (let ((errno (car (list-ref args 3))))
(or (= errno EAGAIN) (or (= errno EAGAIN)
(= errno EWOULDBLOCK)))))))) (= errno EWOULDBLOCK))))))))
;;;; Pipe (popen) ports. ;;;; Pipe (popen) ports.