/*

** 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.

**

** $Id: test9.c,v 1.6 2008/07/11 13:53:55 drh Exp $

*/

#include "sqliteInt.h"

#include "tcl.h"

#include <stdlib.h>

#include <string.h>

/*

** c_collation_test

*/

static int 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 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 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;

  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;

  }

  rc = sqlite3_prepare(db, 0, 0, 0, 0);

  if( rc!=SQLITE_MISUSE ){

    zErrFunction = "sqlite3_prepare";

    goto error_out;

  }

  rc = sqlite3_prepare_v2(db, 0, 0, 0, 0);

  if( rc!=SQLITE_MISUSE ){

    zErrFunction = "sqlite3_prepare_v2";

    goto error_out;

  }

#ifndef SQLITE_OMIT_UTF16

  rc = sqlite3_prepare16(db, 0, 0, 0, 0);

  if( rc!=SQLITE_MISUSE ){

    zErrFunction = "sqlite3_prepare16";

    goto error_out;

  }

  rc = sqlite3_prepare16_v2(db, 0, 0, 0, 0);

  if( rc!=SQLITE_MISUSE ){

    zErrFunction = "sqlite3_prepare16_v2";

    goto error_out;

  }

#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;

}