Changeset 2612

Show
Ignore:
Timestamp:
02/24/08 11:41:39 (11 months ago)
Author:
hans
Message:

Enable indices tests in buildbot. Improve restart messages for invalid random state.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/bknr.indices.asd

    r2559 r2612  
    2626                         (:file "indexed-class" :depends-on ("package" "indices")) 
    2727                         (:file "category-index" :depends-on ("package" "protocol" "indices")))))) 
     28 
     29(defsystem :bknr.indices.test   
     30  :depends-on (:bknr.indices) 
     31  :components ((:module "indices" 
     32                        :components ((:file "indices-tests"))))) 
     33 

  • trunk/bknr/datastore/src/data/txn.lisp

    r2611 r2612  
    152152                  (handler-case 
    153153                      (read f) 
    154                     (error (e) (error "Invalid store random state")))) 
     154                    (error (e) 
     155                      (declare (ignore e)) 
     156                      (error "Invalid store random state")))) 
    155157          (initialize-store-random-state () 
    156             :report "Initialize the random state of the store" 
     158            :report "Initialize the random state of the store.  Use 
     159this to reinitialize the random state of the store when porting over a 
     160store from another compiler. When transactions of the application 
     161depend on the random state, you must snapshot your store before 
     162porting to the new compiler." 
    157163            (initialize-store-random-state store)) 
    158164          (ignore-store-random-state () 
    159             :report "Ignore the on-disk random state of the store)" 
     165            :report "Ignore the on-disk random state of the store. 
     166Use this if you want to test a store with another compiler, but do not 
     167want to change the store permanently." 
    160168            (setf (store-random-state store) (make-random-state t))))) 
    161169      (initialize-store-random-state store))) 

  • trunk/bknr/datastore/src/indices/indices-tests.lisp

    r1112 r2612  
    313313(eval-when (:compile-toplevel :load-toplevel :execute) 
    314314  (defvar *class-index* 
    315     (index-create 'class-index :index-subclasses t))) 
     315    (index-create 'class-index))) 
    316316 
    317317(defclass base-object () 

  • trunk/build.lisp

    r2606 r2612  
    5454(asdf:oos 'asdf:load-op :lisp-ecoop) 
    5555(asdf:oos 'asdf:load-op :bknr.datastore.test) 
     56(asdf:oos 'asdf:load-op :bknr.indices.test) 
    5657 
    5758(defun build ()