Commit edad40a3 authored by pfdietz's avatar pfdietz

Added tests for ROOM

parent 40fed155
......@@ -70,6 +70,7 @@
;;; Tests of system construction, environment
(load "features.lsp")
(load "disassemble.lsp")
(load "room.lsp")
(load "environment-functions.lsp")
(load "user-homedir-pathname.lsp")
......
;-*- 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
(*standard-output*)
(room))))
(not (zerop (length s))))
t)
(deftest room.2
(let ((s (with-output-to-string
(*standard-output*)
(room nil))))
(not (zerop (length s))))
t)
(deftest room.3
(let ((s (with-output-to-string
(*standard-output*)
(room :default))))
(not (zerop (length s))))
t)
(deftest room.4
(let ((s (with-output-to-string
(*standard-output*)
(room t))))
(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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment