Commit d8f2ca18 authored by pfdietz's avatar pfdietz

Retracted builtin macro error tests pending clarification of the ANSI CL spec.

parent 3928c100
......@@ -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)
|#
......@@ -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)
......@@ -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)
......@@ -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)
......@@ -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
......@@ -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)
......@@ -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)
......@@ -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)
......@@ -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)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment