1 /* 2 ** 2017-10-13 3 ** 4 ** The author disclaims copyright to this source code. In place of 5 ** a legal notice, here is a blessing: 6 ** 7 ** May you do good and not evil. 8 ** May you find forgiveness for yourself and forgive others. 9 ** May you share freely, never taking more than you give. 10 ** 11 ************************************************************************* 12 ** 13 ** This file contains extensions to the the "tclsqlite.c" module used for 14 ** testing. Basically, all of the other "test_*.c" modules are linked 15 ** into the enhanced tclsh used for testing (and named "testfixture" or 16 ** "testfixture.exe") using logic encoded by this file. 17 ** 18 ** The code in this file used to be found in tclsqlite3.c, contained within 19 ** #if SQLITE_TEST ... #endif. It is factored out into this separate module 20 ** in an effort to keep the tclsqlite.c file pure. 21 */ 22 #include "sqlite3.h" 23 #if defined(INCLUDE_SQLITE_TCL_H) 24 # include "sqlite_tcl.h" 25 #else 26 # include "tcl.h" 27 # ifndef SQLITE_TCLAPI 28 # define SQLITE_TCLAPI 29 # endif 30 #endif 31 32 /* Needed for the setrlimit() system call on unix */ 33 #if defined(unix) 34 #include <sys/resource.h> 35 #endif 36 37 /* Forward declaration */ 38 static int SQLITE_TCLAPI load_testfixture_extensions( 39 ClientData cd, 40 Tcl_Interp *interp, 41 int objc, 42 Tcl_Obj *CONST objv[] 43 ); 44 45 /* 46 ** This routine is the primary export of this file. 47 ** 48 ** Configure the interpreter passed as the first argument to have access 49 ** to the commands and linked variables that make up: 50 ** 51 ** * the [sqlite3] extension itself, 52 ** 53 ** * If SQLITE_TCLMD5 or SQLITE_TEST is defined, the Md5 commands, and 54 ** 55 ** * If SQLITE_TEST is set, the various test interfaces used by the Tcl 56 ** test suite. 57 */ 58 const char *sqlite3TestInit(Tcl_Interp *interp){ 59 extern int Sqlite3_Init(Tcl_Interp*); 60 extern int Sqliteconfig_Init(Tcl_Interp*); 61 extern int Sqlitetest1_Init(Tcl_Interp*); 62 extern int Sqlitetest2_Init(Tcl_Interp*); 63 extern int Sqlitetest3_Init(Tcl_Interp*); 64 extern int Sqlitetest4_Init(Tcl_Interp*); 65 extern int Sqlitetest5_Init(Tcl_Interp*); 66 extern int Sqlitetest6_Init(Tcl_Interp*); 67 extern int Sqlitetest7_Init(Tcl_Interp*); 68 extern int Sqlitetest8_Init(Tcl_Interp*); 69 extern int Sqlitetest9_Init(Tcl_Interp*); 70 extern int Sqlitetestasync_Init(Tcl_Interp*); 71 extern int Sqlitetest_autoext_Init(Tcl_Interp*); 72 extern int Sqlitetest_blob_Init(Tcl_Interp*); 73 extern int Sqlitetest_demovfs_Init(Tcl_Interp *); 74 extern int Sqlitetest_func_Init(Tcl_Interp*); 75 extern int Sqlitetest_hexio_Init(Tcl_Interp*); 76 extern int Sqlitetest_init_Init(Tcl_Interp*); 77 extern int Sqlitetest_malloc_Init(Tcl_Interp*); 78 extern int Sqlitetest_mutex_Init(Tcl_Interp*); 79 extern int Sqlitetestschema_Init(Tcl_Interp*); 80 extern int Sqlitetestsse_Init(Tcl_Interp*); 81 extern int Sqlitetesttclvar_Init(Tcl_Interp*); 82 extern int Sqlitetestfs_Init(Tcl_Interp*); 83 extern int SqlitetestThread_Init(Tcl_Interp*); 84 extern int SqlitetestOnefile_Init(); 85 extern int SqlitetestOsinst_Init(Tcl_Interp*); 86 extern int Sqlitetestbackup_Init(Tcl_Interp*); 87 extern int Sqlitetestintarray_Init(Tcl_Interp*); 88 extern int Sqlitetestvfs_Init(Tcl_Interp *); 89 extern int Sqlitetestrtree_Init(Tcl_Interp*); 90 extern int Sqlitequota_Init(Tcl_Interp*); 91 extern int Sqlitemultiplex_Init(Tcl_Interp*); 92 extern int SqliteSuperlock_Init(Tcl_Interp*); 93 extern int SqlitetestSyscall_Init(Tcl_Interp*); 94 #if defined(SQLITE_ENABLE_SESSION) && defined(SQLITE_ENABLE_PREUPDATE_HOOK) 95 extern int TestSession_Init(Tcl_Interp*); 96 #endif 97 extern int Md5_Init(Tcl_Interp*); 98 extern int Fts5tcl_Init(Tcl_Interp *); 99 extern int SqliteRbu_Init(Tcl_Interp*); 100 extern int Sqlitetesttcl_Init(Tcl_Interp*); 101 #if defined(SQLITE_ENABLE_FTS3) || defined(SQLITE_ENABLE_FTS4) 102 extern int Sqlitetestfts3_Init(Tcl_Interp *interp); 103 #endif 104 #ifdef SQLITE_ENABLE_ZIPVFS 105 extern int Zipvfs_Init(Tcl_Interp*); 106 #endif 107 extern int TestExpert_Init(Tcl_Interp*); 108 extern int Sqlitetest_window_Init(Tcl_Interp *); 109 110 Tcl_CmdInfo cmdInfo; 111 112 /* Since the primary use case for this binary is testing of SQLite, 113 ** be sure to generate core files if we crash */ 114 #if defined(unix) 115 { struct rlimit x; 116 getrlimit(RLIMIT_CORE, &x); 117 x.rlim_cur = x.rlim_max; 118 setrlimit(RLIMIT_CORE, &x); 119 } 120 #endif /* unix */ 121 122 if( Tcl_GetCommandInfo(interp, "sqlite3", &cmdInfo)==0 ){ 123 Sqlite3_Init(interp); 124 } 125 #ifdef SQLITE_ENABLE_ZIPVFS 126 Zipvfs_Init(interp); 127 #endif 128 Md5_Init(interp); 129 Sqliteconfig_Init(interp); 130 Sqlitetest1_Init(interp); 131 Sqlitetest2_Init(interp); 132 Sqlitetest3_Init(interp); 133 Sqlitetest4_Init(interp); 134 Sqlitetest5_Init(interp); 135 Sqlitetest6_Init(interp); 136 Sqlitetest7_Init(interp); 137 Sqlitetest8_Init(interp); 138 Sqlitetest9_Init(interp); 139 Sqlitetestasync_Init(interp); 140 Sqlitetest_autoext_Init(interp); 141 Sqlitetest_blob_Init(interp); 142 Sqlitetest_demovfs_Init(interp); 143 Sqlitetest_func_Init(interp); 144 Sqlitetest_hexio_Init(interp); 145 Sqlitetest_init_Init(interp); 146 Sqlitetest_malloc_Init(interp); 147 Sqlitetest_mutex_Init(interp); 148 Sqlitetestschema_Init(interp); 149 Sqlitetesttclvar_Init(interp); 150 Sqlitetestfs_Init(interp); 151 SqlitetestThread_Init(interp); 152 SqlitetestOnefile_Init(); 153 SqlitetestOsinst_Init(interp); 154 Sqlitetestbackup_Init(interp); 155 Sqlitetestintarray_Init(interp); 156 Sqlitetestvfs_Init(interp); 157 Sqlitetestrtree_Init(interp); 158 Sqlitequota_Init(interp); 159 Sqlitemultiplex_Init(interp); 160 SqliteSuperlock_Init(interp); 161 SqlitetestSyscall_Init(interp); 162 #if defined(SQLITE_ENABLE_SESSION) && defined(SQLITE_ENABLE_PREUPDATE_HOOK) 163 TestSession_Init(interp); 164 #endif 165 Fts5tcl_Init(interp); 166 SqliteRbu_Init(interp); 167 Sqlitetesttcl_Init(interp); 168 169 #if defined(SQLITE_ENABLE_FTS3) || defined(SQLITE_ENABLE_FTS4) 170 Sqlitetestfts3_Init(interp); 171 #endif 172 TestExpert_Init(interp); 173 Sqlitetest_window_Init(interp); 174 175 Tcl_CreateObjCommand( 176 interp, "load_testfixture_extensions", load_testfixture_extensions,0,0 177 ); 178 return 0; 179 } 180 181 /* tclcmd: load_testfixture_extensions 182 */ 183 static int SQLITE_TCLAPI load_testfixture_extensions( 184 ClientData cd, 185 Tcl_Interp *interp, 186 int objc, 187 Tcl_Obj *CONST objv[] 188 ){ 189 190 Tcl_Interp *slave; 191 if( objc!=2 ){ 192 Tcl_WrongNumArgs(interp, 1, objv, "SLAVE"); 193 return TCL_ERROR; 194 } 195 196 slave = Tcl_GetSlave(interp, Tcl_GetString(objv[1])); 197 if( !slave ){ 198 return TCL_ERROR; 199 } 200 201 (void)sqlite3TestInit(slave); 202 return TCL_OK; 203 } 204