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 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 }