diff --git a/ansi-tests/dribble.lsp b/ansi-tests/dribble.lsp new file mode 100644 index 0000000000000000000000000000000000000000..d884d7539650b5c3ea6cb0670929fd5475eeaceb --- /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 0000000000000000000000000000000000000000..2dd2b8839f25b471ec4316568a9df5f40093c33b --- /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 0000000000000000000000000000000000000000..c23286ca9944e99be3e1d88468d85c49b89e8c6d --- /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 4d2168af0381a22d2a24e943575e4a3dfa8e9df7..993fc1a7ba5aa1e37f2b4c4f956cbaf8653a5d38 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") +