source: trunk/tests/ansi-tests/ccl.lsp @ 9166

Last change on this file since 9166 was 9166, checked in by gz, 12 years ago

Regression test for compile-time errors

File size: 1.1 KB
Line 
1;;;-*-Mode: LISP; Package: CL-TEST -*-
2;;;
3;;;   Copyright (C) 2008 Clozure Associates
4
5(in-package :cl-test)
6
7
8;;; Regression tests
9
10(deftest ccl.40199  ;; fixed in r9116 and r9121
11    (when (equalp (let ((*print-pretty* t))
12                    (format nil "~a" (make-array nil :initial-element 0)))
13                  "#0A0")
14      :good)
15  :good)
16
17(deftest ccl.40492 ;; fixed in r9134 and r9131
18    (let (obj (slot (gensym)))
19      (eval `(defclass ccl.40492 ()
20               ((,slot :accessor ,slot :initform :good))))
21      (setq obj (make-instance 'ccl.40492))
22      (ccl::%snap-reader-method (symbol-function slot))
23      (unwind-protect
24           (let ((*trace-output* (make-broadcast-stream))) ;; don't care about trace output
25             (ccl:trace-function slot)
26             (funcall slot obj))
27        (eval `(untrace ,slot))))
28  :good)
29
30(deftest ccl.40207  ;; fixed in r9163 and r9165
31    ;; Check that these compile-time errors don't abort compilation.
32    (and (typep (lambda (x) (setq x)) 'function)
33         (typep (lambda (x) (setf x)) 'function)
34         (typep (lambda (((foo))) foo) 'function)
35         :good)
36  :good)
Note: See TracBrowser for help on using the repository browser.