[elephant-devel] Elephant BDB Tests Fail on OS X Leopard, SBCL 1.0.14
Ian Eslick
eslick at media.mit.edu
Thu Feb 21 05:22:17 UTC 2008
Hmmm...I can't reproduce this. Anyone else?
Did you clean the tests/testdb directory before running the test?
While we try to keep the tests idempotent, sometimes a pre-existing
database (esp. from a prior version of the code) can create problems.
Ian
On Feb 20, 2008, at 8:29 PM, lists at infoway.net wrote:
> Hi all,
>
> I downloaded the latest elephant this morning and ran the BDB tests,
> one of which failed. I haven't really looked much into it because
> I'm traveling. However, just wanted to share this with you in case
> you were aware (or not) and I might have missed something.
>
> Thanks,
> Waldo
>
> **** SBCL:
> SBCL was compiled from source enabling threads.
> This is SBCL 1.0.14, an implementation of ANSI Common Lisp.
>
> **** SLIME:
> ELE-TESTS> (do-backend-tests)
> Attempting to load libmemutil.dylib...
> Loaded /Users/waldo/dev/lisp/elephant/src/memutil/libmemutil.dylib
> STYLE-WARNING: redefining COPY-BUFS in DEFUN
> STYLE-WARNING: redefining MAKE-BUFFER-STREAM in DEFUN
> STYLE-WARNING: redefining GRAB-BUFFER-STREAM in DEFUN
> STYLE-WARNING: redefining RETURN-BUFFER-STREAM in DEFUN
> STYLE-WARNING: redefining READ-INT32 in DEFUN
> STYLE-WARNING: redefining READ-INT64 in DEFUN
> STYLE-WARNING: redefining READ-UINT32 in DEFUN
> STYLE-WARNING: redefining READ-UINT64 in DEFUN
> STYLE-WARNING: redefining READ-FLOAT in DEFUN
> STYLE-WARNING: redefining READ-DOUBLE in DEFUN
> STYLE-WARNING: redefining WRITE-INT32 in DEFUN
> STYLE-WARNING: redefining WRITE-INT64 in DEFUN
> STYLE-WARNING: redefining WRITE-UINT32 in DEFUN
> STYLE-WARNING: redefining WRITE-UINT64 in DEFUN
> STYLE-WARNING: redefining WRITE-FLOAT in DEFUN
> STYLE-WARNING: redefining WRITE-DOUBLE in DEFUN
> STYLE-WARNING: redefining OFFSET-CHAR-POINTER in DEFUN
> STYLE-WARNING: redefining %COPY-STR-TO-BUF in DEFUN
> STYLE-WARNING: redefining COPY-STR-TO-BUF in DEFUN
> STYLE-WARNING: redefining PROCESS-STRUCT-SLOT-DEFS in DEFUN
> STYLE-WARNING: redefining RESIZE-BUFFER-STREAM in DEFUN
> STYLE-WARNING: redefining RESIZE-BUFFER-STREAM-NO-COPY in DEFUN
> STYLE-WARNING: redefining RESET-BUFFER-STREAM in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-BYTE in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-INT32 in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-UINT32 in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-INT64 in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-UINT64 in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-FLOAT in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-DOUBLE in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-STRING in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-BYTE in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-BYTE-VECTOR in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-BYTE-VECTOR in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-TO-ARRAY-OFFSET in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-FROM-ARRAY-OFFSET in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-OID in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-OID in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-INT in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-FIXNUM in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-INT in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-UINT in DEFUN
> STYLE-WARNING: redefining BUFFER-WRITE-UINT in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-FIXNUM32 in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-INT32 in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-UINT32 in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-FIXNUM64 in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-INT64 in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-UINT64 in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-FLOAT in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-DOUBLE in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-UCS1-STRING in DEFUN
> STYLE-WARNING: redefining BUFFER-READ-UCS4-STRING in DEFUN
> STYLE-WARNING: redefining LITTLE-ENDIAN-P in DEFUN
> ; compiling file "/Users/waldo/dev/lisp/elephant/tests/
> testbdb.lisp" (written 20 FEB 2007 10:48:14 AM):
> ; compiling (IN-PACKAGE :ELE-TESTS)
> ; compiling (DEFVAR ENV)
> ; compiling (DEFVAR DB)
> ; compiling (DEFUN PREPARE-BDB ...)
> ; compiling (DEFTEST PREPARES-BDB ...)
> ; compiling (DEFUN TEST-SEQUENCE1 ...)
> ; compiling (DEFTEST TEST-SEQ1 ...)
> ; compiling (DEFUN TEST-SEQUENCE2 ...)
> ; compiling (DEFTEST TEST-SEQ2 ...)
> ; compiling (DEFUN CLEANUP-BDB ...)
> ; compiling (DEFTEST CLEANSUP-BDB ...)
>
> ; /Users/waldo/dev/lisp/elephant/tests/testbdb.fasl written
> ; compilation finished in 0:00:00
> 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; in: LAMBDA NIL
> ; (NULL ELEPHANT-TESTS::*TEST-SPEC-SECONDARY*)
> ; ==>
> ; (IF ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* NIL T)
> ;
> ; caught WARNING:
> ; undefined variable: *TEST-SPEC-SECONDARY*
>
> ;
> ; caught WARNING:
> ; This variable is undefined:
> ; *TEST-SPEC-SECONDARY*
> ;
> ; compilation unit finished
> ; caught 2 WARNING conditions
>
> 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 SET-RANGE
> 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 PGET-BOTH-RANGE PCURSOR NEWINDEX PCURSOR2
> ADD-GET-REMOVE ADD-GET-REMOVE-SYMBOL EXISTSP PSET
> DISABLE-CLASS-INDEXING-TEST INDEXING-BASIC-TRIVIAL INDEXING-BASIC
> INDEXING-CLASS-OPT INDEXING-INHERIT
> Test INDEXING-RANGE failed
> Form: (PROGN
> (DEFCLASS IDX-FOUR NIL
> ((SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR SLOT1
> :INDEX T))
> (:METACLASS PERSISTENT-METACLASS))
> (DISABLE-CLASS-INDEXING 'IDX-FOUR :ERRORP NIL)
> (SETF (FIND-CLASS 'IDX-FOUR NIL) NIL)
> (DEFCLASS IDX-FOUR NIL
> ((SLOT1 :INITARG :SLOT1 :INITFORM 1 :ACCESSOR SLOT1
> :INDEX T))
> (:METACLASS PERSISTENT-METACLASS))
> (DEFUN MAKE-IDX-FOUR (VAL) (MAKE-INSTANCE 'IDX-FOUR :SLOT1 VAL))
> (WITH-TRANSACTION NIL
> (MAPC #'MAKE-IDX-FOUR '(1 1 1 2 2 4 5 5 5 6
> 10)))
> (LET ((X1 (GET-INSTANCES-BY-RANGE 'IDX-FOUR 'SLOT1 2 6))
> (X2 (GET-INSTANCES-BY-RANGE 'IDX-FOUR 'SLOT1 0 2))
> (X3 (GET-INSTANCES-BY-RANGE 'IDX-FOUR 'SLOT1 6 15)))
> (VALUES (EQUAL (MAPCAR #'SLOT1 X1) '(2 2 4 5 5 5 6))
> (EQUAL (MAPCAR #'SLOT1 X2) '(1 1 1 2 2))
> (EQUAL (MAPCAR #'SLOT1 X3) '(6 10)))))
> Expected values: T
> T
> T
> Actual value: #<SIMPLE-ERROR {136D0F69}>.
> INDEXING-SLOT-MAKUNBOUND INDEXING-WIPE-INDEX INDEXING-RECONNECT-DB
> INDEXING-CHANGE-CLASS INDEXING-REDEF-CLASS
> Ranged get of 10/700 objects = Linear: 0.435 sec Indexed: 0.01 sec
> INDEXING-TIMING
> ; in: LAMBDA NIL
> ; (NULL ELEPHANT-TESTS::*TEST-SPEC-SECONDARY*)
> ; ==>
> ; (IF ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* NIL T)
> ;
> ; caught WARNING:
> ; undefined variable: *TEST-SPEC-SECONDARY*
>
> ;
> ; caught WARNING:
> ; This variable is undefined:
> ; *TEST-SPEC-SECONDARY*
> ;
> ; compilation unit finished
> ; caught 2 WARNING conditions
>
> Single store mode: ignoring REMOVE-ELEMENT
> ; in: LAMBDA NIL
> ; (NULL ELEPHANT-TESTS::*TEST-SPEC-SECONDARY*)
> ; ==>
> ; (IF ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* NIL T)
> ;
> ; caught WARNING:
> ; undefined variable: *TEST-SPEC-SECONDARY*
>
> ;
> ; caught WARNING:
> ; This variable is undefined:
> ; *TEST-SPEC-SECONDARY*
> ;
> ; compilation unit finished
> ; caught 2 WARNING conditions
>
> Single store mode: ignoring MIGRATE-BASIC
> ; in: LAMBDA NIL
> ; (NULL ELEPHANT-TESTS::*TEST-SPEC-SECONDARY*)
> ; ==>
> ; (IF ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* NIL T)
> ;
> ; caught WARNING:
> ; undefined variable: *TEST-SPEC-SECONDARY*
>
> ;
> ; caught WARNING:
> ; This variable is undefined:
> ; *TEST-SPEC-SECONDARY*
> ;
> ; compilation unit finished
> ; caught 2 WARNING conditions
>
> Single store mode: ignoring MIGRATE-BTREE
> ; in: LAMBDA NIL
> ; (NULL ELEPHANT-TESTS::*TEST-SPEC-SECONDARY*)
> ; ==>
> ; (IF ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* NIL T)
> ;
> ; caught WARNING:
> ; undefined variable: *TEST-SPEC-SECONDARY*
>
> ;
> ; caught WARNING:
> ; This variable is undefined:
> ; *TEST-SPEC-SECONDARY*
> ;
> ; compilation unit finished
> ; caught 2 WARNING conditions
>
> Single store mode: ignoring MIGRATE-IDX-BTREE
> ; in: LAMBDA NIL
> ; (NULL ELEPHANT-TESTS::*TEST-SPEC-SECONDARY*)
> ; ==>
> ; (IF ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* NIL T)
> ;
> ; caught WARNING:
> ; undefined variable: *TEST-SPEC-SECONDARY*
>
> ;
> ; caught WARNING:
> ; This variable is undefined:
> ; *TEST-SPEC-SECONDARY*
> ;
> ; compilation unit finished
> ; caught 2 WARNING conditions
>
> Single store mode: ignoring MIGRATE-PCLASS
> ; in: LAMBDA NIL
> ; (NULL ELEPHANT-TESTS::*TEST-SPEC-SECONDARY*)
> ; ==>
> ; (IF ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* NIL T)
> ;
> ; caught WARNING:
> ; undefined variable: *TEST-SPEC-SECONDARY*
>
> ;
> ; caught WARNING:
> ; This variable is undefined:
> ; *TEST-SPEC-SECONDARY*
> ;
> ; compilation unit finished
> ; caught 2 WARNING conditions
>
> Single store mode: ignoring MIGRATE-MULT-PCLASS
> ; in: LAMBDA NIL
> ; (NULL ELEPHANT-TESTS::*TEST-SPEC-SECONDARY*)
> ; ==>
> ; (IF ELEPHANT-TESTS::*TEST-SPEC-SECONDARY* NIL T)
> ;
> ; caught WARNING:
> ; undefined variable: *TEST-SPEC-SECONDARY*
>
> ;
> ; caught WARNING:
> ; This variable is undefined:
> ; *TEST-SPEC-SECONDARY*
> ;
> ; compilation unit finished
> ; caught 2 WARNING conditions
>
> Single store mode: ignoring MIGRATE-IPCLASS PREPARES-BDB TEST-SEQ1
> TEST-SEQ2 CLEANSUP-BDB
> 1 out of 132 total tests failed: INDEXING-RANGE.NIL
>
> _______________________________________________
> 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