room.lsp 867 Bytes
Newer Older
pfdietz's avatar
pfdietz committed
1 2 3 4 5 6 7 8 9
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Sun Dec 12 09:20:47 2004
;;;; Contains: Tests of ROOM

(in-package :cl-test)

(deftest room.1
  (let ((s (with-output-to-string
sds's avatar
sds committed
10 11
             (*standard-output*)
             (room))))
pfdietz's avatar
pfdietz committed
12 13 14 15 16
    (not (zerop (length s))))
  t)

(deftest room.2
  (let ((s (with-output-to-string
sds's avatar
sds committed
17 18
             (*standard-output*)
             (room nil))))
pfdietz's avatar
pfdietz committed
19 20 21 22 23
    (not (zerop (length s))))
  t)

(deftest room.3
  (let ((s (with-output-to-string
sds's avatar
sds committed
24 25
             (*standard-output*)
             (room :default))))
pfdietz's avatar
pfdietz committed
26 27 28 29 30
    (not (zerop (length s))))
  t)

(deftest room.4
  (let ((s (with-output-to-string
sds's avatar
sds committed
31 32
             (*standard-output*)
             (room t))))
pfdietz's avatar
pfdietz committed
33 34 35 36 37 38 39 40 41 42 43 44 45 46
    (not (zerop (length s))))
  t)

;;; Error tests

(deftest room.errpr.1
  (signals-error (with-output-to-string (*standard-output*) (room nil nil)) program-error)
  t)