filed some tests for sqlite3

clisp 2.35, cffi

run sqlite3 tests:

******************************************************************************
***     CLSQL Test Suite begun at 2005-11-03 16:43:16.000000
***     CLISP
***     2.35 (2005-08-29) (built 3339997656) (memory 3339998136) on PC/386
***     Database SQLITE3 backend.
******************************************************************************
...
Test :FDML/LOOP/1 failed
Form:
(LOOP CLSQL-TESTS::FOR (CLSQL-TESTS::FORENAME CLSQL-TESTS::SURNAME)
CLSQL-TESTS::BEING CLSQL-TESTS::EACH
 CLSQL-TESTS::TUPLE CLSQL-TESTS::IN
 (CLSQL-SYS:SQL-QUERY #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE FIRST_NAME>
#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE LAST_NAME>
  :FROM #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLOYEE> :ORDER-BY
#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE LAST_NAME>)
 CLSQL-TESTS::COLLECT (CONCATENATE 'STRING CLSQL-TESTS::FORENAME " "
CLSQL-TESTS::SURNAME))
Expected value:
("Yuri Andropov" "Leonid Brezhnev" "Konstantin Chernenko" "Mikhail
Gorbachev" "Nikita Kruschev"
 "Vladimir Lenin" "Vladimir Putin" "Josef Stalin" "Leon Trotsky" "Boris
Yeltsin")
Actual value: #<SYSTEM::SIMPLE-SOURCE-PROGRAM-ERROR #x1A486CB5>.
Test :FDML/LOOP/2 failed
Form:
(LOOP CLSQL-TESTS::FOR (CLSQL-TESTS::ADDRESSID) CLSQL-TESTS::BEING
CLSQL-TESTS::EACH CLSQL-TESTS::TUPLE
 CLSQL-TESTS::IN
 (CLSQL-SYS:SQL-QUERY #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE ADDRESSID> :FROM
#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE ADDR>
  :ORDER-BY #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE ADDRESSID>)
 CLSQL-TESTS::COLLECT CLSQL-TESTS::ADDRESSID)
Expected value: (1 2)
Actual value: #<SYSTEM::SIMPLE-SOURCE-PROGRAM-ERROR #x1A48CF99>.
Test :FDML/LOOP/3 failed
Form:
(LOOP CLSQL-TESTS::FOR CLSQL-TESTS::ADDRESSID CLSQL-TESTS::BEING
CLSQL-TESTS::EACH CLSQL-TESTS::TUPLE
 CLSQL-TESTS::IN
 (CLSQL-SYS:SQL-QUERY #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE ADDRESSID> :FROM
#<CLSQL-SYS:SQL-IDENT-ATTRIBUTE ADDR>
  :ORDER-BY #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE ADDRESSID>)
 CLSQL-TESTS::COLLECT CLSQL-TESTS::ADDRESSID)
Expected value: (1 2)
Actual value: #<SYSTEM::SIMPLE-SOURCE-PROGRAM-ERROR #x1A4913BD>.
...
Test :OODML/ITERATION/3 failed
Form:
(LOOP CLSQL-TESTS::FOR (CLSQL-TESTS::E) CLSQL-TESTS::BEING THE
CLSQL-TESTS::RECORDS CLSQL-TESTS::IN
 (CLSQL-SYS:SQL-QUERY 'CLSQL-TESTS::EMPLOYEE :WHERE
  (CLSQL-SYS:SQL-< #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLID> 4) :ORDER-BY
  #<CLSQL-SYS:SQL-IDENT-ATTRIBUTE EMPLID>)
 CLSQL-TESTS::COLLECT (SLOT-VALUE CLSQL-TESTS::E 'CLSQL-TESTS::LAST-NAME))
Expected value: ("Lenin" "Stalin" "Trotsky")
Actual value: #<SYSTEM::SIMPLE-SOURCE-PROGRAM-ERROR #x1A4A25C5>.
...
4 out of 225 total tests failed: :FDML/LOOP/1, :FDML/LOOP/2,
   :FDML/LOOP/3, :OODML/ITERATION/3.

Thanks!

-- WBR, Yaroslav Kavenchuk.