Changeset 3685

Show
Ignore:
Timestamp:
07/30/08 10:11:13 (4 months ago)
Author:
ksprotte
Message:

when running tests override print-object, so that any object can be printed without error

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/build.lisp

    r3640 r3685  
    193193(defun test () 
    194194  (cl-gd::load-gd-glue) 
     195  (compile 
     196   (eval '(defmethod print-object :around ((object t) stream) 
     197           (print-unreadable-object (object stream :type t :identity t))))) 
    195198  (format t "~&;;; --- running tests~%") 
    196199  (run-tests 
    197    #+(or) 
    198    (cl-ppcre-run-no-failures-p)     
    199    (cl-gd-run-no-failures-p) 
    200    #+(or) 
    201    (flexi-streams-no-failures-p) 
    202    (unit-test:run-all-tests) 
    203    (rt:do-tests) 
    204    (fiveam-run-no-failures-p :bknr.datastore) 
    205    #-darwin (fiveam-run-no-failures-p :bos.test) 
    206    (progn #+(or) (fiveam-run-no-failures-p :it.bese.FiveAM) 
    207           (warn "skipping :it.bese.FiveAM tests") 
    208           t) 
    209    (fiveam-run-no-failures-p 'json-test::json) 
    210    )) 
    211  
     200    #+(or) 
     201    (cl-ppcre-run-no-failures-p)     
     202    (cl-gd-run-no-failures-p) 
     203    #+(or) 
     204    (flexi-streams-no-failures-p) 
     205    (unit-test:run-all-tests) 
     206    (rt:do-tests) 
     207    (fiveam-run-no-failures-p :bknr.datastore) 
     208    #-darwin (fiveam-run-no-failures-p :bos.test) 
     209    (progn #+(or) (fiveam-run-no-failures-p :it.bese.FiveAM) 
     210          (warn "skipping :it.bese.FiveAM tests") 
     211          t) 
     212    (fiveam-run-no-failures-p 'json-test::json) 
     213    )) 
     214