synonym-stream-symbol.lsp 577 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Thu Jan 29 21:21:06 2004
;;;; Contains: Tests of SYNONYM-STREAM-SYMBOL

(in-package :cl-test)

(deftest synonym-stream-symbol.1
  (synonym-stream-symbol (make-synonym-stream '*standard-input*))
  *standard-input*)

(deftest synonym-stream-symbol.error.1
  (signals-error (synonym-stream-symbol) program-error)
  t)

(deftest synonym-stream-symbol.error.2
  (signals-error (synonym-stream-symbol
sds's avatar
sds committed
18 19 20
                  (make-synonym-stream '*terminal-io*)
                  nil)
                 program-error)
21 22 23
  t)