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
87ca6c9d
Commit
87ca6c9d
authored
Apr 25, 2003
by
pfdietz
Browse files
Added error case tests for DEFCLASS.
parent
c58a37bf
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/defclass-errors.lsp
0 → 100644
View file @
87ca6c9d
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Fri Apr 25 06:59:22 2003
;;;; Contains: Error case tests for DEFCLASS
(in-package :cl-test)
(deftest defclass.error.1
(classify-error
(defclass erroneous-class.1 ()
(a b c d b e)))
program-error)
(deftest defclass.error.2
(classify-error
(defclass erroneous-class.2 ()
((s1 :initarg :foo))
(:default-initargs :foo 1 :foo 2)))
program-error)
(deftest defclass.error.3
(classify-error
(defclass erroneous-class.3 ()
((s1 :initform 0 :initform 2))))
program-error)
(deftest defclass.error.4
(classify-error
(defclass erroneous-class.4 ()
((s1 :initform 0 :initform 0))))
program-error)
(deftest defclass.error.5
(classify-error
(defclass erroneous-class.5 ()
((s1 :type fixnum :type character))))
program-error)
(deftest defclass.error.6
(classify-error
(defclass erroneous-class.6 ()
((s1 :type t :type t))))
program-error)
(deftest defclass.error.7
(classify-error
(defclass erroneous-class.7 ()
((s1 :documentation "foo" :documentation "bar"))))
program-error)
(deftest defclass.error.8
(classify-error
(defclass erroneous-class.8 ()
((s1 :documentation #1="foo" :documentation #1#))))
program-error)
(deftest defclass.error.9
(classify-error
(defclass erroneous-class.9 ()
((s1 :allocation :class :allocation :instance))))
program-error)
(deftest defclass.error.10
(classify-error
(defclass erroneous-class.10 ()
((s1 :allocation :class :allocation :class))))
program-error)
(deftest defclass.error.11
(classify-error
(defclass erroneous-class.11 ()
((s1 :allocation :instance :allocation :instance))))
program-error)
(deftest defclass.error.12
(classify-error
(defclass erroneous-class.12 ()
((s1 #.(gensym) nil))))
program-error)
(deftest defclass.error.13
(classify-error
(defclass erroneous-class.13 ()
(a b c)
(#.(gensym))))
program-error)
\ No newline at end of file
ansi-tests/load-objects.lsp
View file @
87ca6c9d
...
...
@@ -6,6 +6,7 @@
(compile-and-load "defclass-aux.lsp")
(load "defclass.lsp")
(load "defclass-01.lsp")
(load "defclass-error.lsp")
(load "defclass-forward-reference.lsp")
(load "ensure-generic-function.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