Commit 1ac00a8b authored by pfdietz's avatar pfdietz

Added tests (such as they are) for ED, INSPECT, and DRIBBLE

parent ae730aac
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun May 15 12:56:29 2005
;;;; Contains: Tests of DRIBBLE
(in-package :cl-test)
;;; Error tests only -- cannot depend on using it in a program
;;; See the CLHS DRIBBLE and issue DRIBBLE-TECHNIQUE for an explanation
(deftest dribble.error.1
(signals-error (dribble "dribble.out" nil) program-error)
t)
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun May 15 13:07:39 2005
;;;; Contains: Tests of ED
(in-package :cl-test)
;;; Since the normal behavior of ED is implementation dependent,
;;; test only the error behavior
(deftest ed.error.1
(signals-error (ed "ed.lsp" nil) program-error)
t)
;;; Since the editor may not even be included, no other tests
;;; are possible.
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Sun May 15 12:54:22 2005
;;;; Contains: Tests of INSPECT
(in-package :cl-test)
;;; INSPECT's normal behavior is entirely implementation-dependent,
;;; so it cannot be tested here. Only test simple error cases.
(deftest inspect.error.1
(signals-error (inspect) program-error)
t)
(deftest inspect.error.2
(signals-error (inspect nil nil) program-error)
t)
......@@ -10,7 +10,7 @@
(load "environment-functions.lsp")
(load "room.lsp")
(load "time.lsp")
(load "trace.lsp")
(load "trace.lsp") ;; and untrace
(load "user-homedir-pathname.lsp")
(load "decode-universal-time.lsp")
......@@ -20,3 +20,7 @@
(load "get-internal-time.lsp")
(load "documentation.lsp")
(load "inspect.lsp")
(load "dribble.lsp")
(load "ed.lsp")
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