guile18/test-suite/tests/streams.test

   1 ;;;; streams.test --- test Guile ice-9 streams module -*- scheme -*-
   2 ;;;;
   3 ;;;; Copyright (C) 2004, 2006 Free Software Foundation, Inc.
   4 ;;;;
   5 ;;;; This program is free software; you can redistribute it and/or modify
   6 ;;;; it under the terms of the GNU General Public License as published by
   7 ;;;; the Free Software Foundation; either version 2, or (at your option)
   8 ;;;; any later version.
   9 ;;;;
  10 ;;;; This program is distributed in the hope that it will be useful,
  11 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 ;;;; GNU General Public License for more details.
  14 ;;;;
  15 ;;;; You should have received a copy of the GNU General Public License
  16 ;;;; along with this software; see the file COPYING.  If not, write to
  17 ;;;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  18 ;;;; Boston, MA 02110-1301 USA
  19
  20 (define-module (test-suite test-streams)
  21   :use-module (test-suite lib)
  22   :use-module (ice-9 streams))
  23
  24
  25 ;;;
  26 ;;; stream-for-each
  27 ;;;
  28
  29 (with-test-prefix "stream-for-each"
  30
  31   (with-test-prefix "1 streams"
  32
  33     (pass-if "empty"
  34       (let ((lst '()))
  35         (stream-for-each (lambda (x)
  36                            (set! lst (cons x lst)))
  37                          (list->stream '()))
  38         (equal? '() lst)))
  39
  40     (pass-if "123"
  41       (let ((lst '()))
  42         (stream-for-each (lambda (x)
  43                            (set! lst (cons x lst)))
  44                          (list->stream '(1 2 3)))
  45         (equal? '(3 2 1) lst))))
  46
  47   (with-test-prefix "2 streams"
  48
  49     (pass-if "empty empty"
  50       (let ((lst '()))
  51         (stream-for-each (lambda (x y)
  52                            (set! lst (cons* x y lst)))
  53                          (list->stream '())
  54                          (list->stream '()))
  55         (equal? '() lst)))
  56
  57     (pass-if "123 456"
  58       (let ((lst '()))
  59         (stream-for-each (lambda (x y)
  60                            (set! lst (cons* x y lst)))
  61                          (list->stream '(1 2 3))
  62                          (list->stream '(4 5 6)))
  63         (equal? '(3 6 2 5 1 4) lst)))
  64
  65     (pass-if "12 456"
  66       (let ((lst '()))
  67         (stream-for-each (lambda (x y)
  68                            (set! lst (cons* x y lst)))
  69                          (list->stream '(1 2))
  70                          (list->stream '(4 5 6)))
  71         (equal? '(2 5 1 4) lst)))
  72
  73     (pass-if "123 45"
  74       (let ((lst '()))
  75         (stream-for-each (lambda (x y)
  76                            (set! lst (cons* x y lst)))
  77                          (list->stream '(1 2 3))
  78                          (list->stream '(4 5)))
  79         (equal? '(2 5 1 4) lst)))))