/*
** 2007 March 29
**
** The author disclaims copyright to this source code. In place of
** a legal notice, here is a blessing:
**
** May you do good and not evil.
** May you find forgiveness for yourself and forgive others.
** May you share freely, never taking more than you give.
**
*************************************************************************
**
** This file contains obscure tests of the C-interface required
** for completeness. Test code is written in C for these cases
** as there is not much point in binding to Tcl.
*/
#include "sqliteInt.h"
#if defined(INCLUDE_SQLITE_TCL_H)
# include "sqlite_tcl.h"
#else
# include "tcl.h"
#endif
#include <stdlib.h>
#include <string.h>

/*
** c_collation_test
*/
static int SQLITE_TCLAPI c_collation_test(
 ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
 int objc, /* Number of arguments */
 Tcl_Obj *CONST objv[] /* Command arguments */
){
 const char *zErrFunction = "N/A";
 sqlite3 *db;

 int rc;
 if( objc!=1 ){
 Tcl_WrongNumArgs(interp, 1, objv, "");
 return TCL_ERROR;
 }

 /* Open a database. */
 rc = sqlite3_open(":memory:", &db);
 if( rc!=SQLITE_OK ){
 zErrFunction = "sqlite3_open";
 goto error_out;
 }

 rc = sqlite3_create_collation(db, "collate", 456, 0, 0);
 if( rc!=SQLITE_MISUSE ){
 sqlite3_close(db);
 zErrFunction = "sqlite3_create_collation";
 goto error_out;
 }

 sqlite3_close(db);
 return TCL_OK;

error_out:
 Tcl_ResetResult(interp);
 Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
 return TCL_ERROR;
}

/*
** c_realloc_test
*/
static int SQLITE_TCLAPI c_realloc_test(
 ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
 int objc, /* Number of arguments */
 Tcl_Obj *CONST objv[] /* Command arguments */
){
 void *p;
 const char *zErrFunction = "N/A";

 if( objc!=1 ){
 Tcl_WrongNumArgs(interp, 1, objv, "");
 return TCL_ERROR;
 }

 p = sqlite3_malloc(5);
 if( !p ){
 zErrFunction = "sqlite3_malloc";
 goto error_out;
 }

 /* Test that realloc()ing a block of memory to a negative size is
 ** the same as free()ing that memory.
 */
 p = sqlite3_realloc(p, -1);
 if( p ){
 zErrFunction = "sqlite3_realloc";
 goto error_out;
 }

 return TCL_OK;

error_out:
 Tcl_ResetResult(interp);
 Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
 return TCL_ERROR;
}


/*
** c_misuse_test
*/
static int SQLITE_TCLAPI c_misuse_test(
 ClientData clientData, /* Pointer to sqlite3_enable_XXX function */
 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */
 int objc, /* Number of arguments */
 Tcl_Obj *CONST objv[] /* Command arguments */
){
 const char *zErrFunction = "N/A";
 sqlite3 *db = 0;
 sqlite3_stmt *pStmt;
 int rc;

 if( objc!=1 ){
 Tcl_WrongNumArgs(interp, 1, objv, "");
 return TCL_ERROR;
 }

 /* Open a database. Then close it again. We need to do this so that
 ** we have a "closed database handle" to pass to various API functions.
 */
 rc = sqlite3_open(":memory:", &db);
 if( rc!=SQLITE_OK ){
 zErrFunction = "sqlite3_open";
 goto error_out;
 }
 sqlite3_close(db);


 rc = sqlite3_errcode(db);
 if( rc!=SQLITE_MISUSE ){
 zErrFunction = "sqlite3_errcode";
 goto error_out;
 }

 pStmt = (sqlite3_stmt*)1234;
 rc = sqlite3_prepare(db, 0, 0, &pStmt, 0);
 if( rc!=SQLITE_MISUSE ){
 zErrFunction = "sqlite3_prepare";
 goto error_out;
 }
 assert( pStmt==0 ); /* Verify that pStmt is zeroed even on a MISUSE error */

 pStmt = (sqlite3_stmt*)1234;
 rc = sqlite3_prepare_v2(db, 0, 0, &pStmt, 0);
 if( rc!=SQLITE_MISUSE ){
 zErrFunction = "sqlite3_prepare_v2";
 goto error_out;
 }
 assert( pStmt==0 );

#ifndef SQLITE_OMIT_UTF16
 pStmt = (sqlite3_stmt*)1234;
 rc = sqlite3_prepare16(db, 0, 0, &pStmt, 0);
 if( rc!=SQLITE_MISUSE ){
 zErrFunction = "sqlite3_prepare16";
 goto error_out;
 }
 assert( pStmt==0 );
 pStmt = (sqlite3_stmt*)1234;
 rc = sqlite3_prepare16_v2(db, 0, 0, &pStmt, 0);
 if( rc!=SQLITE_MISUSE ){
 zErrFunction = "sqlite3_prepare16_v2";
 goto error_out;
 }
 assert( pStmt==0 );
#endif

 return TCL_OK;

error_out:
 Tcl_ResetResult(interp);
 Tcl_AppendResult(interp, "Error testing function: ", zErrFunction, 0);
 return TCL_ERROR;
}

/*
** Register commands with the TCL interpreter.
*/
int Sqlitetest9_Init(Tcl_Interp *interp){
 static struct {
 char *zName;
 Tcl_ObjCmdProc *xProc;
 void *clientData;
 } aObjCmd[] = {
 { "c_misuse_test", c_misuse_test, 0 },
 { "c_realloc_test", c_realloc_test, 0 },
 { "c_collation_test", c_collation_test, 0 },
 };
 int i;
 for(i=0; i<sizeof(aObjCmd)/sizeof(aObjCmd[0]); i++){
 Tcl_CreateObjCommand(interp, aObjCmd[i].zName, 
 aObjCmd[i].xProc, aObjCmd[i].clientData, 0);
 }
 return TCL_OK;
}