208 lines
6.4 KiB
C
208 lines
6.4 KiB
C
/*
|
|
** 2017-10-13
|
|
**
|
|
** The author disclaims copyright to this source code. In place of
|
|
** a legal notice, here is a blessing:
|
|
**
|
|
** May you do good and not evil.
|
|
** May you find forgiveness for yourself and forgive others.
|
|
** May you share freely, never taking more than you give.
|
|
**
|
|
*************************************************************************
|
|
**
|
|
** This file contains extensions to the the "tclsqlite.c" module used for
|
|
** testing. Basically, all of the other "test_*.c" modules are linked
|
|
** into the enhanced tclsh used for testing (and named "testfixture" or
|
|
** "testfixture.exe") using logic encoded by this file.
|
|
**
|
|
** The code in this file used to be found in tclsqlite3.c, contained within
|
|
** #if SQLITE_TEST ... #endif. It is factored out into this separate module
|
|
** in an effort to keep the tclsqlite.c file pure.
|
|
*/
|
|
#include "sqlite3.h"
|
|
#if defined(INCLUDE_SQLITE_TCL_H)
|
|
# include "sqlite_tcl.h"
|
|
#else
|
|
# include "tcl.h"
|
|
# ifndef SQLITE_TCLAPI
|
|
# define SQLITE_TCLAPI
|
|
# endif
|
|
#endif
|
|
|
|
/* Needed for the setrlimit() system call on unix */
|
|
#if defined(unix)
|
|
#include <sys/resource.h>
|
|
#endif
|
|
|
|
/* Forward declaration */
|
|
static int SQLITE_TCLAPI load_testfixture_extensions(
|
|
ClientData cd,
|
|
Tcl_Interp *interp,
|
|
int objc,
|
|
Tcl_Obj *CONST objv[]
|
|
);
|
|
|
|
/*
|
|
** This routine is the primary export of this file.
|
|
**
|
|
** Configure the interpreter passed as the first argument to have access
|
|
** to the commands and linked variables that make up:
|
|
**
|
|
** * the [sqlite3] extension itself,
|
|
**
|
|
** * If SQLITE_TCLMD5 or SQLITE_TEST is defined, the Md5 commands, and
|
|
**
|
|
** * If SQLITE_TEST is set, the various test interfaces used by the Tcl
|
|
** test suite.
|
|
*/
|
|
const char *sqlite3TestInit(Tcl_Interp *interp){
|
|
extern int Sqlite3_Init(Tcl_Interp*);
|
|
extern int Sqliteconfig_Init(Tcl_Interp*);
|
|
extern int Sqlitetest1_Init(Tcl_Interp*);
|
|
extern int Sqlitetest2_Init(Tcl_Interp*);
|
|
extern int Sqlitetest3_Init(Tcl_Interp*);
|
|
extern int Sqlitetest4_Init(Tcl_Interp*);
|
|
extern int Sqlitetest5_Init(Tcl_Interp*);
|
|
extern int Sqlitetest6_Init(Tcl_Interp*);
|
|
extern int Sqlitetest7_Init(Tcl_Interp*);
|
|
extern int Sqlitetest8_Init(Tcl_Interp*);
|
|
extern int Sqlitetest9_Init(Tcl_Interp*);
|
|
extern int Sqlitetestasync_Init(Tcl_Interp*);
|
|
extern int Sqlitetest_autoext_Init(Tcl_Interp*);
|
|
extern int Sqlitetest_blob_Init(Tcl_Interp*);
|
|
extern int Sqlitetest_demovfs_Init(Tcl_Interp *);
|
|
extern int Sqlitetest_func_Init(Tcl_Interp*);
|
|
extern int Sqlitetest_hexio_Init(Tcl_Interp*);
|
|
extern int Sqlitetest_init_Init(Tcl_Interp*);
|
|
extern int Sqlitetest_malloc_Init(Tcl_Interp*);
|
|
extern int Sqlitetest_mutex_Init(Tcl_Interp*);
|
|
extern int Sqlitetestschema_Init(Tcl_Interp*);
|
|
extern int Sqlitetestsse_Init(Tcl_Interp*);
|
|
extern int Sqlitetesttclvar_Init(Tcl_Interp*);
|
|
extern int Sqlitetestfs_Init(Tcl_Interp*);
|
|
extern int SqlitetestThread_Init(Tcl_Interp*);
|
|
extern int SqlitetestOnefile_Init();
|
|
extern int SqlitetestOsinst_Init(Tcl_Interp*);
|
|
extern int Sqlitetestbackup_Init(Tcl_Interp*);
|
|
extern int Sqlitetestintarray_Init(Tcl_Interp*);
|
|
extern int Sqlitetestvfs_Init(Tcl_Interp *);
|
|
extern int Sqlitetestrtree_Init(Tcl_Interp*);
|
|
extern int Sqlitetestrtreedoc_Init(Tcl_Interp*);
|
|
extern int Sqlitequota_Init(Tcl_Interp*);
|
|
extern int Sqlitemultiplex_Init(Tcl_Interp*);
|
|
extern int SqliteSuperlock_Init(Tcl_Interp*);
|
|
extern int SqlitetestSyscall_Init(Tcl_Interp*);
|
|
#if defined(SQLITE_ENABLE_SESSION) && defined(SQLITE_ENABLE_PREUPDATE_HOOK)
|
|
extern int TestSession_Init(Tcl_Interp*);
|
|
#endif
|
|
extern int Md5_Init(Tcl_Interp*);
|
|
extern int Fts5tcl_Init(Tcl_Interp *);
|
|
extern int SqliteRbu_Init(Tcl_Interp*);
|
|
extern int Sqlitetesttcl_Init(Tcl_Interp*);
|
|
#if defined(SQLITE_ENABLE_FTS3) || defined(SQLITE_ENABLE_FTS4)
|
|
extern int Sqlitetestfts3_Init(Tcl_Interp *interp);
|
|
#endif
|
|
#ifdef SQLITE_ENABLE_ZIPVFS
|
|
extern int Zipvfs_Init(Tcl_Interp*);
|
|
#endif
|
|
extern int TestExpert_Init(Tcl_Interp*);
|
|
extern int Sqlitetest_window_Init(Tcl_Interp *);
|
|
extern int Sqlitetestvdbecov_Init(Tcl_Interp *);
|
|
|
|
Tcl_CmdInfo cmdInfo;
|
|
|
|
/* Since the primary use case for this binary is testing of SQLite,
|
|
** be sure to generate core files if we crash */
|
|
#if defined(unix)
|
|
{ struct rlimit x;
|
|
getrlimit(RLIMIT_CORE, &x);
|
|
x.rlim_cur = x.rlim_max;
|
|
setrlimit(RLIMIT_CORE, &x);
|
|
}
|
|
#endif /* unix */
|
|
|
|
if( Tcl_GetCommandInfo(interp, "sqlite3", &cmdInfo)==0 ){
|
|
Sqlite3_Init(interp);
|
|
}
|
|
#ifdef SQLITE_ENABLE_ZIPVFS
|
|
Zipvfs_Init(interp);
|
|
#endif
|
|
Md5_Init(interp);
|
|
Sqliteconfig_Init(interp);
|
|
Sqlitetest1_Init(interp);
|
|
Sqlitetest2_Init(interp);
|
|
Sqlitetest3_Init(interp);
|
|
Sqlitetest4_Init(interp);
|
|
Sqlitetest5_Init(interp);
|
|
Sqlitetest6_Init(interp);
|
|
Sqlitetest7_Init(interp);
|
|
Sqlitetest8_Init(interp);
|
|
Sqlitetest9_Init(interp);
|
|
Sqlitetestasync_Init(interp);
|
|
Sqlitetest_autoext_Init(interp);
|
|
Sqlitetest_blob_Init(interp);
|
|
Sqlitetest_demovfs_Init(interp);
|
|
Sqlitetest_func_Init(interp);
|
|
Sqlitetest_hexio_Init(interp);
|
|
Sqlitetest_init_Init(interp);
|
|
Sqlitetest_malloc_Init(interp);
|
|
Sqlitetest_mutex_Init(interp);
|
|
Sqlitetestschema_Init(interp);
|
|
Sqlitetesttclvar_Init(interp);
|
|
Sqlitetestfs_Init(interp);
|
|
SqlitetestThread_Init(interp);
|
|
SqlitetestOnefile_Init();
|
|
SqlitetestOsinst_Init(interp);
|
|
Sqlitetestbackup_Init(interp);
|
|
Sqlitetestintarray_Init(interp);
|
|
Sqlitetestvfs_Init(interp);
|
|
Sqlitetestrtree_Init(interp);
|
|
Sqlitetestrtreedoc_Init(interp);
|
|
Sqlitequota_Init(interp);
|
|
Sqlitemultiplex_Init(interp);
|
|
SqliteSuperlock_Init(interp);
|
|
SqlitetestSyscall_Init(interp);
|
|
#if defined(SQLITE_ENABLE_SESSION) && defined(SQLITE_ENABLE_PREUPDATE_HOOK)
|
|
TestSession_Init(interp);
|
|
#endif
|
|
Fts5tcl_Init(interp);
|
|
SqliteRbu_Init(interp);
|
|
Sqlitetesttcl_Init(interp);
|
|
|
|
#if defined(SQLITE_ENABLE_FTS3) || defined(SQLITE_ENABLE_FTS4)
|
|
Sqlitetestfts3_Init(interp);
|
|
#endif
|
|
TestExpert_Init(interp);
|
|
Sqlitetest_window_Init(interp);
|
|
Sqlitetestvdbecov_Init(interp);
|
|
|
|
Tcl_CreateObjCommand(
|
|
interp, "load_testfixture_extensions", load_testfixture_extensions,0,0
|
|
);
|
|
return 0;
|
|
}
|
|
|
|
/* tclcmd: load_testfixture_extensions
|
|
*/
|
|
static int SQLITE_TCLAPI load_testfixture_extensions(
|
|
ClientData cd,
|
|
Tcl_Interp *interp,
|
|
int objc,
|
|
Tcl_Obj *CONST objv[]
|
|
){
|
|
|
|
Tcl_Interp *slave;
|
|
if( objc!=2 ){
|
|
Tcl_WrongNumArgs(interp, 1, objv, "SLAVE");
|
|
return TCL_ERROR;
|
|
}
|
|
|
|
slave = Tcl_GetSlave(interp, Tcl_GetString(objv[1]));
|
|
if( !slave ){
|
|
return TCL_ERROR;
|
|
}
|
|
|
|
(void)sqlite3TestInit(slave);
|
|
return TCL_OK;
|
|
}
|