Changeset 9766


Ignore:
Timestamp:
Jun 16, 2008, 6:55:39 PM (11 years ago)
Author:
gz
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r9670 r9766  
    1212      (truename s))))
    1313
    14 (defun test-compile (lambda-or-file &key suppress-warnings (safety 1))
     14(defun test-compile (lambda-or-file &key suppress-warnings (safety 1) load)
    1515  ;; Compile in a more-or-less standard environment
    1616  (let ((ccl::*suppress-compiler-warnings* suppress-warnings)
     
    2222    (if (consp lambda-or-file)
    2323      (compile nil lambda-or-file)
    24       (compile-file lambda-or-file))))
     24      (compile-file lambda-or-file :load load))))
    2525
    2626;;; CCL-specific regression tests, for CCL-specific behavior.
     
    124124  :no-crash)
    125125
     126(deftest ccl.bug#288-1 ;; follow-on bug, not really the same
     127    (let ((file (test-source-file "(defun cl-test::ccl.bug#288-1-fn ((x integer)) x)")))
     128      (test-compile file :suppress-warnings t :load t)
     129      (handler-case
     130          (progn (ccl.bug#288-1-fn 17) :no-warnings)
     131        (program-error (c) (if (search "(X INTEGER)" (princ-to-string c)) :lambda-list-error c))))
     132  :lambda-list-error)
     133
    126134(deftest ccl.40055-1
    127135    (let ((file (test-source-file "
     
    167175        (warning (c) c)))
    168176  :no-warnings)
     177
     178(deftest ccl.bug#289
     179    (let ((file (test-source-file "
     180 (defclass ccl.bug#289-meta (standard-class) ())
     181 (defclass ccl.bug#289-class () () (:metaclass ccl.bug#289-meta))")))
     182      (test-compile file)
     183      :no-crash)
     184  :no-crash)
    169185
    170186(deftest ccl.bug#295
     
    254270      (ccl.42923 'foo :y 1 :z 2 :a 1 :b 2 :c 3))
    255271  foo)
     272
Note: See TracChangeset for help on using the changeset viewer.