[armedbear-cvs] r14146 - trunk/abcl/test/lisp/abcl

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Sep  1 14:45:33 2012
New Revision: 14146

Log:
Re #241: Add test cases.

Modified:
   trunk/abcl/test/lisp/abcl/compiler-tests.lisp

Modified: trunk/abcl/test/lisp/abcl/compiler-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/compiler-tests.lisp	Sat Sep  1 14:44:36 2012	(r14145)
+++ trunk/abcl/test/lisp/abcl/compiler-tests.lisp	Sat Sep  1 14:45:33 2012	(r14146)
@@ -482,3 +482,20 @@
          10545160975)
   t)
 
+
+;;; ticket #241
+(deftest compiler.4a
+    (multiple-value-bind
+          (rv error)
+        (ignore-errors
+          (compile nil '(lambda (&rest args &optional x))))
+      (typep error 'program-error))
+  t)
+
+(deftest compiler.4b
+    (multiple-value-bind
+          (rv error)
+        (ignore-errors
+          (compile nil '(lambda (&key args &optional x))))
+      (typep error 'program-error))
+  t)
\ No newline at end of file