Changeset 10331


Ignore:
Timestamp:
11/03/05 14:57:50 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r10316 r10331  
    2626                              #+allegro 'excl::object
    2727                              #+clisp   'system::$object
     28                              #+cmu     'lisp::object
    2829                              #+sbcl    'sb-kernel::object)
    2930                 'error)
     
    3536               #+allegro 'excl::object
    3637               #+clisp   'system::$object
     38               #+cmu     'lisp::object
    3739               #+sbcl    'sb-kernel::object)
    3840  nil)
     
    4648  symbol)
    4749
     50#+(or abcl clisp cmu sbcl)
     51(deftest type-error.3
     52  (write-to-string (make-condition 'type-error :datum 42 :expected-type 'symbol)
     53                   :escape nil)
     54  #+clisp
     55  "Condition of type TYPE-ERROR."
     56  #+cmu
     57  "Type-error in NIL:  42 is not of type SYMBOL"
     58  #+(or abcl sbcl)
     59  "The value 42 is not of type SYMBOL.")
     60
     61#+(or abcl clisp cmu sbcl)
     62(deftest type-error.4
     63  (format nil "~A" (make-condition 'type-error :datum 42 :expected-type 'symbol))
     64  #+clisp
     65  "Condition of type TYPE-ERROR."
     66  #+cmu
     67  "Type-error in NIL:  42 is not of type SYMBOL"
     68  #+(or abcl sbcl)
     69  "The value 42 is not of type SYMBOL.")
     70
    4871(deftest simple-type-error.1
    4972  (slot-boundp (make-condition 'simple-type-error)
     
    5174               #+allegro 'excl::datum
    5275               #+clisp   'system::$datum
     76               #+cmu     'conditions::datum
    5377               #+sbcl    'sb-kernel::datum)
    5478  nil)
     
    5983               #+allegro 'excl::expected-type
    6084               #+clisp   'system::$expected-type
     85               #+cmu     'conditions::expected-type
    6186               #+sbcl    'sb-kernel::expected-type)
    6287  nil)
     
    6792               #+allegro 'excl::format-control
    6893               #+clisp   'system::$format-control
     94               #+cmu     'conditions::format-control
    6995               #+sbcl    'sb-kernel:format-control)
    7096  #-clisp nil
     
    81107               #+allegro 'excl::format-arguments
    82108               #+clisp   'system::$format-arguments
     109               #+cmu     'conditions::format-arguments
    83110               #+sbcl    'sb-kernel::format-arguments)
    84111  t)
     
    89116              #+allegro 'excl::format-arguments
    90117              #+clisp   'system::$format-arguments
     118              #+cmu     'conditions::format-arguments
    91119              #+sbcl    'sb-kernel::format-arguments)
    92120  nil)
     
    97125               #+allegro 'excl::datum
    98126               #+clisp   'system::$datum
     127               #+cmu     'conditions::datum
    99128               #+sbcl    'sb-kernel::datum)
    100129  nil)
     
    105134               #+allegro 'excl::expected-type
    106135               #+clisp   'system::$expected-type
     136               #+cmu     'conditions::expected-type
    107137               #+sbcl    'sb-kernel::expected-type)
    108138  nil)
     
    113143               #+allegro 'excl::format-control
    114144               #+clisp   'system::$format-control
     145               #+cmu     'conditions::format-control
    115146               #+sbcl    'sb-kernel:format-control)
    116147  #-clisp nil
     
    127158               #+allegro 'excl::format-arguments
    128159               #+clisp   'system::$format-arguments
     160               #+cmu     'conditions::format-arguments
    129161               #+sbcl    'sb-kernel::format-arguments)
    130162  t)
     
    135167              #+allegro 'excl::format-arguments
    136168              #+clisp   'system::$format-arguments
     169              #+cmu     'conditions::format-arguments
    137170              #+sbcl    'sb-kernel::format-arguments)
    138171  nil)
    139172
     173(deftest define-condition.1
     174  (progn
     175    (setf (find-class 'test-error) nil)
     176    (define-condition test-error (type-error) ())
     177    (type-error-datum (make-condition 'test-error :datum 42 :expected-type 'symbol)))
     178  42)
     179
     180(deftest define-condition.2
     181  (progn
     182    (setf (find-class 'test-error) nil)
     183    (define-condition test-error (type-error) ())
     184    (type-error-expected-type (make-condition 'test-error :datum 42 :expected-type 'symbol)))
     185  symbol)
     186
     187#+(or abcl clisp cmu sbcl)
     188(deftest define-condition.3
     189  (progn
     190    (setf (find-class 'test-error) nil)
     191    (define-condition test-error (type-error) ())
     192    (format nil "~A" (make-condition 'test-error :datum 42 :expected-type 'symbol)))
     193  #+clisp
     194  "Condition of type TEST-ERROR."
     195  #+cmu
     196  "Type-error in NIL:  42 is not of type SYMBOL"
     197  #+(or abcl sbcl)
     198  "The value 42 is not of type SYMBOL.")
     199
     200#+(or abcl clisp cmu sbcl)
     201(deftest define-condition.4
     202  (progn
     203    (setf (find-class 'test-error) nil)
     204    (define-condition test-error (type-error) ())
     205    (write-to-string (make-condition 'test-error :datum 42 :expected-type 'symbol)
     206                     :escape nil))
     207  #+clisp
     208  "Condition of type TEST-ERROR."
     209  #+cmu
     210  "Type-error in NIL:  42 is not of type SYMBOL"
     211  #+(or abcl sbcl)
     212  "The value 42 is not of type SYMBOL.")
     213
    140214(do-tests)
Note: See TracChangeset for help on using the changeset viewer.