Common Lisp Package: CLSQL-TESTS

Regression tests for CLSQL.

README:

FUNCTION

Public

Undocumented

RUN-BENCHMARKS (&KEY (REPORT-STREAM *STANDARD-OUTPUT*) (SEXP-REPORT-STREAM NIL) (COUNT 10000))

RUN-BENCHMARKS-APPEND-REPORT-FILE (REPORT-FILE)

RUN-TESTS (&KEY (REPORT-STREAM *STANDARD-OUTPUT*) (SEXP-REPORT-STREAM NIL) (SUITES (APPEND (INTERNAL-SUITES) (DEFAULT-SUITES))))

RUN-TESTS-APPEND-REPORT-FILE (REPORT-FILE)

SUMMARIZE-TEST-REPORT (SEXP &OPTIONAL (OUTPUT *STANDARD-OUTPUT*))

TEST-CONNECT-TO-DATABASE (DB-TYPE SPEC)

Private

%DATASET-CLEANUP (NAME)

Run cleanup code associated with the given dataset.

%DATASET-DISPATCH (ARG)

For use with def-dataset and with-dataset, tries to DWIM.

%DATASET-INIT (NAME)

Run initialization code and fill database for given dataset.

DEFAULT-SUITES

The default list of tests to run.

INTERNAL-SUITES

The default internal suites that should run without any specific backend

RAPID-LOAD (TYPE &OPTIONAL (POSITION 0))

Rapid load for interactive testing.

Undocumented

%DO-TESTS (TEST-FORMS DB-TYPE)

%GET-INT (V)

BENCHMARK-INIT

BENCHMARK-SELECTS (N)

COMPUTE-TESTS-FOR-BACKEND (DB-TYPE DB-UNDERLYING-TYPE &KEY (SUITES (DEFAULT-SUITES)))

DB-TYPE-SPEC (DB-TYPE SPECS)

DO-BENCHMARKS-FOR-BACKEND (DB-TYPE SPEC COUNT)

DO-TESTS-FOR-BACKEND (DB-TYPE SPEC &KEY (SUITES (DEFAULT-SUITES)))

DO-TESTS-FOR-INTERNALS (&KEY (SUITES (INTERNAL-SUITES)))

DOUBLE-FLOAT-EQUAL (A B)

GENERIC-ERROR (E)

INITIALIZE-DS-ARTISTS

INITIALIZE-DS-EMPLOYEES

INITIALIZE-DS-NODES

LOAD-NECESSARY-SYSTEMS (SPECS)

PARSE-DOUBLE (NUM-STR)

READ-SPECS (&OPTIONAL (PATH *CONFIG-PATHNAME*))

RL

RLM

RLO

RUN-FUNCTION-APPEND-REPORT-FILE (FUNCTION REPORT-FILE)

SPEC-FN (DB-TYPE)

TRANSFORM-BIGINT-1 (I)

TRANSFORM-FLOAT-1 (I)

WRITE-REPORT-BANNER (REPORT-TYPE DB-TYPE STREAM DB-NAME)

MACRO

Private

DEF-DATASET (NAME &BODY BODY)

Define a dataset

WITH-DATASET (NAME &BODY BODY)

Use a dataset in a dynamic scope, e.g. a single test. 1. Before the body: * :setup is run * :data is loaded 2. Body 3. :cleanup always happens

SLOT-ACCESSOR

Private

Undocumented

AODBC-SPEC (OBJECT)

SETFAODBC-SPEC (NEW-VALUE OBJECT)

ARTIST_ID (OBJECT)

SETFARTIST_ID (NEW-VALUE OBJECT)

COMPANY-EMPLOYEES (OBJECT)

CREATETIME (OBJECT)

SETFCREATETIME (NEW-VALUE OBJECT)

DOC (OBJECT)

SETFDOC (NEW-VALUE OBJECT)

EMPLOYEE-ADDRESSES (OBJECT)

SETFEMPLOYEE-ADDRESSES (NEW-VALUE OBJECT)

EMPLOYEE-COMPANY (OBJECT)

SETFEMPLOYEE-COMPANY (NEW-VALUE OBJECT)

EMPLOYEE-EMAIL (OBJECT)

SETFEMPLOYEE-EMAIL (NEW-VALUE OBJECT)

EMPLOYEE-MANAGER (OBJECT)

SETFEMPLOYEE-MANAGER (NEW-VALUE OBJECT)

FIRST-NAME (OBJECT)

SETFFIRST-NAME (NEW-VALUE OBJECT)

GENRE (OBJECT)

SETFGENRE (NEW-VALUE OBJECT)

HEIGHT (OBJECT)

SETFHEIGHT (NEW-VALUE OBJECT)

ID (OBJECT)

SETFID (NEW-VALUE OBJECT)

LAST-NAME (OBJECT)

SETFLAST-NAME (NEW-VALUE OBJECT)

LOC (OBJECT)

SETFLOC (NEW-VALUE OBJECT)

MARRIED (OBJECT)

SETFMARRIED (NEW-VALUE OBJECT)

