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, [EMAIL PROTECTED] 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@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
