Skip to content
Snippets Groups Projects
Commit 1ac00a8b authored by pfdietz's avatar pfdietz
Browse files

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

parent ae730aac
No related branches found
No related tags found
No related merge requests found
;-*- 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")
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment