Ignore:
Timestamp:
11/01/05 16:44:04 (16 years ago)
Author:
piso
Message:
  • TYPE-ERROR.1, TYPE-ERROR.2
  • Conditionalize SIMPLE-TYPE-ERROR tests for CLISP.
File:
1 edited

Legend:

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

    r10301 r10316  
    3838  nil)
    3939
     40(deftest type-error.1
     41  (type-error-datum (make-instance 'type-error :datum 42))
     42  42)
     43
     44(deftest type-error.2
     45  (type-error-expected-type (make-instance 'type-error :expected-type 'symbol))
     46  symbol)
     47
    4048(deftest simple-type-error.1
    4149  (slot-boundp (make-condition 'simple-type-error)
    4250               #+abcl    'system::datum
    4351               #+allegro 'excl::datum
     52               #+clisp   'system::$datum
    4453               #+sbcl    'sb-kernel::datum)
    4554  nil)
     
    4958               #+abcl    'system::expected-type
    5059               #+allegro 'excl::expected-type
     60               #+clisp   'system::$expected-type
    5161               #+sbcl    'sb-kernel::expected-type)
    5262  nil)
     
    5666               #+abcl    'system::format-control
    5767               #+allegro 'excl::format-control
     68               #+clisp   'system::$format-control
    5869               #+sbcl    'sb-kernel:format-control)
     70  #-clisp nil
     71  #+clisp t)
     72
     73#+clisp
     74(deftest simple-type-error.3a
     75  (simple-condition-format-control (make-condition 'simple-type-error))
    5976  nil)
    6077
     
    6380               #+abcl    'system::format-arguments
    6481               #+allegro 'excl::format-arguments
     82               #+clisp   'system::$format-arguments
    6583               #+sbcl    'sb-kernel::format-arguments)
    6684  t)
     
    7088              #+abcl    'system::format-arguments
    7189              #+allegro 'excl::format-arguments
     90              #+clisp   'system::$format-arguments
    7291              #+sbcl    'sb-kernel::format-arguments)
    7392  nil)
     
    7796               #+abcl    'system::datum
    7897               #+allegro 'excl::datum
     98               #+clisp   'system::$datum
    7999               #+sbcl    'sb-kernel::datum)
    80100  nil)
     
    84104               #+abcl    'system::expected-type
    85105               #+allegro 'excl::expected-type
     106               #+clisp   'system::$expected-type
    86107               #+sbcl    'sb-kernel::expected-type)
    87108  nil)
     
    91112               #+abcl    'system::format-control
    92113               #+allegro 'excl::format-control
     114               #+clisp   'system::$format-control
    93115               #+sbcl    'sb-kernel:format-control)
     116  #-clisp nil
     117  #+clisp t)
     118
     119#+clisp
     120(deftest simple-type-error.8a
     121  (simple-condition-format-control (make-instance 'simple-type-error))
    94122  nil)
    95123
     
    98126               #+abcl    'system::format-arguments
    99127               #+allegro 'excl::format-arguments
     128               #+clisp   'system::$format-arguments
    100129               #+sbcl    'sb-kernel::format-arguments)
    101130  t)
     
    105134              #+abcl    'system::format-arguments
    106135              #+allegro 'excl::format-arguments
     136              #+clisp   'system::$format-arguments
    107137              #+sbcl    'sb-kernel::format-arguments)
    108138  nil)
Note: See TracChangeset for help on using the changeset viewer.