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
d8f2ca18
Commit
d8f2ca18
authored
Feb 17, 2003
by
pfdietz
Browse files
Retracted builtin macro error tests pending clarification of the ANSI CL spec.
parent
3928c100
Changes
9
Hide whitespace changes
Inline
Side-by-side
ansi-tests/block.lsp
View file @
d8f2ca18
...
...
@@ -63,3 +63,11 @@
(block done (mapcar #'%f '(good bad bad))))
'bad)
good)
#|
(deftest return.error.1
(classify-error
(block nil
(return 'a 'b)))
program-error)
|#
ansi-tests/case.lsp
View file @
d8f2ca18
...
...
@@ -166,6 +166,6 @@
(case 'a (b 'b) (otherwise))
nil)
(deftest case.error.1
(classify-error (case))
program-error)
;;;
(deftest case.error.1
;;;
(classify-error (case))
;;;
program-error)
ansi-tests/ccase.lsp
View file @
d8f2ca18
...
...
@@ -181,9 +181,9 @@
(2 nil))))
:good)
(deftest ccase.error.1
(classify-error (ccase))
program-error)
;;;
(deftest ccase.error.1
;;;
(classify-error (ccase))
;;;
program-error)
ansi-tests/ctypecase.lsp
View file @
d8f2ca18
...
...
@@ -75,6 +75,6 @@
x))
:good a)
(deftest ctypecase.error.1
(classify-error (ctypecase))
program-error)
;;;
(deftest ctypecase.error.1
;;;
(classify-error (ctypecase))
;;;
program-error)
ansi-tests/defconstant.lsp
View file @
d8f2ca18
...
...
@@ -30,16 +30,16 @@
(defconstant test-constant-3 0)
test-constant-3)
(deftest defconstant.error.1
(classify-error (defconstant))
program-error)
(deftest defconstant.error.2
(classify-error (defconstant +ignorable-constant-name+))
program-error)
(deftest defconstant.error.3
(classify-error (defconstant +ignorable-constant-name2+ nil
"This is a docstring"
"This is an unnecessary extra argument."))
program-error)
\ No newline at end of file
;;; (deftest defconstant.error.1
;;; (classify-error (defconstant))
;;; program-error)
;;;
;;; (deftest defconstant.error.2
;;; (classify-error (defconstant +ignorable-constant-name+))
;;; program-error)
;;;
;;; (deftest defconstant.error.3
;;; (classify-error (defconstant +ignorable-constant-name2+ nil
;;; "This is a docstring"
;;; "This is an unnecessary extra argument."))
;;; program-error)
\ No newline at end of file
ansi-tests/define-modify-macro.lsp
View file @
d8f2ca18
...
...
@@ -64,20 +64,20 @@
new-incf2
(3 #(0 0 3 0 0) 3))
(deftest define-modify-macro.error.1
(classify-error (define-modify-macro))
program-error)
(deftest define-modify-macro.error.2
(classify-error (define-modify-macro dfm-error-1))
program-error)
(deftest define-modify-macro.error.3
(classify-error (define-modify-macro dfm-error-2 ()))
program-error)
(deftest define-modify-macro.error.4
(classify-error (define-modify-macro dfm-error-2 () nil "Documentation"
"extra illegal argument"))
program-error)
;;;
(deftest define-modify-macro.error.1
;;;
(classify-error (define-modify-macro))
;;;
program-error)
;;;
;;;
(deftest define-modify-macro.error.2
;;;
(classify-error (define-modify-macro dfm-error-1))
;;;
program-error)
;;;
;;;
(deftest define-modify-macro.error.3
;;;
(classify-error (define-modify-macro dfm-error-2 ()))
;;;
program-error)
;;;
;;;
(deftest define-modify-macro.error.4
;;;
(classify-error (define-modify-macro dfm-error-2 () nil "Documentation"
;;;
"extra illegal argument"))
;;;
program-error)
ansi-tests/defparameter.lsp
View file @
d8f2ca18
...
...
@@ -51,16 +51,16 @@
"And ever."
300)
(deftest defparameter.error.1
(classify-error (defparameter))
program-error)
(deftest defparameter.error.2
(classify-error (defparameter *ignored-defparameter-name*))
program-error)
(deftest defparameter.error.3
(classify-error (defparameter *ignored-defparameter-name* nil
"documentation"
"illegal extra argument"))
program-error)
;;;
(deftest defparameter.error.1
;;;
(classify-error (defparameter))
;;;
program-error)
;;;
;;;
(deftest defparameter.error.2
;;;
(classify-error (defparameter *ignored-defparameter-name*))
;;;
program-error)
;;;
;;;
(deftest defparameter.error.3
;;;
(classify-error (defparameter *ignored-defparameter-name* nil
;;;
"documentation"
;;;
"illegal extra argument"))
;;;
program-error)
ansi-tests/defvar.lsp
View file @
d8f2ca18
...
...
@@ -54,11 +54,11 @@
200
0)
(deftest defvar.error.1
(classify-error (defvar))
program-error)
(deftest defvar.error.2
(classify-error (defvar *ignored-defvar-name* nil "documentation"
"illegal extra argument"))
program-error)
;;;
(deftest defvar.error.1
;;;
(classify-error (defvar))
;;;
program-error)
;;;
;;;
(deftest defvar.error.2
;;;
(classify-error (defvar *ignored-defvar-name* nil "documentation"
;;;
"illegal extra argument"))
;;;
program-error)
ansi-tests/destructuring-bind.lsp
View file @
d8f2ca18
...
...
@@ -97,3 +97,12 @@
(deftest destructuring-bind.error.4
(classify-error (destructuring-bind (a . b) 'x (list a b)))
program-error)
(deftest destructuring-bind.error.5
(classify-error (destructuring-bind))
program-error)
(deftest destructuring-bind.error.6
(classify-error (destructuring-bind x))
program-error)
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