Changeset 9330 for trunk/tests


Ignore:
Timestamp:
Apr 29, 2008, 2:59:46 PM (11 years ago)
Author:
gz
Message:

More regression tests for recent bugs

File:
1 edited

Legend:

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

    r9248 r9330  
    7373  :good)
    7474
     75
     76(deftest ccl.bug#287
     77    (progn
     78      (defmethod ccl.bug#287 (x) x)
     79      (trace ccl.bug#287)
     80      (let ((*trace-output* (make-broadcast-stream))) ;; don't care about trace output
     81        (prog1
     82            (ccl.bug#287 :good)
     83          (untrace))))
     84  :good)
     85
     86
     87(deftest ccl.41226
     88    (let ((text "(defmacro ccl.41226 (x) (eq (caar x)))")
     89          (file "temp.dat"))
     90      (with-open-file (s file :direction :output :if-exists :supersede)
     91        (write-string text s)
     92        (terpri s))
     93      (handler-bind ((warning #'muffle-warning)) ;; don't care about the warning
     94        (compile-file file))
     95      :good)
     96  :good)
     97
     98(deftest ccl.bug#288
     99    (let ((text "(prog1 (declare (ignore foo)))")
     100          (file "temp.dat"))
     101      (with-open-file (s file :direction :output :if-exists :supersede)
     102        (write-string text s)
     103        (terpri s))
     104      (handler-bind ((warning #'muffle-warning)) ;; don't care about the warning
     105        (compile-file file))
     106      :good)
     107  :good)
Note: See TracChangeset for help on using the changeset viewer.