[elephant-devel] Test of 0.9 on LispWorks 5.0 (64-bit) for Linux
Ian Eslick
eslick at csail.mit.edu
Fri Jun 8 15:47:47 UTC 2007
Chun Tian,
Were you able to run the tests on PostgreSQL as well? Did they show
similar failures?
The set range features have always been a little fragile, but I'm not
sure how 64-bits would effect it. I can try to run Lispworks 32bit
on Linux as I think there have been some differences between Linux
and other platforms in the past.
I also noticed that the test 'SET-RANGE' failed with an error. Could
you do the following test?
(setf regression-test::*catch-errors* nil)
(open-store *testbdb-spec*)
(do-test 'set-range)
And let me know what the error is?
Thank you,
Ian
On Jun 8, 2007, at 8:16 AM, Chun Tian (binghe) wrote:
> Hi, Elephant Developers
>
> I saw the release 0.9 yesterday, and three "should work" of
> LispWorks (64-bit)
> on the testing status page. Fortunately I have a 5.0.2 Enterprise
> Edition of
> LispWorks (64-bit) for Linux, runing on a Debian box, with Berkeley
> DB 4.5
> and PostgreSQL 8.2 client installed. Glad to be a tester.
>
> To run elephent on Debian GNU/Linux, the my-config.sexp may like this:
>
> ;; Linux defaults
> #+(and (or sbcl allegro openmcl lispworks) (not (or mswindows
> windows)) (not (or macosx darwin)))
> ((:compiler . :gcc)
> (:berkeley-db-include-dir . "/usr/include/")
> (:berkeley-db-lib-dir . "/usr/lib/")
> (:berkeley-db-lib . "/usr/lib/libdb-4.5.so")
> (:berkeley-db-deadlock . "/usr/bin/db4.5_deadlock")
> (:berkeley-db-cachesize . 20971520)
> (:berkeley-db-map-degree2 . t)
> (:clsql-lib-paths . nil)
> (:prebuilt-libraries . nil))
>
> The test for Berkeley DB looks like this:
>
> ELE-TESTS 15 > (setq *default-spec* '(:BDB "/tmp/testdb/"))
> (:BDB "/tmp/testdb/")
>
> ELE-TESTS 16 > (do-backend-tests)
> Attempting to load libmemutil.so...
> Loaded /var/cache/common-lisp-controller/1001/lispworks/local/afs/
> 163.org/user/b/binghe/lisp/elephant/src/memutil/libmemutil.so
> ; Loading fasl file /var/cache/common-lisp-controller/1001/
> lispworks/local/afs/163.org/user/b/binghe/lisp/elephant/src/memutil/
> memutil.64ufasl
> ;;; Compiling file /afs/163.org/user/b/binghe/lisp/elephant/tests/
> testbdb.lisp ...
> ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0
> ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3
> ;;; Source level debugging is on
> ;;; Source file recording is on
> ;;; Cross referencing is on
> ; (LISPWORKS:TOP-LEVEL-FORM 1)
> ; (LISPWORKS:TOP-LEVEL-FORM 2)
> ; (DEFVAR ENV)
> ; (DEFVAR DB)
> ; PREPARE-BDB
> ; (LISPWORKS:TOP-LEVEL-FORM 3)
> ; TEST-SEQUENCE1
> ; (LISPWORKS:TOP-LEVEL-FORM 4)
> ; TEST-SEQUENCE2
> ; (LISPWORKS:TOP-LEVEL-FORM 5)
> ; CLEANUP-BDB
> ; (LISPWORKS:TOP-LEVEL-FORM 6)
> ; (LISPWORKS:TOP-LEVEL-FORM 7)
> ; Loading fasl file /var/cache/common-lisp-controller/1001/
> lispworks/local/afs/163.org/user/b/binghe/lisp/elephant/tests/
> testbdb.64ufasl
> Doing 132 pending tests of 132 tests total.
> FIXNUMS FIXNUM-TYPE-1 READ-32-BIT-FIXNUM READ-64-BIT-FIXNUM
> WRITE-32-BIT-FIXNUM WRITE-64-BIT-FIXNUM
> BIGNUMS FLOATS RATIONALS COMPLEXES BASE-STRINGS STRINGS HARD-
> STRINGS SYMBOLS CHARS PATHNAMES CONSES
> HASH-TABLES-1 HASH-TABLES-2 ARRAYS-1 ARRAYS-2 TEST-DEEP-EQUALP
> TEST-SERIALIZATION-UNICODE-SLOT OBJECTS
> STRUCTS STRUCT-NON-STD-CONSTRUCT CIRCULAR PERSISTENT
> Second store spec missing: ignoring CROSS-STORE-REFERENCE-CONDITION
> UNINDEXED-CLASS-CONDITION
> NON-TRANSIENT-CLASS-SLOT-1 NON-TRANSIENT-CLASS-SLOT-2 TRANSIENT-
> CLASS-SLOT CLASS-DEFINERS
> BAD-INHERITENCE MIXES MIXES-RIGHT-SLOTS INHERIT INHERIT-RIGHT-
> SLOTS INITFORM-CLASSES INITFORM-TEST
> INITARG-TEST NO-EVAL-INITFORM REDEFCLASS MAKUNBOUND UPDATE-CLASS
> CHANGE-CLASS CHANGE-CLASS3
> BASICPERSISTENCE TESTOID BTREE-MAKE BTREE-PUT BTREE-GET REMOVE-KV
> REMOVED MAP-BTREE INDEXED-BTREE-MAKE
> ADD-INDICES TEST-INDICES INDEXED-PUT INDEXED-GET SIMPLE-SLOT-GET
> INDEXED-GET-FROM-SLOT1
> INDEXED-GET-FROM-SLOT2 REMOVE-KV-INDEXED NO-KEY-NOR-INDICES REMOVE-
> KV-FROM-SLOT1
> NO-KEY-NOR-INDICES-SLOT1 REMOVE-KV-FROM-SLOT2 NO-KEY-NOR-INDICES-
> SLOT2 MAP-INDEXED GET-FIRST GET-FIRST2
> GET-LAST GET-LAST2 SET SET2
> Test SET-RANGE failed
> Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*)
> (WITH-BTREE-CURSOR (C INDEX1) (MULTIPLE-VALUE-BIND (HAS K V)
> (CURSOR-SET-RANGE C 199.5) (DECLARE (IGNORE HAS K)) (= (SLOT1 V)
> 200))))
> Expected value: T
> Actual value: #<SIMPLE-ERROR 40502326D3>.
> SET-RANGE2 MAP-INDEXED-INDEX MAP-INDEX-FROM-END REM-KV REM-IDEXKV
> MAKE-INDEXED2 ADD-INDICES2
> PUT-INDEXED2 GET-INDEXED2 GET-FROM-INDEX3 DUP-TEST NODUP-TEST PREV-
> NODUP-TEST PNODUP-TEST
> PPREV-NODUP-TEST CUR-DEL1 INDEXED-DELETE TEST-DELETED INDEXED-
> DELETE2 TEST-DELETED2 CUR-DEL2 GET-BOTH
> PGET-BOTH
> Test PGET-BOTH-RANGE failed
> Form: (WITH-BTREE-CURSOR (C INDEX3) (MULTIPLE-VALUE-BIND (M K V P)
> (CURSOR-PGET-BOTH-RANGE C 10 106.5) (VALUES K V P)))
> Expected values: 10
> -107
> 107
> Actual values: NIL
> NIL
> NIL.
> Test PCURSOR failed
> Form: (WITH-BTREE-CURSOR (C INDEX3) (VALUES (PCURSOR-PKEY (CURSOR-
> PFIRST C)) (PCURSOR-PKEY (CURSOR-PNEXT C)) (PCURSOR-PKEY (CURSOR-
> PNEXT-NODUP C)) (PCURSOR-PKEY (CURSOR-PNEXT-DUP C)) (PCURSOR-PKEY
> (CURSOR-PPREV C)) (PCURSOR-PKEY (CURSOR-PPREV-NODUP C)) (PCURSOR-
> PKEY (CURSOR-PLAST C)) (PCURSOR-PKEY (CURSOR-PSET C 300)) (PCURSOR-
> PKEY (CURSOR-PSET-RANGE C 199.5)) (PCURSOR-PKEY (CURSOR-PGET-BOTH C
> 10 101)) (PCURSOR-PKEY (CURSOR-PGET-BOTH-RANGE C 11 111.4))))
> Expected values: 0
> 2
> 10
> 11
> 10
> 9
> 9999
> 3000
> 2000
> 101
> 112
> Actual values: 0
> 2
> 10
> 11
> 10
> 9
> 9999
> 3000
> NIL
> 101
> NIL.
> NEWINDEX
> Test PCURSOR2 failed
> Form: (WITH-BTREE-CURSOR (C INDEX4) (VALUES (PCURSOR-PKEY (CURSOR-
> PFIRST C)) (PCURSOR-PKEY (CURSOR-PNEXT C)) (PCURSOR-PKEY (CURSOR-
> PNEXT-NODUP C)) (PCURSOR-PKEY (CURSOR-PNEXT-DUP C)) (PCURSOR-PKEY
> (CURSOR-PPREV C)) (PCURSOR-PKEY (CURSOR-PPREV-NODUP C)) (PCURSOR-
> PKEY (CURSOR-PLAST C)) (PCURSOR-PKEY (CURSOR-PSET C 300)) (PCURSOR-
> PKEY (CURSOR-PSET-RANGE C 199.5)) (PCURSOR-PKEY (CURSOR-PGET-BOTH C
> 10 101)) (PCURSOR-PKEY (CURSOR-PGET-BOTH-RANGE C 11 111.4))))
> Expected values: 0
> 2
> 10
> 11
> 10
> 9
> 9999
> 3000
> 2000
> 101
> 112
> Actual values: 0
> 2
> 10
> 11
> 10
> 9
> 9999
> 3000
> NIL
> 101
> NIL.
> ADD-GET-REMOVE ADD-GET-REMOVE-SYMBOL EXISTSP PSET DISABLE-CLASS-
> INDEXING-TEST INDEXING-BASIC-TRIVIAL
> INDEXING-BASIC INDEXING-CLASS-OPT INDEXING-INHERIT INDEXING-RANGE
> INDEXING-SLOT-MAKUNBOUND
> INDEXING-WIPE-INDEX INDEXING-RECONNECT-DB INDEXING-CHANGE-CLASS
> INDEXING-REDEF-CLASS
> Ranged get of 10/700 objects = Linear: 0.58 sec Indexed: 0.02 sec
> INDEXING-TIMING
> Single store mode: ignoring REMOVE-ELEMENT
> Single store mode: ignoring MIGRATE-BASIC
> Single store mode: ignoring MIGRATE-BTREE
> Single store mode: ignoring MIGRATE-IDX-BTREE
> Single store mode: ignoring MIGRATE-PCLASS
> Single store mode: ignoring MIGRATE-MULT-PCLASS
> Single store mode: ignoring MIGRATE-IPCLASS PREPARES-BDB TEST-SEQ1
> TEST-SEQ2 CLEANSUP-BDB
> 4 out of 132 total tests failed: SET-RANGE, PGET-BOTH-RANGE, PCURSOR,
> PCURSOR2.
> NIL
>
> Just ask me if anything other test operations needed to do.
>
> Chun Tian (binghe)
>
> --
> '()
>
> _______________________________________________
> elephant-devel site list
> elephant-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel
More information about the elephant-devel
mailing list