sl@0: /*
sl@0: ** 2007 March 29
sl@0: **
sl@0: ** The author disclaims copyright to this source code.  In place of
sl@0: ** a legal notice, here is a blessing:
sl@0: **
sl@0: **    May you do good and not evil.
sl@0: **    May you find forgiveness for yourself and forgive others.
sl@0: **    May you share freely, never taking more than you give.
sl@0: **
sl@0: *************************************************************************
sl@0: **
sl@0: ** This file contains obscure tests of the C-interface required
sl@0: ** for completeness. Test code is written in C for these cases
sl@0: ** as there is not much point in binding to Tcl.
sl@0: **
sl@0: ** $Id: test9.c,v 1.6 2008/07/11 13:53:55 drh Exp $
sl@0: */
sl@0: #include "sqliteInt.h"
sl@0: #include "tcl.h"
sl@0: #include <stdlib.h>
sl@0: #include <string.h>
sl@0: 
sl@0: /*
sl@0: ** c_collation_test
sl@0: */
sl@0: static int c_collation_test(
sl@0:   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
sl@0:   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
sl@0:   int objc,              /* Number of arguments */
sl@0:   Tcl_Obj *CONST objv[]  /* Command arguments */
sl@0: ){
sl@0:   const char *zErrFunction = "N/A";
sl@0:   sqlite3 *db;
sl@0: 
sl@0:   int rc;
sl@0:   if( objc!=1 ){
sl@0:     Tcl_WrongNumArgs(interp, 1, objv, "");
sl@0:     return TCL_ERROR;
sl@0:   }
sl@0: 
sl@0:   /* Open a database. */
sl@0:   rc = sqlite3_open(":memory:", &db);
sl@0:   if( rc!=SQLITE_OK ){
sl@0:     zErrFunction = "sqlite3_open";
sl@0:     goto error_out;
sl@0:   }
sl@0: 
sl@0:   rc = sqlite3_create_collation(db, "collate", 456, 0, 0);
sl@0:   if( rc!=SQLITE_MISUSE ){
sl@0:     sqlite3_close(db);
sl@0:     zErrFunction = "sqlite3_create_collation";
sl@0:     goto error_out;
sl@0:   }
sl@0: 
sl@0:   sqlite3_close(db);
sl@0:   return TCL_OK;
sl@0: 
sl@0: error_out:
sl@0:   Tcl_ResetResult(interp);
sl@0:   Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
sl@0:   return TCL_ERROR;
sl@0: }
sl@0: 
sl@0: /*
sl@0: ** c_realloc_test
sl@0: */
sl@0: static int c_realloc_test(
sl@0:   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
sl@0:   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
sl@0:   int objc,              /* Number of arguments */
sl@0:   Tcl_Obj *CONST objv[]  /* Command arguments */
sl@0: ){
sl@0:   void *p;
sl@0:   const char *zErrFunction = "N/A";
sl@0: 
sl@0:   if( objc!=1 ){
sl@0:     Tcl_WrongNumArgs(interp, 1, objv, "");
sl@0:     return TCL_ERROR;
sl@0:   }
sl@0: 
sl@0:   p = sqlite3_malloc(5);
sl@0:   if( !p ){
sl@0:     zErrFunction = "sqlite3_malloc";
sl@0:     goto error_out;
sl@0:   }
sl@0: 
sl@0:   /* Test that realloc()ing a block of memory to a negative size is
sl@0:   ** the same as free()ing that memory.
sl@0:   */
sl@0:   p = sqlite3_realloc(p, -1);
sl@0:   if( p ){
sl@0:     zErrFunction = "sqlite3_realloc";
sl@0:     goto error_out;
sl@0:   }
sl@0: 
sl@0:   return TCL_OK;
sl@0: 
sl@0: error_out:
sl@0:   Tcl_ResetResult(interp);
sl@0:   Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
sl@0:   return TCL_ERROR;
sl@0: }
sl@0: 
sl@0: 
sl@0: /*
sl@0: ** c_misuse_test
sl@0: */
sl@0: static int c_misuse_test(
sl@0:   ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
sl@0:   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
sl@0:   int objc,              /* Number of arguments */
sl@0:   Tcl_Obj *CONST objv[]  /* Command arguments */
sl@0: ){
sl@0:   const char *zErrFunction = "N/A";
sl@0:   sqlite3 *db = 0;
sl@0:   int rc;
sl@0: 
sl@0:   if( objc!=1 ){
sl@0:     Tcl_WrongNumArgs(interp, 1, objv, "");
sl@0:     return TCL_ERROR;
sl@0:   }
sl@0: 
sl@0:   /* Open a database. Then close it again. We need to do this so that
sl@0:   ** we have a "closed database handle" to pass to various API functions.
sl@0:   */
sl@0:   rc = sqlite3_open(":memory:", &db);
sl@0:   if( rc!=SQLITE_OK ){
sl@0:     zErrFunction = "sqlite3_open";
sl@0:     goto error_out;
sl@0:   }
sl@0:   sqlite3_close(db);
sl@0: 
sl@0: 
sl@0:   rc = sqlite3_errcode(db);
sl@0:   if( rc!=SQLITE_MISUSE ){
sl@0:     zErrFunction = "sqlite3_errcode";
sl@0:     goto error_out;
sl@0:   }
sl@0: 
sl@0:   rc = sqlite3_prepare(db, 0, 0, 0, 0);
sl@0:   if( rc!=SQLITE_MISUSE ){
sl@0:     zErrFunction = "sqlite3_prepare";
sl@0:     goto error_out;
sl@0:   }
sl@0: 
sl@0:   rc = sqlite3_prepare_v2(db, 0, 0, 0, 0);
sl@0:   if( rc!=SQLITE_MISUSE ){
sl@0:     zErrFunction = "sqlite3_prepare_v2";
sl@0:     goto error_out;
sl@0:   }
sl@0: 
sl@0: #ifndef SQLITE_OMIT_UTF16
sl@0:   rc = sqlite3_prepare16(db, 0, 0, 0, 0);
sl@0:   if( rc!=SQLITE_MISUSE ){
sl@0:     zErrFunction = "sqlite3_prepare16";
sl@0:     goto error_out;
sl@0:   }
sl@0:   rc = sqlite3_prepare16_v2(db, 0, 0, 0, 0);
sl@0:   if( rc!=SQLITE_MISUSE ){
sl@0:     zErrFunction = "sqlite3_prepare16_v2";
sl@0:     goto error_out;
sl@0:   }
sl@0: #endif
sl@0: 
sl@0:   return TCL_OK;
sl@0: 
sl@0: error_out:
sl@0:   Tcl_ResetResult(interp);
sl@0:   Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
sl@0:   return TCL_ERROR;
sl@0: }
sl@0: 
sl@0: /*
sl@0: ** Register commands with the TCL interpreter.
sl@0: */
sl@0: int Sqlitetest9_Init(Tcl_Interp *interp){
sl@0:   static struct {
sl@0:      char *zName;
sl@0:      Tcl_ObjCmdProc *xProc;
sl@0:      void *clientData;
sl@0:   } aObjCmd[] = {
sl@0:      { "c_misuse_test",    c_misuse_test, 0 },
sl@0:      { "c_realloc_test",   c_realloc_test, 0 },
sl@0:      { "c_collation_test", c_collation_test, 0 },
sl@0:   };
sl@0:   int i;
sl@0:   for(i=0; i<sizeof(aObjCmd)/sizeof(aObjCmd[0]); i++){
sl@0:     Tcl_CreateObjCommand(interp, aObjCmd[i].zName, 
sl@0:         aObjCmd[i].xProc, aObjCmd[i].clientData, 0);
sl@0:   }
sl@0:   return TCL_OK;
sl@0: }