18 |
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, |
;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, |
19 |
;;;; Boston, MA 02111-1307 USA |
;;;; Boston, MA 02111-1307 USA |
20 |
|
|
21 |
(use-modules (test-suite lib) |
(define-module (test-suite test-ports) |
22 |
(ice-9 popen) |
:use-module (test-suite lib) |
23 |
(ice-9 rdelim)) |
:use-module (test-suite guile-test) |
24 |
|
:use-module (ice-9 popen) |
25 |
|
:use-module (ice-9 rdelim)) |
26 |
|
|
27 |
(define (display-line . args) |
(define (display-line . args) |
28 |
(for-each display args) |
(for-each display args) |