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@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
