Changeset 9766 for trunk/tests

Timestamp:

Jun 16, 2008, 6:55:39 PM (12 years ago)

Author:

gz

Message:

regression tests for bug #289 and the bogus too-many-arguments error

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (5 diffs)

trunk/tests/ansi-tests/ccl.lsp

@@ -12 +12 @@
       (truename s))))
 
-(defun test-compile (lambda-or-file &key suppress-warnings (safety 1))
+(defun test-compile (lambda-or-file &key suppress-warnings (safety 1) load)
   ;; Compile in a more-or-less standard environment
   (let ((ccl::*suppress-compiler-warnings* suppress-warnings)
@@ -22 +22 @@
     (if (consp lambda-or-file)
       (compile nil lambda-or-file)
-      (compile-file lambda-or-file))))
+      (compile-file lambda-or-file :load load))))
 
 ;;; CCL-specific regression tests, for CCL-specific behavior.
@@ -124 +124 @@
   :no-crash)
 
+(deftest ccl.bug#288-1 ;; follow-on bug, not really the same
+    (let ((file (test-source-file "(defun cl-test::ccl.bug#288-1-fn ((x integer)) x)")))
+      (test-compile file :suppress-warnings t :load t)
+      (handler-case
+          (progn (ccl.bug#288-1-fn 17) :no-warnings)
+        (program-error (c) (if (search "(X INTEGER)" (princ-to-string c)) :lambda-list-error c))))
+  :lambda-list-error)
+
 (deftest ccl.40055-1
     (let ((file (test-source-file "
@@ -167 +175 @@
         (warning (c) c)))
   :no-warnings)
+
+(deftest ccl.bug#289
+    (let ((file (test-source-file "
+ (defclass ccl.bug#289-meta (standard-class) ())
+ (defclass ccl.bug#289-class () () (:metaclass ccl.bug#289-meta))")))
+      (test-compile file)
+      :no-crash)
+  :no-crash)
 
 (deftest ccl.bug#295
@@ -254 +270 @@
       (ccl.42923 'foo :y 1 :z 2 :a 1 :b 2 :c 3))
   foo)
+