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
9d16c8d9
Commit
9d16c8d9
authored
Jan 11, 2003
by
pfdietz
Browse files
Commented out some bad tests.
parent
7a152267
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/flet.lsp
View file @
9d16c8d9
...
...
@@ -356,26 +356,27 @@
;;; Test that [:&]allow-other-keys suppress errors for illegal keywords
;;; or odd numbers of keyword arguments
(deftest flet.41
(classify-error
(flet ((%f (&key (a :good)) a))
(%f :allow-other-keys t :b)))
:good)
(deftest flet.42
(classify-error
(flet ((%f (&key (a :good)) a))
(%f :allow-other-keys t 10 20)))
:good)
(deftest flet.43
(classify-error
(flet ((%f (&key (a :good) &allow-other-keys) a))
(%f :b)))
:good)
(deftest flet.44
(classify-error
(flet ((%f (&key (a :good) &allow-other-keys) a))
(%f 10 20)))
:good)
;;; Note -- These are apparently bad tests! -- PFD
;;;(deftest flet.41
;;; (classify-error
;;; (flet ((%f (&key (a :good)) a))
;;; (%f :allow-other-keys t :b)))
;;; :good)
;;;
;;;(deftest flet.42
;;; (classify-error
;;; (flet ((%f (&key (a :good)) a))
;;; (%f :allow-other-keys t 10 20)))
;;; :good)
;;;
;;;(deftest flet.43
;;; (classify-error
;;; (flet ((%f (&key (a :good) &allow-other-keys) a))
;;; (%f :b)))
;;; :good)
;;;
;;;(deftest flet.44
;;; (classify-error
;;; (flet ((%f (&key (a :good) &allow-other-keys) a))
;;; (%f 10 20)))
;;; :good)
ansi-tests/structures-03.lsp
View file @
9d16c8d9
...
...
@@ -391,10 +391,11 @@
;;; :allow-other-keys turns off keyword error checking, including
;;; invalid (nonsymbol) keyword arguments
(deftest structure-boa-test-16/9
(sbt-slots 'sbt-16 (make-sbt-16 :allow-other-keys t :a 3 :b 6 :c 9 1000 1000)
:a :b :c)
(3 6 9))
;;;(deftest structure-boa-test-16/9
;;; (sbt-slots 'sbt-16 (make-sbt-16 :allow-other-keys t
;;; :a 3 :b 6 :c 9 1000 1000)
;;; :a :b :c)
;;; (3 6 9))
;;; Repeated keyword arguments are allowed; the leftmost one is used
(deftest structure-boa-test-16/10
...
...
@@ -409,8 +410,8 @@
(1 2 3))
;; Checking of # of keywords is suppressed when :allow-other-keys is true
(deftest structure-boa-test-16/12
(sbt-slots 'sbt-16 (make-sbt-16 :allow-other-keys t :a 3 :b 6 :c 9 :a)
:a :b :c)
(3 6 9))
;;;
(deftest structure-boa-test-16/12
;;;
(sbt-slots 'sbt-16 (make-sbt-16 :allow-other-keys t :a 3 :b 6 :c 9 :a)
;;;
:a :b :c)
;;;
(3 6 9))
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