Commit 9d16c8d9 authored by pfdietz's avatar pfdietz
Browse files

Commented out some bad tests.

parent 7a152267
......@@ -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)
......@@ -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))
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