[elephant-devel] secondary indices
Kilian Sprotte
ml13 at onlinehome.de
Wed Jan 11 10:41:17 UTC 2006
Hi all,
for the moment, I cannot say anything more that I get the same
results on openmcl 1.0 as Waldo and also on openmcl 0.14.3.
I append again the transcript with
(defmethod print-object ((obj simple-error) stream)
(print-unreadable-object (obj stream :type t)
(apply #'format stream (simple-condition-format-control obj)
(simple-condition-format-arguments obj))))
The #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-VECTOR
#x66E4BEE> .> seems to (always?) refer to
the "missing slots" of the bdb-indexed-btree.
I am sorry for not being anymore helpful - I will be quite busy the
next days - and also I should admit that I am actually a musician,
who normally would just store his chords into elephant - I mean, I am
just not sure if I can be of real, valuable help for you. Well, I'll
try to be helpful where I can, but maybe you shouldn't rely too much
on what I say :)
Cheers,
Kilian Sprotte
Doing 106 pending tests of 106 tests total.
FIXNUMS FIXNUM-TYPE-1 BIGNUMS FLOATS RATIONALS BASE-STRINGS STRINGS
SYMBOLS
CHARS PATHNAMES CONSES HASH-TABLES-1 HASH-TABLES-2 ARRAYS-1 ARRAYS-2
TEST-DEEP-EQUALP OBJECTS CIRCULAR PERSISTENT 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
Test UPDATE-CLASS failed
Form: (PROGN (DEFCLASS UPDATE-CLASS NIL ((SLOT1 :INITFORM 1 :ACCESSOR
SLOT1)) (:METACLASS PERSISTENT-METACLASS)) (LET* ((*AUTO-COMMIT* T)
(FOO (MAKE-INSTANCE 'UPDATE-CLASS :SC *STORE-CONTROLLER*))) (DEFCLASS
UPDATE-CLASS NIL ((SLOT2 :INITFORM 2 :ACCESSOR SLOT2)) (:METACLASS
PERSISTENT-METACLASS)) (VALUES (SLOT2 FOO) (SIGNALS-CONDITION (SLOT1
FOO)))))
Expected values: 2
T
Actual value: #<UNBOUND-SLOT #x668C2DE>.
Test CHANGE-CLASS failed
Form: (PROGN (DEFCLASS CLASS-ONE NIL ((SLOT1 :INITFORM 1 :ACCESSOR
SLOT1)) (:METACLASS PERSISTENT-METACLASS)) (DEFCLASS CLASS-TWO NIL
((SLOT1 :INITFORM 0 :ACCESSOR SLOT1) (SLOT2 :INITFORM 2 :ACCESSOR
SLOT2)) (:METACLASS PERSISTENT-METACLASS)) (LET* ((*AUTO-COMMIT* T)
(FOO (MAKE-INSTANCE 'CLASS-ONE :SC *STORE-CONTROLLER*))) (CHANGE-
CLASS FOO (FIND-CLASS 'CLASS-TWO)) (VALUES (SLOT1 FOO) (SLOT2 FOO))))
Expected values: 1
2
Actual value: #<UNBOUND-SLOT #x668724E>.
Test CHANGE-CLASS2 failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET
((FOO (BUILD-BTREE *STORE-CONTROLLER*))) (CHANGE-CLASS FOO (FIND-
CLASS (IF (TYPEP *STORE-CONTROLLER* 'BDB-STORE-CONTROLLER) 'BDB-
INDEXED-BTREE 'SQL-INDEXED-BTREE))) (IS-NOT-NULL (INDICES FOO))))
Expected value: T
Actual value: #<UNBOUND-SLOT #x66984BE>.
Test CHANGE-CLASS3 failed
Form: (PROGN (DEFCLASS CLASS-ONE NIL ((SLOT1 :ACCESSOR SLOT1))
(:METACLASS PERSISTENT-METACLASS)) (DEFCLASS CLASS-TWO NIL
((SLOT1 :INITFORM 0 :ACCESSOR SLOT1) (SLOT2 :INITFORM 2 :ACCESSOR
SLOT2)) (:METACLASS PERSISTENT-METACLASS)) (LET* ((*AUTO-COMMIT* T)
(FOO (MAKE-INSTANCE 'CLASS-ONE :SC *STORE-CONTROLLER*))) (CHANGE-
CLASS FOO (FIND-CLASS 'CLASS-TWO)) (VALUES (SLOT1 FOO) (SLOT2 FOO))))
Expected values: 0
2
Actual value: #<UNBOUND-SLOT #x66934CE>.
BASICPERSISTENCE TESTOID BTREE-MAKE BTREE-PUT BTREE-GET REMOVE-KV
REMOVED
MAP-BTREE INDEXED-BTREE-MAKE
Test ADD-INDICES failed
Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-
CONTROLLER*) (SETF INDEX1 (ADD-INDEX INDEXED :INDEX-NAME 'SLOT1 :KEY-
FORM 'KEY-MAKER)) (SETF INDEX2 (ADD-INDEX INDEXED :INDEX-NAME
'SLOT2 :KEY-FORM '(LAMBDA (S KEY VALUE) (DECLARE (IGNORE S KEY))
(VALUES T (SLOT2 VALUE)))))))
Expected value: T
Actual value: NIL.
Test TEST-INDICES failed
Form: (VALUES (= (HASH-TABLE-COUNT (INDICES INDEXED)) 2) (EQ INDEX1
(GETHASH 'SLOT1 (INDICES INDEXED))) (EQ INDEX2 (GETHASH 'SLOT2
(INDICES INDEXED))))
Expected values: T
T
T
Actual value: #<UNBOUND-VARIABLE #x662D8DE>.
Test INDEXED-PUT failed
Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-
CONTROLLER*) (LOOP FOR OBJ IN OBJS FOR KEY IN KEYS DO (SETF (GET-
VALUE KEY INDEXED) OBJ))))
Expected value: T
Actual value: NIL.
Test INDEXED-GET failed
Form: (LOOP FOR KEY IN KEYS FOR I FROM 1 TO 1000 FOR OBJ = (GET-VALUE
KEY INDEXED) ALWAYS (AND (= (SLOT1 OBJ) I) (= (SLOT2 OBJ) (* I 100))))
Expected value: T
Actual value: #<SIMPLE-ERROR No applicable method for args:
(NIL)
to #<STANDARD-GENERIC-FUNCTION SLOT1 #x653FC7E>>.
Test SIMPLE-SLOT-GET failed
Form: (PROGN (SETF (GET-VALUE (NTH 0 KEYS) INDEXED) (NTH 0 OBJS))
(LET ((OBJ (GET-VALUE 1 INDEX1))) (AND (= (SLOT1 OBJ) 1) (= (SLOT2
OBJ) (* 1 100)))))
Expected value: T
Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-
VECTOR #x65F449E> .>.
Test INDEXED-GET-FROM-SLOT1 failed
Form: (LOOP WITH INDEX = (GET-INDEX INDEXED 'SLOT1) FOR I FROM 1 TO
1000 FOR OBJ = (GET-VALUE I INDEX) ALWAYS (= (SLOT1 OBJ) I))
Expected value: T
Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-
VECTOR #x65F449E> .>.
Test INDEXED-GET-FROM-SLOT2 failed
Form: (LOOP WITH INDEX = (GET-INDEX INDEXED 'SLOT2) FOR I FROM 1 TO
1000 FOR OBJ = (GET-VALUE (* I 100) INDEX) ALWAYS (= (SLOT2 OBJ) (* I
100)))
Expected value: T
Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-
VECTOR #x65F449E> .>.
REMOVE-KV-INDEXED
Test NO-KEY-NOR-INDICES failed
Form: (VALUES (GET-VALUE FIRST-KEY INDEXED) (GET-PRIMARY-KEY 1
INDEX1) (GET-PRIMARY-KEY 100 INDEX2))
Expected values: NIL
NIL
NIL
Actual value: #<UNBOUND-VARIABLE #x6645ADE>.
Test REMOVE-KV-FROM-SLOT1 failed
Form: (FINISHES (REMOVE-KV 2 INDEX1))
Expected value: T
Actual value: NIL.
Test NO-KEY-NOR-INDICES-SLOT1 failed
Form: (VALUES (GET-VALUE (SECOND KEYS) INDEXED) (GET-PRIMARY-KEY 2
INDEX1) (GET-PRIMARY-KEY 200 INDEX2))
Expected values: NIL
NIL
NIL
Actual value: #<UNBOUND-VARIABLE #x66419D6>.
Test REMOVE-KV-FROM-SLOT2 failed
Form: (FINISHES (REMOVE-KV 300 INDEX2))
Expected value: T
Actual value: NIL.
Test NO-KEY-NOR-INDICES-SLOT2 failed
Form: (VALUES (GET-VALUE (THIRD KEYS) INDEXED) (GET-PRIMARY-KEY 3
INDEX1) (GET-PRIMARY-KEY 300 INDEX2))
Expected values: NIL
NIL
NIL
Actual value: #<UNBOUND-VARIABLE #x665D8C6>.
Test MAP-INDEXED failed
Form: (LET ((KS NIL) (VS NIL)) (FLET ((MAPPER (K V) (PUSH K KS) (PUSH
V VS))) (MAP-BTREE #'MAPPER INDEXED)) (VALUES (AND (SUBSETP KS (CDDDR
KEYS) :TEST #'EQUALP) (SUBSETP (CDDDR KEYS) KS :TEST #'EQUALP))))
Expected value: T
Actual value: NIL.
Test GET-FIRST failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (C INDEX1) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-FIRST
C) (DECLARE (IGNORE HAS V)) (= K 4))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x6669F86>.
Test GET-FIRST2 failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (C INDEX2) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-FIRST
C) (DECLARE (IGNORE HAS V)) (= K 400))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x667B0BE>.
Test GET-LAST failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (C INDEX1) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-LAST
C) (DECLARE (IGNORE HAS V)) (= K 1000))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x668C1F6>.
Test GET-LAST2 failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (C INDEX2) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-LAST
C) (DECLARE (IGNORE HAS V)) (= K 100000))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x669D14E>.
Test SET failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (C INDEX1) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-SET C
200) (DECLARE (IGNORE HAS K)) (= (SLOT1 V) 200))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x66ADCBE>.
Test SET2 failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (C INDEX2) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-SET C
500) (DECLARE (IGNORE HAS K)) (= (SLOT2 V) 500))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x66BE8A6>.
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: #<UNBOUND-VARIABLE #x66CF49E>.
Test SET-RANGE2 failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (C INDEX2) (MULTIPLE-VALUE-BIND (HAS K V) (CURSOR-SET-
RANGE C 501) (DECLARE (IGNORE HAS K)) (= (SLOT2 V) 600))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x66C004E>.
Test REM-KV failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET
((IBT (BUILD-INDEXED-BTREE *STORE-CONTROLLER*))) (LOOP FOR I FROM 0
TO 10 DO (SETF (GET-VALUE I IBT) (* I I))) (REMOVE-KV 0 IBT) (REMOVE-
KV 1 IBT) (REMOVE-KV 10 IBT) (EQUAL (LIST (GET-VALUE 0 IBT) (GET-
VALUE 1 IBT) (GET-VALUE 10 IBT) (GET-VALUE 5 IBT)) '(NIL NIL NIL 25))))
Expected value: T
Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-
VECTOR #x66EEF9E> .>.
Test REM-IDEXKV failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET*
((IBT (BUILD-INDEXED-BTREE *STORE-CONTROLLER*)) (ID1 (ADD-INDEX
IBT :INDEX-NAME 'IDX1 :KEY-FORM 'ODD))) (LOOP FOR I FROM 0 TO 10 DO
(SETF (GET-VALUE I IBT) (* I I))) (WITH-BTREE-CURSOR (C ID1) (CURSOR-
FIRST C) (DOTIMES (I 10) (MULTIPLE-VALUE-BIND (HAS KEY VALUE) (CURSOR-
NEXT C)))) (REMOVE-KV 4 IBT) (REMOVE-KV 5 IBT) (EQUAL (LIST (GET-
VALUE 4 IBT) (GET-VALUE 5 IBT) (GET-VALUE 6 IBT) (WITH-BTREE-CURSOR
(C IBT) (CURSOR-FIRST C) (DOTIMES (I 4) (MULTIPLE-VALUE-BIND (HAS KEY
VALUE) (CURSOR-NEXT C) VALUE)) (MULTIPLE-VALUE-BIND (HAS KEY VALUE)
(CURSOR-NEXT C) VALUE))) '(NIL NIL 36 49))))
Expected value: T
Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-
VECTOR #x66F773E> .>.
MAKE-INDEXED2
Test ADD-INDICES2 failed
Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-
CONTROLLER*) (SETQ INDEX3 (ADD-INDEX INDEXED2 :INDEX-NAME
'CRUNCH :KEY-FORM 'CRUNCH))))
Expected value: T
Actual value: NIL.
Test PUT-INDEXED2 failed
Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-
CONTROLLER*) (LOOP FOR I FROM 0 TO 10000 DO (SETF (GET-VALUE I
INDEXED2) (- I)))))
Expected value: T
Actual value: NIL.
Test GET-INDEXED2 failed
Form: (LOOP FOR I FROM 0 TO 10000 ALWAYS (= (- I) (GET-VALUE I
INDEXED2)))
Expected value: T
Actual value: #<TYPE-ERROR #x664FAEE>.
Test GET-FROM-INDEX3 failed
Form: (LOOP FOR I FROM 0 TO 1000 ALWAYS (= (* I -10) (GET-VALUE I
INDEX3)))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x664D3FE>.
Test DUP-TEST failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (CURS INDEX3) (LOOP FOR (MORE K V) = (MULTIPLE-VALUE-
LIST (CURSOR-FIRST CURS)) THEN (MULTIPLE-VALUE-LIST (CURSOR-NEXT-DUP
CURS)) WHILE MORE COLLECT V)))
Expected value: (0 -1 -2 -3 -4 -5 -6 -7 -8 -9)
Actual value: #<UNBOUND-VARIABLE #x665B1D6>.
Test NODUP-TEST failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (CURS INDEX3) (LOOP FOR (M K V) = (MULTIPLE-VALUE-LIST
(CURSOR-NEXT-NODUP CURS)) FOR I FROM 0 DOWNTO -9990 BY 10 WHILE M
ALWAYS (= V I))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x6668D3E>.
Test PREV-NODUP-TEST failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (CURS INDEX3) (CURSOR-LAST CURS) (LOOP FOR (M K V) =
(MULTIPLE-VALUE-LIST (CURSOR-PREV-NODUP CURS)) FOR I FROM -9999 TO -9
BY 10 WHILE M ALWAYS (= V I))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x6676486>.
Test PNODUP-TEST failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (CURS INDEX3) (LOOP FOR (M K V P) = (MULTIPLE-VALUE-LIST
(CURSOR-PNEXT-NODUP CURS)) FOR I FROM 0 TO 9990 BY 10 WHILE M ALWAYS
(= P I))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x6683656>.
Test PPREV-NODUP-TEST failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (WITH-
BTREE-CURSOR (CURS INDEX3) (CURSOR-LAST CURS) (LOOP FOR (M K V P) =
(MULTIPLE-VALUE-LIST (CURSOR-PPREV-NODUP CURS)) FOR I FROM 9999
DOWNTO 9 BY 10 WHILE M ALWAYS (= P I))))
Expected value: T
Actual value: #<UNBOUND-VARIABLE #x66906A6>.
Test CUR-DEL1 failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET*
((IBT (BUILD-INDEXED-BTREE *STORE-CONTROLLER*)) (ID1 (ADD-INDEX
IBT :INDEX-NAME 'IDX1 :KEY-FORM 'ODD))) (LOOP FOR I FROM 0 TO 10 DO
(SETF (GET-VALUE I IBT) (* I I))) (WITH-BTREE-CURSOR (C ID1) (CURSOR-
LAST C) (CURSOR-DELETE C)) (EQUAL (LIST (GET-VALUE 4 IBT) (GET-VALUE
5 IBT) (GET-VALUE 9 IBT) (GET-VALUE 10 IBT)) '(16 25 NIL 100))))
Expected value: T
Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-
VECTOR #x66BF17E> .>.
Test INDEXED-DELETE failed
Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-
CONTROLLER*) (WITH-BTREE-CURSOR (CURS INDEX3) (CURSOR-LAST CURS)
(CURSOR-DELETE CURS))))
Expected value: T
Actual value: NIL.
Test TEST-DELETED failed
Form: (VALUES (GET-VALUE 10000 INDEXED2) (GET-VALUE 1000 INDEX3))
Expected values: NIL
NIL
Actual value: #<UNBOUND-VARIABLE #x66C982E>.
Test INDEXED-DELETE2 failed
Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-
CONTROLLER*) (WITH-BTREE-CURSOR (CURS INDEX3) (CURSOR-FIRST CURS)
(CURSOR-NEXT-DUP CURS) (CURSOR-DELETE CURS))))
Expected value: T
Actual value: NIL.
Test TEST-DELETED2 failed
Form: (VALUES (GET-VALUE 0 INDEXED2) (GET-VALUE 0 INDEX3) (GET-VALUE
1 INDEXED2) (WITH-BTREE-CURSOR (C INDEX3) (CURSOR-FIRST C) (MULTIPLE-
VALUE-BIND (M K V) (CURSOR-NEXT C) V)))
Expected values: 0
0
NIL
-2
Actual value: #<UNBOUND-VARIABLE #x66D59E6>.
Test CUR-DEL2 failed
Form: (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-CONTROLLER*) (LET*
((IBT (BUILD-INDEXED-BTREE *STORE-CONTROLLER*)) (ID1 (ADD-INDEX
IBT :INDEX-NAME 'IDX1 :KEY-FORM 'ODD))) (LOOP FOR I FROM 0 TO 10 DO
(SETF (GET-VALUE I IBT) (* I I))) (WITH-BTREE-CURSOR (C ID1) (CURSOR-
FIRST C) (CURSOR-NEXT-DUP C) (CURSOR-DELETE C)) (EQUAL (LIST (GET-
VALUE 1 ID1) (GET-VALUE 0 ID1)) '(1 0))))
Expected value: T
Actual value: #<SIMPLE-ERROR Array index 4 out of bounds for #<SLOT-
VECTOR #x66E4BEE> .>.
Test GET-BOTH failed
Form: (WITH-BTREE-CURSOR (C INDEXED2) (CURSOR-GET-BOTH C 200 -200))
Expected values: T
200
-200
Actual value: NIL.
Test PGET-BOTH failed
Form: (WITH-BTREE-CURSOR (C INDEX3) (MULTIPLE-VALUE-BIND (M K V P)
(CURSOR-PGET-BOTH C 10 107) (VALUES K V P)))
Expected values: 10
-107
107
Actual value: #<UNBOUND-VARIABLE #x66E061E>.
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 value: #<UNBOUND-VARIABLE #x66FE846>.
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 value: #<UNBOUND-VARIABLE #x66F67E6>.
Test NEWINDEX failed
Form: (FINISHES (WITH-TRANSACTION (:STORE-CONTROLLER *STORE-
CONTROLLER*) (SETQ INDEX4 (ADD-INDEX INDEXED2 :INDEX-NAME
'CRUNCH :KEY-FORM 'CRUNCH :POPULATE T))))
Expected value: T
Actual value: NIL.
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 value: #<UNBOUND-VARIABLE #x662B3AE>.
ADD-GET-REMOVE ADD-GET-REMOVE-SYMBOL EXISTSP PREPARES-SLEEPYCAT TEST-
SEQ1
TEST-SEQ2 CLEANSUP-SLEEPYCAT REMOVE-ELEMENT
Test MIGRATE1 failed
Form: (LET ((OLD-STORE *STORE-CONTROLLER*) (*PREV-COMMIT* *AUTO-
COMMIT*) (*AUTO-COMMIT* T) (RV NIL)) (UNWIND-PROTECT (LET ((SC1 (OPEN-
STORE *TEST-PATH-PRIMARY*)) (SC2 (OPEN-STORE *TEST-PATH-SECONDARY*)))
(ADD-TO-ROOT "x" "y" :STORE-CONTROLLER SC1) (COPY-FROM-KEY "x" SC1
SC2) (SETF RV (EQUAL (GET-FROM-ROOT "x" :STORE-CONTROLLER SC1) (GET-
FROM-ROOT "x" :STORE-CONTROLLER SC2)))) (PROGN (SETQ *STORE-
CONTROLLER* OLD-STORE) (SETQ *AUTO-COMMIT* *PREV-COMMIT*))) RV)
Expected value: T
Actual value: #<SIMPLE-ERROR Strategy resolution for this spec
completely failed!>.
Test MIGRATE2 failed
Form: (LET ((OLD-STORE *STORE-CONTROLLER*) (*PREV-COMMIT* *AUTO-
COMMIT*) (*AUTO-COMMIT* T) (RV NIL)) (UNWIND-PROTECT (LET ((SC1 (OPEN-
STORE *TEST-PATH-PRIMARY*)) (SC2 (OPEN-STORE *TEST-PATH-SECONDARY*)))
(LET ((IBT (BUILD-BTREE SC1))) (LOOP FOR I FROM 0 TO 10 DO (SETF (GET-
VALUE I IBT) (* I I))) (LET ((MIG (MIGRATE SC2 IBT))) (BTREE-DIFFER
IBT MIG)))) (PROGN (SETQ *STORE-CONTROLLER* OLD-STORE) (SETQ *AUTO-
COMMIT* *PREV-COMMIT*))))
Expected value: NIL
Actual value: #<SIMPLE-ERROR Strategy resolution for this spec
completely failed!>.
Test MIGRATE3 failed
Form: (LET ((OLD-STORE *STORE-CONTROLLER*) (*PREV-COMMIT* *AUTO-
COMMIT*) (*AUTO-COMMIT* T) (RV NIL)) (UNWIND-PROTECT (LET ((SC1 (OPEN-
STORE *TEST-PATH-PRIMARY*)) (SC2 (OPEN-STORE *TEST-PATH-SECONDARY*)))
(LET* ((IBT (BUILD-INDEXED-BTREE SC1))) (LET ((INDEX (ADD-INDEX
IBT :INDEX-NAME 'CRUNCH :KEY-FORM 'CRUNCH :POPULATE T))) (LOOP FOR I
FROM 0 TO 10 DO (SETF (GET-VALUE I IBT) (* I I))) (LET* ((MIG
(MIGRATE SC2 IBT)) (NINDEX (GETHASH 'CRUNCH (INDICES IBT)))) (LOOP
FOR I FROM 0 TO 10 DO (IF (NOT (EQUAL (GET-VALUE I INDEX) (GET-VALUE
I NINDEX))) (PROGN (FORMAT T "YIKES ~A ~%" I)))) (SETF RV (NOT (BTREE-
DIFFER IBT MIG))))))) (PROGN (SETQ *STORE-CONTROLLER* OLD-STORE)
(SETQ *AUTO-COMMIT* *PREV-COMMIT*))) RV)
Expected value: T
Actual value: #<SIMPLE-ERROR Strategy resolution for this spec
completely failed!>.
Test MIGRATE4 failed
Form: (FINISHES (LET ((OLD-STORE *STORE-CONTROLLER*) (*PREV-COMMIT*
*AUTO-COMMIT*) (*AUTO-COMMIT* T) (RV NIL)) (UNWIND-PROTECT (LET*
((SC1 (OPEN-STORE *TEST-PATH-PRIMARY*)) (SC2 (OPEN-STORE *TEST-PATH-
SECONDARY*))) (LET* ((IBT (BUILD-INDEXED-BTREE SC1))) (LET ((INDEX
(ADD-INDEX IBT :INDEX-NAME 'CRUNCH :KEY-FORM 'CRUNCH :POPULATE T)) (X
0)) (LOOP FOR I FROM 0 TO 10 DO (SETF (GET-VALUE I IBT) (* I I))))))
(PROGN (SETQ *STORE-CONTROLLER* OLD-STORE) (SETQ *AUTO-COMMIT* *PREV-
COMMIT*)))))
Expected value: T
Actual value: NIL.
MIGRATE5
52 out of 106 total tests failed: UPDATE-CLASS, CHANGE-CLASS, CHANGE-
CLASS2, CHANGE-CLASS3, ADD-INDICES,
TEST-INDICES, INDEXED-PUT, INDEXED-GET, SIMPLE-SLOT-GET,
INDEXED-GET-FROM-SLOT1, INDEXED-GET-FROM-SLOT2, 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, REM-KV, REM-IDEXKV,
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, MIGRATE1,
MIGRATE2, MIGRATE3, MIGRATE4.
NIL
ELE-TESTS>
More information about the elephant-devel
mailing list