src/test9.c

   1 /*
   2 ** 2007 March 29
   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 obscure tests of the C-interface required
  14 ** for completeness. Test code is written in C for these cases
  15 ** as there is not much point in binding to Tcl.
  16 */
  17 #include "sqliteInt.h"
  18 #include "tcl.h"
  19 #include <stdlib.h>
  20 #include <string.h>
  21
  22 /*
  23 ** c_collation_test
  24 */
  25 static int c_collation_test(
  26   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
  27   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
  28   int objc,              /* Number of arguments */
  29   Tcl_Obj *CONST objv[]  /* Command arguments */
  30 ){
  31   const char *zErrFunction = "N/A";
  32   sqlite3 *db;
  33
  34   int rc;
  35   if( objc!=1 ){
  36     Tcl_WrongNumArgs(interp, 1, objv, "");
  37     return TCL_ERROR;
  38   }
  39
  40   /* Open a database. */
  41   rc = sqlite3_open(":memory:", &db);
  42   if( rc!=SQLITE_OK ){
  43     zErrFunction = "sqlite3_open";
  44     goto error_out;
  45   }
  46
  47   rc = sqlite3_create_collation(db, "collate", 456, 0, 0);
  48   if( rc!=SQLITE_MISUSE ){
  49     sqlite3_close(db);
  50     zErrFunction = "sqlite3_create_collation";
  51     goto error_out;
  52   }
  53
  54   sqlite3_close(db);
  55   return TCL_OK;
  56
  57 error_out:
  58   Tcl_ResetResult(interp);
  59   Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
  60   return TCL_ERROR;
  61 }
  62
  63 /*
  64 ** c_realloc_test
  65 */
  66 static int c_realloc_test(
  67   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
  68   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
  69   int objc,              /* Number of arguments */
  70   Tcl_Obj *CONST objv[]  /* Command arguments */
  71 ){
  72   void *p;
  73   const char *zErrFunction = "N/A";
  74
  75   if( objc!=1 ){
  76     Tcl_WrongNumArgs(interp, 1, objv, "");
  77     return TCL_ERROR;
  78   }
  79
  80   p = sqlite3_malloc(5);
  81   if( !p ){
  82     zErrFunction = "sqlite3_malloc";
  83     goto error_out;
  84   }
  85
  86   /* Test that realloc()ing a block of memory to a negative size is
  87   ** the same as free()ing that memory.
  88   */
  89   p = sqlite3_realloc(p, -1);
  90   if( p ){
  91     zErrFunction = "sqlite3_realloc";
  92     goto error_out;
  93   }
  94
  95   return TCL_OK;
  96
  97 error_out:
  98   Tcl_ResetResult(interp);
  99   Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
 100   return TCL_ERROR;
 101 }
 102
 103
 104 /*
 105 ** c_misuse_test
 106 */
 107 static int c_misuse_test(
 108   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
 109   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
 110   int objc,              /* Number of arguments */
 111   Tcl_Obj *CONST objv[]  /* Command arguments */
 112 ){
 113   const char *zErrFunction = "N/A";
 114   sqlite3 *db = 0;
 115   sqlite3_stmt *pStmt;
 116   int rc;
 117
 118   if( objc!=1 ){
 119     Tcl_WrongNumArgs(interp, 1, objv, "");
 120     return TCL_ERROR;
 121   }
 122
 123   /* Open a database. Then close it again. We need to do this so that
 124   ** we have a "closed database handle" to pass to various API functions.
 125   */
 126   rc = sqlite3_open(":memory:", &db);
 127   if( rc!=SQLITE_OK ){
 128     zErrFunction = "sqlite3_open";
 129     goto error_out;
 130   }
 131   sqlite3_close(db);
 132
 133
 134   rc = sqlite3_errcode(db);
 135   if( rc!=SQLITE_MISUSE ){
 136     zErrFunction = "sqlite3_errcode";
 137     goto error_out;
 138   }
 139
 140   pStmt = (sqlite3_stmt*)1234;
 141   rc = sqlite3_prepare(db, 0, 0, &pStmt, 0);
 142   if( rc!=SQLITE_MISUSE ){
 143     zErrFunction = "sqlite3_prepare";
 144     goto error_out;
 145   }
 146   assert( pStmt==0 ); /* Verify that pStmt is zeroed even on a MISUSE error */
 147
 148   pStmt = (sqlite3_stmt*)1234;
 149   rc = sqlite3_prepare_v2(db, 0, 0, &pStmt, 0);
 150   if( rc!=SQLITE_MISUSE ){
 151     zErrFunction = "sqlite3_prepare_v2";
 152     goto error_out;
 153   }
 154   assert( pStmt==0 );
 155
 156 #ifndef SQLITE_OMIT_UTF16
 157   pStmt = (sqlite3_stmt*)1234;
 158   rc = sqlite3_prepare16(db, 0, 0, &pStmt, 0);
 159   if( rc!=SQLITE_MISUSE ){
 160     zErrFunction = "sqlite3_prepare16";
 161     goto error_out;
 162   }
 163   assert( pStmt==0 );
 164   pStmt = (sqlite3_stmt*)1234;
 165   rc = sqlite3_prepare16_v2(db, 0, 0, &pStmt, 0);
 166   if( rc!=SQLITE_MISUSE ){
 167     zErrFunction = "sqlite3_prepare16_v2";
 168     goto error_out;
 169   }
 170   assert( pStmt==0 );
 171 #endif
 172
 173   return TCL_OK;
 174
 175 error_out:
 176   Tcl_ResetResult(interp);
 177   Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
 178   return TCL_ERROR;
 179 }
 180
 181 /*
 182 ** Register commands with the TCL interpreter.
 183 */
 184 int Sqlitetest9_Init(Tcl_Interp *interp){
 185   static struct {
 186      char *zName;
 187      Tcl_ObjCmdProc *xProc;
 188      void *clientData;
 189   } aObjCmd[] = {
 190      { "c_misuse_test",    c_misuse_test, 0 },
 191      { "c_realloc_test",   c_realloc_test, 0 },
 192      { "c_collation_test", c_collation_test, 0 },
 193   };
 194   int i;
 195   for(i=0; i<sizeof(aObjCmd)/sizeof(aObjCmd[0]); i++){
 196     Tcl_CreateObjCommand(interp, aObjCmd[i].zName,
 197         aObjCmd[i].xProc, aObjCmd[i].clientData, 0);
 198   }
 199   return TCL_OK;
 200 }