source: trunk/j/src/org/armedbear/lisp/tests/condition-tests.lisp @ 10301

Last change on this file since 10301 was 10301, checked in by piso, 16 years ago

-(load "test-utilities.lisp")
+(load (merge-pathnames "test-utilities.lisp" *load-truename*))

File size: 3.7 KB
Line 
1;;; condition-tests.lisp
2;;;
3;;; Copyright (C) 2005 Peter Graves
4;;;
5;;; This program is free software; you can redistribute it and/or
6;;; modify it under the terms of the GNU General Public License
7;;; as published by the Free Software Foundation; either version 2
8;;; of the License, or (at your option) any later version.
9;;;
10;;; This program is distributed in the hope that it will be useful,
11;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
12;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13;;; GNU General Public License for more details.
14;;;
15;;; You should have received a copy of the GNU General Public License
16;;; along with this program; if not, write to the Free Software
17;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
18
19(load (merge-pathnames "test-utilities.lisp" *load-truename*))
20
21(in-package #:test)
22
23(deftest print-not-readable-object.1
24  (signals-error (slot-boundp (make-condition 'print-not-readable)
25                              #+abcl    'system::object
26                              #+allegro 'excl::object
27                              #+clisp   'system::$object
28                              #+sbcl    'sb-kernel::object)
29                 'error)
30  nil)
31
32(deftest print-not-readable-object.2
33  (slot-boundp (make-condition 'print-not-readable)
34               #+abcl    'system::object
35               #+allegro 'excl::object
36               #+clisp   'system::$object
37               #+sbcl    'sb-kernel::object)
38  nil)
39
40(deftest simple-type-error.1
41  (slot-boundp (make-condition 'simple-type-error)
42               #+abcl    'system::datum
43               #+allegro 'excl::datum
44               #+sbcl    'sb-kernel::datum)
45  nil)
46
47(deftest simple-type-error.2
48  (slot-boundp (make-condition 'simple-type-error)
49               #+abcl    'system::expected-type
50               #+allegro 'excl::expected-type
51               #+sbcl    'sb-kernel::expected-type)
52  nil)
53
54(deftest simple-type-error.3
55  (slot-boundp (make-condition 'simple-type-error)
56               #+abcl    'system::format-control
57               #+allegro 'excl::format-control
58               #+sbcl    'sb-kernel:format-control)
59  nil)
60
61(deftest simple-type-error.4
62  (slot-boundp (make-condition 'simple-type-error)
63               #+abcl    'system::format-arguments
64               #+allegro 'excl::format-arguments
65               #+sbcl    'sb-kernel::format-arguments)
66  t)
67
68(deftest simple-type-error.5
69  (slot-value (make-condition 'simple-type-error)
70              #+abcl    'system::format-arguments
71              #+allegro 'excl::format-arguments
72              #+sbcl    'sb-kernel::format-arguments)
73  nil)
74
75(deftest simple-type-error.6
76  (slot-boundp (make-instance 'simple-type-error)
77               #+abcl    'system::datum
78               #+allegro 'excl::datum
79               #+sbcl    'sb-kernel::datum)
80  nil)
81
82(deftest simple-type-error.7
83  (slot-boundp (make-instance 'simple-type-error)
84               #+abcl    'system::expected-type
85               #+allegro 'excl::expected-type
86               #+sbcl    'sb-kernel::expected-type)
87  nil)
88
89(deftest simple-type-error.8
90  (slot-boundp (make-instance 'simple-type-error)
91               #+abcl    'system::format-control
92               #+allegro 'excl::format-control
93               #+sbcl    'sb-kernel:format-control)
94  nil)
95
96(deftest simple-type-error.9
97  (slot-boundp (make-instance 'simple-type-error)
98               #+abcl    'system::format-arguments
99               #+allegro 'excl::format-arguments
100               #+sbcl    'sb-kernel::format-arguments)
101  t)
102
103(deftest simple-type-error.10
104  (slot-value (make-instance 'simple-type-error)
105              #+abcl    'system::format-arguments
106              #+allegro 'excl::format-arguments
107              #+sbcl    'sb-kernel::format-arguments)
108  nil)
109
110(do-tests)
Note: See TracBrowser for help on using the repository browser.