Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
ansi-test
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Karsten Poeck
ansi-test
Commits
d8f454a3
Commit
d8f454a3
authored
Jan 17, 2004
by
pfdietz
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Changed classify-error forms to signals-error forms.
parent
bfeebad5
Changes
37
Show whitespace changes
Inline
Side-by-side
Showing
37 changed files
with
422 additions
and
316 deletions
+422
-316
ansi-tests/labels.lsp
ansi-tests/labels.lsp
+24
-20
ansi-tests/lambda.lsp
ansi-tests/lambda.lsp
+9
-6
ansi-tests/last.lsp
ansi-tests/last.lsp
+18
-16
ansi-tests/lcm.lsp
ansi-tests/lcm.lsp
+1
-1
ansi-tests/ldb.lsp
ansi-tests/ldb.lsp
+10
-6
ansi-tests/ldiff.lsp
ansi-tests/ldiff.lsp
+18
-17
ansi-tests/length.lsp
ansi-tests/length.lsp
+0
-0
ansi-tests/let.lsp
ansi-tests/let.lsp
+2
-2
ansi-tests/list-length.lsp
ansi-tests/list-length.lsp
+12
-12
ansi-tests/listp.lsp
ansi-tests/listp.lsp
+4
-4
ansi-tests/load-logical-pathname-translations.lsp
ansi-tests/load-logical-pathname-translations.lsp
+7
-4
ansi-tests/logand.lsp
ansi-tests/logand.lsp
+5
-2
ansi-tests/logandc1.lsp
ansi-tests/logandc1.lsp
+12
-8
ansi-tests/logandc2.lsp
ansi-tests/logandc2.lsp
+12
-8
ansi-tests/logbitp.lsp
ansi-tests/logbitp.lsp
+13
-9
ansi-tests/logcount.lsp
ansi-tests/logcount.lsp
+9
-5
ansi-tests/logeqv.lsp
ansi-tests/logeqv.lsp
+5
-2
ansi-tests/logical-pathname.lsp
ansi-tests/logical-pathname.lsp
+2
-3
ansi-tests/logior.lsp
ansi-tests/logior.lsp
+5
-2
ansi-tests/lognand.lsp
ansi-tests/lognand.lsp
+12
-8
ansi-tests/lognor.lsp
ansi-tests/lognor.lsp
+12
-8
ansi-tests/lognot.lsp
ansi-tests/lognot.lsp
+9
-5
ansi-tests/logorc1.lsp
ansi-tests/logorc1.lsp
+12
-8
ansi-tests/logorc2.lsp
ansi-tests/logorc2.lsp
+12
-8
ansi-tests/logtest.lsp
ansi-tests/logtest.lsp
+12
-8
ansi-tests/logxor.lsp
ansi-tests/logxor.lsp
+6
-2
ansi-tests/loop.lsp
ansi-tests/loop.lsp
+9
-12
ansi-tests/loop10.lsp
ansi-tests/loop10.lsp
+32
-24
ansi-tests/loop12.lsp
ansi-tests/loop12.lsp
+24
-18
ansi-tests/loop2.lsp
ansi-tests/loop2.lsp
+11
-8
ansi-tests/loop3.lsp
ansi-tests/loop3.lsp
+7
-6
ansi-tests/loop4.lsp
ansi-tests/loop4.lsp
+12
-9
ansi-tests/loop5.lsp
ansi-tests/loop5.lsp
+18
-13
ansi-tests/loop6.lsp
ansi-tests/loop6.lsp
+20
-19
ansi-tests/loop7.lsp
ansi-tests/loop7.lsp
+14
-9
ansi-tests/loop8.lsp
ansi-tests/loop8.lsp
+8
-6
ansi-tests/loop9.lsp
ansi-tests/loop9.lsp
+24
-18
No files found.
ansi-tests/labels.lsp
View file @
d8f454a3
...
...
@@ -74,32 +74,36 @@
;;; Unknown keyword parameter should throw a program-error in safe code
;;; (section 3.5.1.4)
(deftest labels.12
(
classify
-error
(labels ((%f (&key a (b 0 b-p)) (values a b (not (not b-p))))) (%f :c 4))
)
(
signals
-error
(labels ((%f (&key a (b 0 b-p)) (values a b (not (not b-p))))) (%f :c 4))
program-error)
t)
;;; Odd # of keyword args should throw a program-error in safe code
;;; (section 3.5.1.6)
(deftest labels.13
(
classify
-error
(labels ((%f (&key a (b 0 b-p)) (values a b (not (not b-p))))) (%f :a))
)
(
signals
-error
(labels ((%f (&key a (b 0 b-p)) (values a b (not (not b-p))))) (%f :a))
program-error)
t)
;;; Too few arguments (section 3.5.1.2)
(deftest labels.14
(
classify-error (labels ((%f (a) a)) (%f)
))
(
signals-error (labels ((%f (a) a)) (%f
))
program-error)
t)
;;; Too many arguments (section 3.5.1.3)
(deftest labels.15
(
classify-error (labels ((%f (a) a)) (%f 1 2)
))
(
signals-error (labels ((%f (a) a)) (%f 1 2
))
program-error)
t)
;;; Invalid keyword argument (section 3.5.1.5)
(deftest labels.16
(
classify-error (labels ((%f (&key a) a)) (%f '(foo)
)))
(
signals-error (labels ((%f (&key a) a)) (%f '(foo
)))
program-error)
t)
;;; Definition of a (setf ...) function
...
...
@@ -179,7 +183,7 @@
(deftest labels.24
(loop for s in *cl-non-function-macro-special-operator-symbols*
for form = `(
classify-error
(labels ((,s (x) (foo (1- x)))
for form = `(
ignore-errors
(labels ((,s (x) (foo (1- x)))
(foo (y)
(if (<= y 0) 'a
(,s (1- y)))))
...
...
@@ -190,7 +194,7 @@
(deftest labels.25
(loop for s in *cl-non-function-macro-special-operator-symbols*
for form = `(
classify-error
for form = `(
ignore-errors
(labels ((,s (x) (foo (1- x)))
(foo (y)
(if (<= y 0) 'a
...
...
@@ -204,7 +208,7 @@
(deftest labels.26
(loop for s in *cl-non-function-macro-special-operator-symbols*
for form = `(
classify-error
for form = `(
ignore-errors
(labels (((setf ,s) (&rest args)
(declare (ignore args))
'a))
...
...
ansi-tests/lambda.lsp
View file @
d8f454a3
...
...
@@ -262,13 +262,16 @@
10)
(deftest lambda.error.1
(
classify-error (funcall (macro-function 'lambda)
))
(
signals-error (funcall (macro-function 'lambda
))
program-error)
t)
(deftest lambda.error.2
(
classify-error (funcall (macro-function 'lambda) '(lambda ()
)))
(
signals-error (funcall (macro-function 'lambda) '(lambda (
)))
program-error)
t)
(deftest lambda.error.3
(
classify-error (funcall (macro-function 'lambda) '(lambda ()) nil nil)
)
(
signals-error (funcall (macro-function 'lambda) '(lambda ()) nil nil
)
program-error)
t)
ansi-tests/last.lsp
View file @
d8f454a3
...
...
@@ -79,33 +79,35 @@
(d) 1)
(deftest last.error.1
(
classify-error (last (list 'a 'b 'c) -1)
)
t
ype-error
)
(
signals-error (last (list 'a 'b 'c) -1) type-error
)
t)
(deftest last.error.2
(
classify-error (last (list 'a 'b 'c) 'a)
)
t
ype-error
)
(
signals-error (last (list 'a 'b 'c) 'a) type-error
)
t)
(deftest last.error.3
(
classify-error (last (list 'a 'b 'c) 10.0)
)
t
ype-error
)
(
signals-error (last (list 'a 'b 'c) 10.0) type-error
)
t)
(deftest last.error.4
(
classify-error (last (list 'a 'b 'c) -10.0)
)
t
ype-error
)
(
signals-error (last (list 'a 'b 'c) -10.0) type-error
)
t)
(deftest last.error.5
(
classify-error (last (list 'a 'b 'c) #\w)
)
t
ype-error
)
(
signals-error (last (list 'a 'b 'c) #\w) type-error
)
t)
(deftest last.error.6
(
classify-error (last)
)
program-error
)
(
signals-error (last) program-error
)
t
)
(deftest last.error.7
(
classify-error (last '(a b c) 2 nil)
)
program-error
)
(
signals-error (last '(a b c) 2 nil) program-error
)
t
)
(deftest last.error.8
(
classify-error (locally (last (list 'a 'b 'c) 'a) t)
)
(
signals-error (locally (last (list 'a 'b 'c) 'a) t
)
type-error)
t)
ansi-tests/lcm.lsp
View file @
d8f454a3
...
...
@@ -11,7 +11,7 @@
(deftest lcm.error.1
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (lcm ',x))) 'type-error
))
(e
val `(signals-error (lcm ',x) type-error)
))
collect x)
nil)
...
...
ansi-tests/ldb.lsp
View file @
d8f454a3
...
...
@@ -5,17 +5,21 @@
(in-package :cl-test)
;;; Error tests
(deftest ldb.error.1
(
classify-error (ldb)
)
program-error
)
(
signals-error (ldb) program-error
)
t
)
(deftest ldb.error.2
(
classify-error (ldb (byte 1 1))
)
program-error
)
(
signals-error (ldb (byte 1 1)) program-error
)
t
)
(deftest ldb.error.3
(classify-error (ldb (byte 1 1) -1 0))
program-error)
(signals-error (ldb (byte 1 1) -1 0) program-error)
t)
;;; Non-error tests
(deftest ldb.1
(loop for x = (random-fixnum)
...
...
ansi-tests/ldiff.lsp
View file @
d8f454a3
...
...
@@ -108,38 +108,39 @@
;; Error checking
(deftest ldiff.error.1
(
classify-error (ldiff 10 'a)
)
t
ype-error
)
(
signals-error (ldiff 10 'a) type-error
)
t)
;; Single atoms are not dotted lists, so the next
;; case should be a type-error
(deftest ldiff.error.2
(
classify-error (ldiff 'a 'a)
)
t
ype-error
)
(
signals-error (ldiff 'a 'a) type-error
)
t)
(deftest ldiff.error.3
(
classify-error (ldiff (make-array '(10) :initial-element 'a) '(a)
))
(
signals-error (ldiff (make-array '(10) :initial-element 'a) '(a
))
type-error)
t)
(deftest ldiff.error.4
(classify-error (ldiff 1.23 t)
)
t
ype-error
)
(signals-error (ldiff 1.23 t) type-error
)
t)
(deftest ldiff.error.5
(classify-error (ldiff #\w 'a)
)
t
ype-error
)
(signals-error (ldiff #\w 'a) type-error
)
t)
(deftest ldiff.error.6
(
classify-error (ldiff)
)
program-error
)
(
signals-error (ldiff) program-error
)
t
)
(deftest ldiff.error.7
(
classify-error (ldiff nil)
)
program-error
)
(
signals-error (ldiff nil) program-error
)
t
)
(deftest ldiff.error.8
(
classify-error (ldiff nil nil nil)
)
program-error
)
(
signals-error (ldiff nil nil nil) program-error
)
t
)
;; Note! The spec is ambiguous on whether this next test
;; is correct. The spec says that ldiff should be prepared
...
...
ansi-tests/length.lsp
View file @
d8f454a3
No preview for this file type
ansi-tests/let.lsp
View file @
d8f454a3
...
...
@@ -105,7 +105,7 @@
;;; in LET forms.
(deftest let.15
(loop for s in *cl-non-variable-constant-symbols*
for form = `(
classify-error
(let ((,s 17)) ,s))
for form = `(
ignore-errors
(let ((,s 17)) ,s))
unless (eql (eval form) 17)
collect s)
nil)
...
...
@@ -214,7 +214,7 @@
;;; in LET* forms.
(deftest let*.15
(loop for s in *cl-non-variable-constant-symbols*
for form = `(
classify-error
(let* ((,s 17)) ,s))
for form = `(
ignore-errors
(let* ((,s 17)) ,s))
unless (eql (eval form) 17)
collect s)
nil)
...
...
ansi-tests/list-length.lsp
View file @
d8f454a3
...
...
@@ -46,25 +46,25 @@
0)
(deftest list-length.error.2
(
classify-error (list-length)
)
program-error
)
(
signals-error (list-length) program-error
)
t
)
(deftest list-length.error.3
(
classify-error (list-length nil nil)
)
program-error
)
(
signals-error (list-length nil nil) program-error
)
t
)
(deftest list-length.error.4
(
classify-error (list-length 'a)
)
t
ype-error
)
(
signals-error (list-length 'a) type-error
)
t)
(deftest list-length.error.5
(
classify-error (locally (list-length 'a) t)
)
t
ype-error
)
(
signals-error (locally (list-length 'a) t) type-error
)
t)
(deftest list-length-symbol
(
classify-error (list-length 'a)
)
t
ype-error
)
(
signals-error (list-length 'a) type-error
)
t)
(deftest list-length-dotted-list
(
classify-error (list-length (copy-tree '(a b c d . e)))
)
t
ype-error
)
(
signals-error (list-length (copy-tree '(a b c d . e))) type-error
)
t)
ansi-tests/listp.lsp
View file @
d8f454a3
...
...
@@ -39,9 +39,9 @@
nil 1)
(deftest listp.error.1
(
classify-error (listp)
)
program-error
)
(
signals-error (listp) program-error
)
t
)
(deftest listp.error.2
(
classify-error (listp nil nil)
)
program-error
)
(
signals-error (listp nil nil) program-error
)
t
)
ansi-tests/load-logical-pathname-translations.lsp
View file @
d8f454a3
...
...
@@ -23,9 +23,12 @@
:good)
(deftest load-logical-pathname-translations.error.2
(
classify-error (load-logical-pathname-translations)
)
(
signals-error (load-logical-pathname-translations
)
program-error)
t)
(deftest load-logical-pathname-translations.error.3
(
classify-error (load-logical-pathname-translations "CLTESTROOT" nil)
)
(
signals-error (load-logical-pathname-translations "CLTESTROOT" nil
)
program-error)
t)
ansi-tests/logand.lsp
View file @
d8f454a3
...
...
@@ -7,20 +7,23 @@
(compile-and-load "numbers-aux.lsp")
;;; Error tests
(deftest logand.error.1
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logand ',x))) 'type-error
))
(e
val `(signals-error (logand ',x) type-error)
))
collect x)
nil)
(deftest logand.error.2
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logand 0 ',x))) 'type-error
))
(e
val `(signals-error (logand 0 ',x) type-error)
))
collect x)
nil)
;;; Non-error tests
(deftest logand.1
(logand)
...
...
ansi-tests/logandc1.lsp
View file @
d8f454a3
...
...
@@ -7,31 +7,35 @@
(compile-and-load "numbers-aux.lsp")
;;; Error tests
(deftest logandc1.error.1
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logandc1 ',x 0))) 'type-error
))
(e
val `(signals-error (logandc1 ',x 0) type-error)
))
collect x)
nil)
(deftest logandc1.error.2
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logandc1 0 ',x))) 'type-error
))
(e
val `(signals-error (logandc1 0 ',x) type-error)
))
collect x)
nil)
(deftest logandc1.error.3
(
classify-error (logandc1)
)
program-error
)
(
signals-error (logandc1) program-error
)
t
)
(deftest logandc1.error.4
(
classify-error (logandc1 0)
)
program-error
)
(
signals-error (logandc1 0) program-error
)
t
)
(deftest logandc1.error.5
(classify-error (logandc1 1 2 3))
program-error)
(signals-error (logandc1 1 2 3) program-error)
t)
;;; Non-error tests
(deftest logandc1.1
(logandc1 0 0)
...
...
ansi-tests/logandc2.lsp
View file @
d8f454a3
...
...
@@ -7,31 +7,35 @@
(compile-and-load "numbers-aux.lsp")
;;; Error tests
(deftest logandc2.error.1
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logandc2 ',x 0))) 'type-error
))
(e
val `(signals-error (logandc2 ',x 0) type-error)
))
collect x)
nil)
(deftest logandc2.error.2
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logandc2 0 ',x))) 'type-error
))
(e
val `(signals-error (logandc2 0 ',x) type-error)
))
collect x)
nil)
(deftest logandc2.error.3
(
classify-error (logandc2)
)
program-error
)
(
signals-error (logandc2) program-error
)
t
)
(deftest logandc2.error.4
(
classify-error (logandc2 0)
)
program-error
)
(
signals-error (logandc2 0) program-error
)
t
)
(deftest logandc2.error.5
(classify-error (logandc2 1 2 3))
program-error)
(signals-error (logandc2 1 2 3) program-error)
t)
;;; Non-error tests
(deftest logandc2.1
(logandc2 0 0)
...
...
ansi-tests/logbitp.lsp
View file @
d8f454a3
...
...
@@ -7,29 +7,33 @@
(compile-and-load "numbers-aux.lsp")
;;; Error tests
(deftest logbitp.error.1
(
classify-error (logbitp)
)
program-error
)
(
signals-error (logbitp) program-error
)
t
)
(deftest logbitp.error.2
(
classify-error (logbitp 0)
)
program-error
)
(
signals-error (logbitp 0) program-error
)
t
)
(deftest logbitp.error.3
(
classify-error (logbitp 0 0 0)
)
program-error
)
(
signals-error (logbitp 0 0 0) program-error
)
t
)
(deftest logbitp.error.4
(
classify-error (logbitp -1 0)
)
t
ype-error
)
(
signals-error (logbitp -1 0) type-error
)
t)
(deftest logbitp.error.5
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logbitp 0 ',x))) 'type-error
))
(e
val `(signals-error (logbitp 0 ',x) type-error)
))
collect x)
nil)
;;; Non-error tests
(deftest logbitp.1
(loop for x in *integers*
unless (if (logbitp 0 x) (oddp x) (evenp x))
...
...
ansi-tests/logcount.lsp
View file @
d8f454a3
...
...
@@ -5,21 +5,25 @@
(in-package :cl-test)
;;; Error tests
(deftest logcount.error.1
(
classify-error (logcount)
)
program-error
)
(
signals-error (logcount) program-error
)
t
)
(deftest logcount.error.2
(
classify-error (logcount 0 nil)
)
program-error
)
(
signals-error (logcount 0 nil) program-error
)
t
)
(deftest logcount.error.3
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logcount ',x))) 'type-error
))
(e
val `(signals-error (logcount ',x) type-error)
))
collect x)
nil)
;;; Non-error tests
(deftest logcount.1
(logcount 0)
0)
...
...
ansi-tests/logeqv.lsp
View file @
d8f454a3
...
...
@@ -7,20 +7,23 @@
(compile-and-load "numbers-aux.lsp")
;;; Error tests
(deftest logeqv.error.1
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logeqv ',x))) 'type-error
))
(e
val `(signals-error (logeqv ',x) type-error)
))
collect x)
nil)
(deftest logeqv.error.2
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logeqv 0 ',x))) 'type-error
))
(e
val `(signals-error (logeqv 0 ',x) type-error)
))
collect x)
nil)
;;; Non-error tests
(deftest logeqv.1
(logeqv)
...
...
ansi-tests/logical-pathname.lsp
View file @
d8f454a3
...
...
@@ -18,9 +18,8 @@
unless (or (stringp x)
(typep x 'stream)
(typep x 'logical-pathname)
(eq
(eval `(classify-error (logical-pathname ',x)))
'type-error))
(eval `(signals-error (logical-pathname ',x)
type-error)))
collect x)
nil)
ansi-tests/logior.lsp
View file @
d8f454a3
...
...
@@ -9,20 +9,23 @@
(compile-and-load "numbers-aux.lsp")
;;; Error tests
(deftest logior.error.1
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logior ',x))) 'type-error
))
(e
val `(signals-error (logior ',x) type-error)
))
collect x)
nil)
(deftest logior.error.2
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (logior 0 ',x))) 'type-error
))
(e
val `(signals-error (logior 0 ',x) type-error)
))
collect x)
nil)
;;; Non-error tests
(deftest logior.1
(logior)
...
...
ansi-tests/lognand.lsp
View file @
d8f454a3
...
...
@@ -7,31 +7,35 @@
(compile-and-load "numbers-aux.lsp")
;;; Error tests
(deftest lognand.error.1
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (lognand ',x 0))) 'type-error
))
(e
val `(signals-error (lognand ',x 0) type-error)
))
collect x)
nil)
(deftest lognand.error.2
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (lognand 0 ',x))) 'type-error
))
(e
val `(signals-error (lognand 0 ',x) type-error)
))
collect x)
nil)
(deftest lognand.error.3
(
classify-error (lognand)
)
program-error
)
(
signals-error (lognand) program-error
)
t
)
(deftest lognand.error.4
(
classify-error (lognand 0)
)
program-error
)
(
signals-error (lognand 0) program-error
)
t
)
(deftest lognand.error.5
(classify-error (lognand 1 2 3))
program-error)
(signals-error (lognand 1 2 3) program-error)
t)
;;; Non-error tests
(deftest lognand.1
(lognand 0 0)
...
...
ansi-tests/lognor.lsp
View file @
d8f454a3
...
...
@@ -7,31 +7,35 @@
(compile-and-load "numbers-aux.lsp")
;;; Error tests
(deftest lognor.error.1
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (lognor ',x 0))) 'type-error
))
(e
val `(signals-error (lognor ',x 0) type-error)
))
collect x)
nil)
(deftest lognor.error.2
(loop for x in *mini-universe*
unless (or (integerp x)
(e
q (eval `(classify-error (lognor 0 ',x))) 'type-error
))
(e
val `(signals-error (lognor 0 ',x) type-error)
))
collect x)
nil)
(deftest lognor.error.3
(
classify-error (lognor)
)
program-error
)
(
signals-error (lognor) program-error
)
t
)
(deftest lognor.error.4
(
classify-error (lognor 0)
)
program-error
)
(
signals-error (lognor 0) program-error
)
t
)
(deftest lognor.error.5
(classify-error (lognor 1 2 3))
program-error)
(signals-error (lognor 1 2 3) program-error)
t)
;;; Non-error tests
(deftest lognor.1
(lognor 0 0)
...
...