On Fri, 23 Mar 2007 08:32:23 -0500, "Robert L. Read" <[EMAIL PROTECTED]> 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. _______________________________________________ elephant-devel site list elephant-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/elephant-devel
