Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
1ac00a8b
Commit
1ac00a8b
authored
May 15, 2005
by
pfdietz
Browse files
Added tests (such as they are) for ED, INSPECT, and DRIBBLE
parent
ae730aac
Changes
4
Hide whitespace changes
Inline
Side-by-side
ansi-tests/dribble.lsp
0 → 100644
View file @
1ac00a8b
;-*- 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)
ansi-tests/ed.lsp
0 → 100644
View file @
1ac00a8b
;-*- 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.
ansi-tests/inspect.lsp
0 → 100644
View file @
1ac00a8b
;-*- 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)
ansi-tests/load-environment.lsp
View file @
1ac00a8b
...
...
@@ -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")
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment