src/test_tclsh.c

   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 Sqlitetest8_Init(Tcl_Interp*);
  68   extern int Sqlitetest9_Init(Tcl_Interp*);
  69   extern int Sqlitetestasync_Init(Tcl_Interp*);
  70   extern int Sqlitetest_autoext_Init(Tcl_Interp*);
  71   extern int Sqlitetest_blob_Init(Tcl_Interp*);
  72   extern int Sqlitetest_demovfs_Init(Tcl_Interp *);
  73   extern int Sqlitetest_func_Init(Tcl_Interp*);
  74   extern int Sqlitetest_hexio_Init(Tcl_Interp*);
  75   extern int Sqlitetest_init_Init(Tcl_Interp*);
  76   extern int Sqlitetest_malloc_Init(Tcl_Interp*);
  77   extern int Sqlitetest_mutex_Init(Tcl_Interp*);
  78   extern int Sqlitetestschema_Init(Tcl_Interp*);
  79   extern int Sqlitetestsse_Init(Tcl_Interp*);
  80   extern int Sqlitetesttclvar_Init(Tcl_Interp*);
  81   extern int Sqlitetestfs_Init(Tcl_Interp*);
  82   extern int SqlitetestThread_Init(Tcl_Interp*);
  83   extern int SqlitetestOnefile_Init();
  84   extern int SqlitetestOsinst_Init(Tcl_Interp*);
  85   extern int Sqlitetestbackup_Init(Tcl_Interp*);
  86   extern int Sqlitetestintarray_Init(Tcl_Interp*);
  87   extern int Sqlitetestvfs_Init(Tcl_Interp *);
  88   extern int Sqlitetestrtree_Init(Tcl_Interp*);
  89   extern int Sqlitetestrtreedoc_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   extern int Sqlitetestvdbecov_Init(Tcl_Interp *);
 110   extern int TestRecover_Init(Tcl_Interp*);
 111   extern int Sqlitetestintck_Init(Tcl_Interp*);
 112
 113   Tcl_CmdInfo cmdInfo;
 114
 115   /* Since the primary use case for this binary is testing of SQLite,
 116   ** be sure to generate core files if we crash */
 117 #if defined(unix)
 118   { struct rlimit x;
 119     getrlimit(RLIMIT_CORE, &x);
 120     x.rlim_cur = x.rlim_max;
 121     setrlimit(RLIMIT_CORE, &x);
 122   }
 123 #endif /* unix */
 124
 125   if( Tcl_GetCommandInfo(interp, "sqlite3", &cmdInfo)==0 ){
 126     Sqlite3_Init(interp);
 127   }
 128 #ifdef SQLITE_ENABLE_ZIPVFS
 129   Zipvfs_Init(interp);
 130 #endif
 131   Md5_Init(interp);
 132   Sqliteconfig_Init(interp);
 133   Sqlitetest1_Init(interp);
 134   Sqlitetest2_Init(interp);
 135   Sqlitetest3_Init(interp);
 136   Sqlitetest4_Init(interp);
 137   Sqlitetest5_Init(interp);
 138   Sqlitetest6_Init(interp);
 139   Sqlitetest8_Init(interp);
 140   Sqlitetest9_Init(interp);
 141   Sqlitetestasync_Init(interp);
 142   Sqlitetest_autoext_Init(interp);
 143   Sqlitetest_blob_Init(interp);
 144   Sqlitetest_demovfs_Init(interp);
 145   Sqlitetest_func_Init(interp);
 146   Sqlitetest_hexio_Init(interp);
 147   Sqlitetest_init_Init(interp);
 148   Sqlitetest_malloc_Init(interp);
 149   Sqlitetest_mutex_Init(interp);
 150   Sqlitetestschema_Init(interp);
 151   Sqlitetesttclvar_Init(interp);
 152   Sqlitetestfs_Init(interp);
 153   SqlitetestThread_Init(interp);
 154   SqlitetestOnefile_Init();
 155   SqlitetestOsinst_Init(interp);
 156   Sqlitetestbackup_Init(interp);
 157   Sqlitetestintarray_Init(interp);
 158   Sqlitetestvfs_Init(interp);
 159   Sqlitetestrtree_Init(interp);
 160   Sqlitetestrtreedoc_Init(interp);
 161   Sqlitequota_Init(interp);
 162   Sqlitemultiplex_Init(interp);
 163   SqliteSuperlock_Init(interp);
 164   SqlitetestSyscall_Init(interp);
 165 #if defined(SQLITE_ENABLE_SESSION) && defined(SQLITE_ENABLE_PREUPDATE_HOOK)
 166   TestSession_Init(interp);
 167 #endif
 168   Fts5tcl_Init(interp);
 169   SqliteRbu_Init(interp);
 170   Sqlitetesttcl_Init(interp);
 171
 172 #if defined(SQLITE_ENABLE_FTS3) || defined(SQLITE_ENABLE_FTS4)
 173   Sqlitetestfts3_Init(interp);
 174 #endif
 175   TestExpert_Init(interp);
 176   Sqlitetest_window_Init(interp);
 177   Sqlitetestvdbecov_Init(interp);
 178   TestRecover_Init(interp);
 179   Sqlitetestintck_Init(interp);
 180
 181   Tcl_CreateObjCommand(
 182       interp, "load_testfixture_extensions", load_testfixture_extensions,0,0
 183   );
 184   return 0;
 185 }
 186
 187 /* tclcmd:   load_testfixture_extensions
 188 */
 189 static int SQLITE_TCLAPI load_testfixture_extensions(
 190   ClientData cd,
 191   Tcl_Interp *interp,
 192   int objc,
 193   Tcl_Obj *CONST objv[]
 194 ){
 195
 196   Tcl_Interp *slave;
 197   if( objc!=2 ){
 198     Tcl_WrongNumArgs(interp, 1, objv, "SLAVE");
 199     return TCL_ERROR;
 200   }
 201
 202   slave = Tcl_GetSlave(interp, Tcl_GetString(objv[1]));
 203   if( !slave ){
 204     return TCL_ERROR;
 205   }
 206
 207   (void)sqlite3TestInit(slave);
 208   return TCL_OK;
 209 }