[elephant-devel] Start of 0.6.1 Beta Cycle

[Edi Weitz]

On Fri, 23 Mar 2007 08:32:23 -0500, "Robert L. Read" <read at robertlread.net> wrote:

> On Fri, 2007-03-23 at 10:28 +0100, Edi Weitz wrote:
>
>> (DO-BACKEND-TESTS (QUOTE (:CLSQL (:POSTGRESQL NIL "elephant" NIL NIL))))
>
> This doesn't look like a good connect string to me.

It's a connection spec accepted by CLSQL, so I thought it'd be OK for
Elephant as well:

  CL-USER 1 > (clsql:connect '(nil "elephant" nil nil) :database-type :postgresql)
  #<CLSQL-POSTGRESQL:POSTGRESQL-DATABASE localhost/elephant/ OPEN 200B5453>

> (I do this logged in as the Linux user "postgres", the user that is
> create specifically to run the "postmaster".)

This account doesn't exist on a Windows installation of PostgreSQL.

> Then a "spec" that looks like this should work:
>
>  '(:CLSQL (:POSTGRESQL "localhost.localdomain" "test" "postgres" ""))
>
> Let me know if that makes a difference!

This variant works for me:

  (do-backend-tests '(:clsql (:postgresql "" "elephant" nil nil)))

I now get these results:

  Doing 122 pending tests of 122 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 BASE-STRINGS STRINGS HARD-STRINGS SYMBOLS CHARS PATHNAMES CONSES HASH-TABLES-1
   HASH-TABLES-2 ARRAYS-1 ARRAYS-2 TEST-DEEP-EQUALP OBJECTS STRUCTS STRUCT-NON-STD-CONSTRUCT 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 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
  Test MAP-INDEXED-INDEX failed
  Form: (LET ((SUM 0)) (FLET ((COLLECTOR (KEY VALUE PKEY) (INCF SUM (SLOT1 VALUE)))) (MAP-INDEX (FUNCTION COLLECTOR) INDEX1 :START NIL :END 10) (MAP-INDEX (FUNCTION COLLECTOR) INDEX1 :START 990 :END NIL) (MAP-INDEX (FUNCTION COLLECTOR) INDEX1 :START 400 :END 410)) SUM)
  Expected value: 15449
  Actual value: #<SIMPLE-ERROR 2232E82B>.
   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
  Warning: Manually finalizing class IDX-ONE DISABLE-CLASS-INDEXING-TEST INDEXING-BASIC-TRIVIAL
   INDEXING-BASIC INDEXING-CLASS-OPT INDEXING-INHERIT INDEXING-RANGE INDEXING-SLOT-MAKUNBOUND
  Warning: Manually finalizing class IDX-FIVE-DEL INDEXING-WIPE-INDEX INDEXING-RECONNECT-DB
   INDEXING-CHANGE-CLASS INDEXING-REDEF-CLASS
  Warning: Manually finalizing class STRESS-INDEX
  Ranged get of 10/700 objects = Linear: 6.068 sec Indexed: 2.013 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
  1 out of 122 total tests failed: MAP-INDEXED-INDEX.

Cheers,
Edi.