MODIFIEDTIME (OBJECT)

SETFMODIFIEDTIME (NEW-VALUE OBJECT)

MYSQL-SPEC (OBJECT)

SETFMYSQL-SPEC (NEW-VALUE OBJECT)

NAME (OBJECT)

SETFNAME (NEW-VALUE OBJECT)

NICK (OBJECT)

SETFNICK (NEW-VALUE OBJECT)

NODE-ID (OBJECT)

SETFNODE-ID (NEW-VALUE OBJECT)

ODBC-SPEC (OBJECT)

SETFODBC-SPEC (NEW-VALUE OBJECT)

ORACLE-SPEC (OBJECT)

SETFORACLE-SPEC (NEW-VALUE OBJECT)

POSTGRESQL-SOCKET-SPEC (OBJECT)

SETFPOSTGRESQL-SOCKET-SPEC (NEW-VALUE OBJECT)

POSTGRESQL-SOCKET3-SPEC (OBJECT)

SETFPOSTGRESQL-SOCKET3-SPEC (NEW-VALUE OBJECT)

POSTGRESQL-SPEC (OBJECT)

SETFPOSTGRESQL-SPEC (NEW-VALUE OBJECT)

PRESIDENT (OBJECT)

SETTING-ID (OBJECT)

SETFSETTING-ID (NEW-VALUE OBJECT)

SQLITE-SPEC (OBJECT)

SETFSQLITE-SPEC (NEW-VALUE OBJECT)

SQLITE3-SPEC (OBJECT)

SETFSQLITE3-SPEC (NEW-VALUE OBJECT)

SUBLOC-ID (OBJECT)

SETFSUBLOC-ID (NEW-VALUE OBJECT)

TESTTIME (OBJECT)

SETFTESTTIME (NEW-VALUE OBJECT)

TESTTIMETZ (OBJECT)

SETFTESTTIMETZ (NEW-VALUE OBJECT)

THEME-ID (OBJECT)

SETFTHEME-ID (NEW-VALUE OBJECT)

TITLE (OBJECT)

SETFTITLE (NEW-VALUE OBJECT)

USER-ID (OBJECT)

SETFUSER-ID (NEW-VALUE OBJECT)

VARS (OBJECT)

SETFVARS (NEW-VALUE OBJECT)

VARIABLE

Private

*DATASET-DEBUG-ON-ERROR*

If we get an error while loading or cleaning up the dataset, should we debug (T) or just print and quit.

*REPORT-STREAM*

Stream to send text report.

*SEXP-REPORT-STREAM*

Stream to send sexp report.

*TEST-FALSE-DATABASE-USER*

For testing ownership, a user that isn't the owner.

*TEST-REPORT-WIDTH*

Width of test report in ems.

Undocumented

*CONFIG-PATHNAME*

*CROSS-PLATFORM-DATETEST*

*DS-ARTISTS*

*DS-BASIC*

*DS-BIG*

*DS-BIGINT*

*DS-BIGTEXT*

*DS-DATETEST*

*DS-EMPLOYEES*

*DS-FDDL*

*DS-FDDL-PARSING-ODDITIES*

*DS-NODES*

*ERROR-COUNT*

*ERROR-LIST*

*RT-BASIC*

*RT-CONNECTION*

*RT-FDDL*

*RT-FDML*

*RT-I18N*

*RT-INTERNAL*

*RT-OODDL*

*RT-OODML*

*RT-POOL*

*RT-SYNTAX*

*RT-TIME*

*TEST-CONNECTION-DB-TYPE*

*TEST-CONNECTION-SPEC*

*TEST-DATABASE-TYPE*

*TEST-DATABASE-UNDERLYING-TYPE*

*TEST-DATABASE-USER*

*TEST-START-UTIME*

+ALL-DB-TYPES+

ADDRESS1

ADDRESS2

ADDRESS3

ARTIST1

BASENODE

COMPANY1

DERIVEDNODE1

DERIVEDNODE2

EMPLOYEE-ADDRESS1

EMPLOYEE-ADDRESS2

EMPLOYEE-ADDRESS3

EMPLOYEE-ADDRESS4

EMPLOYEE-ADDRESS5

EMPLOYEE-ADDRESS6

EMPLOYEE1

EMPLOYEE10

EMPLOYEE2

EMPLOYEE3

EMPLOYEE4

EMPLOYEE5

EMPLOYEE6

EMPLOYEE7

EMPLOYEE8

EMPLOYEE9

LOC1

LOC2

NODE

SETTING1

SETTING2

SUBLOC1

SUBLOC2

THEME1

THEME2

USER1

USER2

CLASS

Private

CONN-SPECS

Connection specs for CLSQL testing

Undocumented

ADDRESS

ARTIST

BENCH

BIG

COMPANY

DATETEST

DEFERRED-EMPLOYEE-ADDRESS

DUMMY-DATABASE

EMPLOYEE

EMPLOYEE-ADDRESS

LOCATION

NODE

PERSON

SETTING

SUBLOC

THEME

THING

USER