;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sat Feb 14 08:43:45 2004
;;;; Contains: Tests of CONCATENATED-STREAM-STREAMS

(in-package :cl-test)

(deftest concatenated-stream-streams.1
  (concatenated-stream-streams (make-concatenated-stream))
  nil)

(deftest concatenated-stream-streams.2
  (equalt (list (list *standard-input*))
          (multiple-value-list
           (concatenated-stream-streams
            (make-concatenated-stream *standard-input*))))
  t)

(deftest concatenated-stream-streams.3
  (with-input-from-string
   (s1 "abc")
   (with-input-from-string
    (s2 "def")
    (let ((s (make-concatenated-stream s1 s2)))
      (equalt (list (list s1 s2))
              (multiple-value-list
               (concatenated-stream-streams s))))))
  t)

(deftest concatenated-stream-streams.4
  (with-input-from-string
   (s1 "")
   (with-input-from-string
    (s2 "def")
    (let ((s (make-concatenated-stream s1 s2)))
      (equalt (list (list s1 s2))
              (multiple-value-list
               (concatenated-stream-streams s))))))
  t)

(deftest concatenated-stream-streams.5
  (with-input-from-string
   (s1 "")
   (with-input-from-string
    (s2 "def")
    (let ((s (make-concatenated-stream s1 s2)))
      (values
       (read-char s)
       (equalt (list (list s2))
               (multiple-value-list
                (concatenated-stream-streams s)))))))
  #\d t)

;;; Error cases

(deftest concatenated-stream-streams.error.1
  (signals-error (concatenated-stream-streams) program-error)
  t)

(deftest concatenated-stream-streams.error.2
  (signals-error (concatenated-stream-streams
                  (make-concatenated-stream)
                  nil)
                 program-error)
  t)