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