src/third_party/sqlite/src/test/threadtest1.c

   1 /*
   2 ** 2002 January 15
   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 ** This file implements a simple standalone program used to test whether
  13 ** or not the SQLite library is threadsafe.
  14 **
  15 ** Testing the thread safety of SQLite is difficult because there are very
  16 ** few places in the code that are even potentially unsafe, and those
  17 ** places execute for very short periods of time.  So even if the library
  18 ** is compiled with its mutexes disabled, it is likely to work correctly
  19 ** in a multi-threaded program most of the time.
  20 **
  21 ** This file is NOT part of the standard SQLite library.  It is used for
  22 ** testing only.
  23 */
  24 #include "sqlite.h"
  25 #include <pthread.h>
  26 #include <sched.h>
  27 #include <stdio.h>
  28 #include <stdlib.h>
  29 #include <string.h>
  30 #include <unistd.h>
  31
  32 /*
  33 ** Enable for tracing
  34 */
  35 static int verbose = 0;
  36
  37 /*
  38 ** Come here to die.
  39 */
  40 static void Exit(int rc){
  41   exit(rc);
  42 }
  43
  44 extern char *sqlite3_mprintf(const char *zFormat, ...);
  45 extern char *sqlite3_vmprintf(const char *zFormat, va_list);
  46
  47 /*
  48 ** When a lock occurs, yield.
  49 */
  50 static int db_is_locked(void *NotUsed, int iCount){
  51   /* sched_yield(); */
  52   if( verbose ) printf("BUSY %s #%d\n", (char*)NotUsed, iCount);
  53   usleep(100);
  54   return iCount<25;
  55 }
  56
  57 /*
  58 ** Used to accumulate query results by db_query()
  59 */
  60 struct QueryResult {
  61   const char *zFile;  /* Filename - used for error reporting */
  62   int nElem;          /* Number of used entries in azElem[] */
  63   int nAlloc;         /* Number of slots allocated for azElem[] */
  64   char **azElem;      /* The result of the query */
  65 };
  66
  67 /*
  68 ** The callback function for db_query
  69 */
  70 static int db_query_callback(
  71   void *pUser,     /* Pointer to the QueryResult structure */
  72   int nArg,        /* Number of columns in this result row */
  73   char **azArg,    /* Text of data in all columns */
  74   char **NotUsed   /* Names of the columns */
  75 ){
  76   struct QueryResult *pResult = (struct QueryResult*)pUser;
  77   int i;
  78   if( pResult->nElem + nArg >= pResult->nAlloc ){
  79     if( pResult->nAlloc==0 ){
  80       pResult->nAlloc = nArg+1;
  81     }else{
  82       pResult->nAlloc = pResult->nAlloc*2 + nArg + 1;
  83     }
  84     pResult->azElem = realloc( pResult->azElem, pResult->nAlloc*sizeof(char*));
  85     if( pResult->azElem==0 ){
  86       fprintf(stdout,"%s: malloc failed\n", pResult->zFile);
  87       return 1;
  88     }
  89   }
  90   if( azArg==0 ) return 0;
  91   for(i=0; i<nArg; i++){
  92     pResult->azElem[pResult->nElem++] =
  93         sqlite3_mprintf("%s",azArg[i] ? azArg[i] : "");
  94   }
  95   return 0;
  96 }
  97
  98 /*
  99 ** Execute a query against the database.  NULL values are returned
 100 ** as an empty string.  The list is terminated by a single NULL pointer.
 101 */
 102 char **db_query(sqlite *db, const char *zFile, const char *zFormat, ...){
 103   char *zSql;
 104   int rc;
 105   char *zErrMsg = 0;
 106   va_list ap;
 107   struct QueryResult sResult;
 108   va_start(ap, zFormat);
 109   zSql = sqlite3_vmprintf(zFormat, ap);
 110   va_end(ap);
 111   memset(&sResult, 0, sizeof(sResult));
 112   sResult.zFile = zFile;
 113   if( verbose ) printf("QUERY %s: %s\n", zFile, zSql);
 114   rc = sqlite3_exec(db, zSql, db_query_callback, &sResult, &zErrMsg);
 115   if( rc==SQLITE_SCHEMA ){
 116     if( zErrMsg ) free(zErrMsg);
 117     rc = sqlite3_exec(db, zSql, db_query_callback, &sResult, &zErrMsg);
 118   }
 119   if( verbose ) printf("DONE %s %s\n", zFile, zSql);
 120   if( zErrMsg ){
 121     fprintf(stdout,"%s: query failed: %s - %s\n", zFile, zSql, zErrMsg);
 122     free(zErrMsg);
 123     free(zSql);
 124     Exit(1);
 125   }
 126   sqlite3_free(zSql);
 127   if( sResult.azElem==0 ){
 128     db_query_callback(&sResult, 0, 0, 0);
 129   }
 130   sResult.azElem[sResult.nElem] = 0;
 131   return sResult.azElem;
 132 }
 133
 134 /*
 135 ** Execute an SQL statement.
 136 */
 137 void db_execute(sqlite *db, const char *zFile, const char *zFormat, ...){
 138   char *zSql;
 139   int rc;
 140   char *zErrMsg = 0;
 141   va_list ap;
 142   va_start(ap, zFormat);
 143   zSql = sqlite3_vmprintf(zFormat, ap);
 144   va_end(ap);
 145   if( verbose ) printf("EXEC %s: %s\n", zFile, zSql);
 146   do{
 147     rc = sqlite3_exec(db, zSql, 0, 0, &zErrMsg);
 148   }while( rc==SQLITE_BUSY );
 149   if( verbose ) printf("DONE %s: %s\n", zFile, zSql);
 150   if( zErrMsg ){
 151     fprintf(stdout,"%s: command failed: %s - %s\n", zFile, zSql, zErrMsg);
 152     free(zErrMsg);
 153     sqlite3_free(zSql);
 154     Exit(1);
 155   }
 156   sqlite3_free(zSql);
 157 }
 158
 159 /*
 160 ** Free the results of a db_query() call.
 161 */
 162 void db_query_free(char **az){
 163   int i;
 164   for(i=0; az[i]; i++){
 165     sqlite3_free(az[i]);
 166   }
 167   free(az);
 168 }
 169
 170 /*
 171 ** Check results
 172 */
 173 void db_check(const char *zFile, const char *zMsg, char **az, ...){
 174   va_list ap;
 175   int i;
 176   char *z;
 177   va_start(ap, az);
 178   for(i=0; (z = va_arg(ap, char*))!=0; i++){
 179     if( az[i]==0 || strcmp(az[i],z)!=0 ){
 180       fprintf(stdout,"%s: %s: bad result in column %d: %s\n",
 181         zFile, zMsg, i+1, az[i]);
 182       db_query_free(az);
 183       Exit(1);
 184     }
 185   }
 186   va_end(ap);
 187   db_query_free(az);
 188 }
 189
 190 pthread_mutex_t lock = PTHREAD_MUTEX_INITIALIZER;
 191 pthread_cond_t sig = PTHREAD_COND_INITIALIZER;
 192 int thread_cnt = 0;
 193
 194 static void *worker_bee(void *pArg){
 195   const char *zFilename = (char*)pArg;
 196   char *azErr;
 197   int i, cnt;
 198   int t = atoi(zFilename);
 199   char **az;
 200   sqlite *db;
 201
 202   pthread_mutex_lock(&lock);
 203   thread_cnt++;
 204   pthread_mutex_unlock(&lock);
 205   printf("%s: START\n", zFilename);
 206   fflush(stdout);
 207   for(cnt=0; cnt<10; cnt++){
 208     sqlite3_open(&zFilename[2], &db);
 209     if( db==0 ){
 210       fprintf(stdout,"%s: can't open\n", zFilename);
 211       Exit(1);
 212     }
 213     sqlite3_busy_handler(db, db_is_locked, zFilename);
 214     db_execute(db, zFilename, "CREATE TABLE t%d(a,b,c);", t);
 215     for(i=1; i<=100; i++){
 216       db_execute(db, zFilename, "INSERT INTO t%d VALUES(%d,%d,%d);",
 217          t, i, i*2, i*i);
 218     }
 219     az = db_query(db, zFilename, "SELECT count(*) FROM t%d", t);
 220     db_check(zFilename, "tX size", az, "100", 0);
 221     az = db_query(db, zFilename, "SELECT avg(b) FROM t%d", t);
 222     db_check(zFilename, "tX avg", az, "101", 0);
 223     db_execute(db, zFilename, "DELETE FROM t%d WHERE a>50", t);
 224     az = db_query(db, zFilename, "SELECT avg(b) FROM t%d", t);
 225     db_check(zFilename, "tX avg2", az, "51", 0);
 226     for(i=1; i<=50; i++){
 227       char z1[30], z2[30];
 228       az = db_query(db, zFilename, "SELECT b, c FROM t%d WHERE a=%d", t, i);
 229       sprintf(z1, "%d", i*2);
 230       sprintf(z2, "%d", i*i);
 231       db_check(zFilename, "readback", az, z1, z2, 0);
 232     }
 233     db_execute(db, zFilename, "DROP TABLE t%d;", t);
 234     sqlite3_close(db);
 235   }
 236   printf("%s: END\n", zFilename);
 237   /* unlink(zFilename); */
 238   fflush(stdout);
 239   pthread_mutex_lock(&lock);
 240   thread_cnt--;
 241   if( thread_cnt<=0 ){
 242     pthread_cond_signal(&sig);
 243   }
 244   pthread_mutex_unlock(&lock);
 245   return 0;
 246 }
 247
 248 int main(int argc, char **argv){
 249   char *zFile;
 250   int i, n;
 251   pthread_t id;
 252   if( argc>2 && strcmp(argv[1], "-v")==0 ){
 253     verbose = 1;
 254     argc--;
 255     argv++;
 256   }
 257   if( argc<2 || (n=atoi(argv[1]))<1 ) n = 10;
 258   for(i=0; i<n; i++){
 259     char zBuf[200];
 260     sprintf(zBuf, "testdb-%d", (i+1)/2);
 261     unlink(zBuf);
 262   }
 263   for(i=0; i<n; i++){
 264     zFile = sqlite3_mprintf("%d.testdb-%d", i%2+1, (i+2)/2);
 265     if( (i%2)==0 ){
 266       /* Remove both the database file and any old journal for the file
 267       ** being used by this thread and the next one. */
 268       char *zDb = &zFile[2];
 269       char *zJournal = sqlite3_mprintf("%s-journal", zDb);
 270       unlink(zDb);
 271       unlink(zJournal);
 272       free(zJournal);
 273     }
 274
 275     pthread_create(&id, 0, worker_bee, (void*)zFile);
 276     pthread_detach(id);
 277   }
 278   pthread_mutex_lock(&lock);
 279   while( thread_cnt>0 ){
 280     pthread_cond_wait(&sig, &lock);
 281   }
 282   pthread_mutex_unlock(&lock);
 283   for(i=0; i<n; i++){
 284     char zBuf[200];
 285     sprintf(zBuf, "testdb-%d", (i+1)/2);
 286     unlink(zBuf);
 287   }
 288   return 0;
 289 }