From 1ac00a8b036343602e9cbe47da317051694b9f7f Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 15 May 2005 18:13:24 +0000 Subject: [PATCH] Added tests (such as they are) for ED, INSPECT, and DRIBBLE --- ansi-tests/dribble.lsp | 15 +++++++++++++++ ansi-tests/ed.lsp | 16 ++++++++++++++++ ansi-tests/inspect.lsp | 17 +++++++++++++++++ ansi-tests/load-environment.lsp | 6 +++++- 4 files changed, 53 insertions(+), 1 deletion(-) create mode 100644 ansi-tests/dribble.lsp create mode 100644 ansi-tests/ed.lsp create mode 100644 ansi-tests/inspect.lsp diff --git a/ansi-tests/dribble.lsp b/ansi-tests/dribble.lsp new file mode 100644 index 00000000..d884d753 --- /dev/null +++ b/ansi-tests/dribble.lsp @@ -0,0 +1,15 @@ +;-*- 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) + + diff --git a/ansi-tests/ed.lsp b/ansi-tests/ed.lsp new file mode 100644 index 00000000..2dd2b883 --- /dev/null +++ b/ansi-tests/ed.lsp @@ -0,0 +1,16 @@ +;-*- 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. diff --git a/ansi-tests/inspect.lsp b/ansi-tests/inspect.lsp new file mode 100644 index 00000000..c23286ca --- /dev/null +++ b/ansi-tests/inspect.lsp @@ -0,0 +1,17 @@ +;-*- 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) diff --git a/ansi-tests/load-environment.lsp b/ansi-tests/load-environment.lsp index 4d2168af..993fc1a7 100644 --- a/ansi-tests/load-environment.lsp +++ b/ansi-tests/load-environment.lsp @@ -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") + -- GitLab