2
;;;; Author: Paul Dietz
3
;;;; Created: Mon Jan 27 22:36:48 2003
4
;;;; Contains: Tests of CELL-ERROR-NAME
8
(deftest cell-error-name.1
10
(eval 'my-unbound-variable)
11
(cell-error (c) (cell-error-name c)))
14
(deftest cell-error-name.2
16
(eval '(my-undefined-function))
17
;; (warning (c) (muffle-warning c))
18
(cell-error (c) (cell-error-name c)))
19
my-undefined-function)
21
(deftest cell-error-name.3
22
(cell-error-name (make-condition 'unbound-variable :name 'x))
25
(deftest cell-error-name.4
26
(cell-error-name (make-condition 'undefined-function :name 'f))
29
(deftest cell-error-name.5
30
(cell-error-name (make-condition 'unbound-slot :name 's))
33
(deftest cell-error-name.6
36
(cell-error-name (progn (incf i) (make-condition
37
'unbound-slot :name 's)))
42
;;; Need test raising condition unbound-slot
45
(deftest cell-error-name.error.1
46
(signals-error (cell-error-name) program-error)
49
(deftest cell-error-name.error.2
50
(signals-error (cell-error-name (make-condition 'unbound-variable :name 'foo) nil)