Changeset 10299


Ignore:
Timestamp:
10/31/05 17:46:23 (16 years ago)
Author:
piso
Message:

SIMPLE-TYPE-ERROR tests.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/condition-tests.lisp

    r10298 r10299  
    3838  nil)
    3939
     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
    40110(do-tests)
Note: See TracChangeset for help on using the changeset viewer.