/ Hex Artifact Content
Login

Artifact bea1e8cf52aa93695487badedd6e1886c321ea60:


0000: 2f 2a 0a 2a 2a 20 32 30 30 37 20 4d 61 72 63 68  /*.** 2007 March
0010: 20 32 39 0a 2a 2a 0a 2a 2a 20 54 68 65 20 61 75   29.**.** The au
0020: 74 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63  thor disclaims c
0030: 6f 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73  opyright to this
0040: 20 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49   source code.  I
0050: 6e 20 70 6c 61 63 65 20 6f 66 0a 2a 2a 20 61 20  n place of.** a 
0060: 6c 65 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65  legal notice, he
0070: 72 65 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67  re is a blessing
0080: 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d 61 79 20 79  :.**.**    May y
0090: 6f 75 20 64 6f 20 67 6f 6f 64 20 61 6e 64 20 6e  ou do good and n
00a0: 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20 20 20 20 4d  ot evil..**    M
00b0: 61 79 20 79 6f 75 20 66 69 6e 64 20 66 6f 72 67  ay you find forg
00c0: 69 76 65 6e 65 73 73 20 66 6f 72 20 79 6f 75 72  iveness for your
00d0: 73 65 6c 66 20 61 6e 64 20 66 6f 72 67 69 76 65  self and forgive
00e0: 20 6f 74 68 65 72 73 2e 0a 2a 2a 20 20 20 20 4d   others..**    M
00f0: 61 79 20 79 6f 75 20 73 68 61 72 65 20 66 72 65  ay you share fre
0100: 65 6c 79 2c 20 6e 65 76 65 72 20 74 61 6b 69 6e  ely, never takin
0110: 67 20 6d 6f 72 65 20 74 68 61 6e 20 79 6f 75 20  g more than you 
0120: 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a 2a 2a 2a 2a  give..**.*******
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0170: 2a 2a 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69  **.**.** This fi
0180: 6c 65 20 63 6f 6e 74 61 69 6e 73 20 6f 62 73 63  le contains obsc
0190: 75 72 65 20 74 65 73 74 73 20 6f 66 20 74 68 65  ure tests of the
01a0: 20 43 2d 69 6e 74 65 72 66 61 63 65 20 72 65 71   C-interface req
01b0: 75 69 72 65 64 0a 2a 2a 20 66 6f 72 20 63 6f 6d  uired.** for com
01c0: 70 6c 65 74 65 6e 65 73 73 2e 20 54 65 73 74 20  pleteness. Test 
01d0: 63 6f 64 65 20 69 73 20 77 72 69 74 74 65 6e 20  code is written 
01e0: 69 6e 20 43 20 66 6f 72 20 74 68 65 73 65 20 63  in C for these c
01f0: 61 73 65 73 0a 2a 2a 20 61 73 20 74 68 65 72 65  ases.** as there
0200: 20 69 73 20 6e 6f 74 20 6d 75 63 68 20 70 6f 69   is not much poi
0210: 6e 74 20 69 6e 20 62 69 6e 64 69 6e 67 20 74 6f  nt in binding to
0220: 20 54 63 6c 2e 0a 2a 2f 0a 23 69 6e 63 6c 75 64   Tcl..*/.#includ
0230: 65 20 22 73 71 6c 69 74 65 49 6e 74 2e 68 22 0a  e "sqliteInt.h".
0240: 23 69 6e 63 6c 75 64 65 20 22 74 63 6c 2e 68 22  #include "tcl.h"
0250: 0a 23 69 6e 63 6c 75 64 65 20 3c 73 74 64 6c 69  .#include <stdli
0260: 62 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 3c 73  b.h>.#include <s
0270: 74 72 69 6e 67 2e 68 3e 0a 0a 2f 2a 0a 2a 2a 20  tring.h>../*.** 
0280: 63 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 74 65 73 74  c_collation_test
0290: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 63  .*/.static int c
02a0: 5f 63 6f 6c 6c 61 74 69 6f 6e 5f 74 65 73 74 28  _collation_test(
02b0: 0a 20 20 43 6c 69 65 6e 74 44 61 74 61 20 63 6c  .  ClientData cl
02c0: 69 65 6e 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69  ientData, /* Poi
02d0: 6e 74 65 72 20 74 6f 20 73 71 6c 69 74 65 33 5f  nter to sqlite3_
02e0: 65 6e 61 62 6c 65 5f 58 58 58 20 66 75 6e 63 74  enable_XXX funct
02f0: 69 6f 6e 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74  ion */.  Tcl_Int
0300: 65 72 70 20 2a 69 6e 74 65 72 70 2c 20 20 20 20  erp *interp,    
0310: 2f 2a 20 54 68 65 20 54 43 4c 20 69 6e 74 65 72  /* The TCL inter
0320: 70 72 65 74 65 72 20 74 68 61 74 20 69 6e 76 6f  preter that invo
0330: 6b 65 64 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64  ked this command
0340: 20 2a 2f 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20   */.  int objc, 
0350: 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20               /* 
0360: 4e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  Number of argume
0370: 6e 74 73 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a  nts */.  Tcl_Obj
0380: 20 2a 43 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20   *CONST objv[]  
0390: 2f 2a 20 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d  /* Command argum
03a0: 65 6e 74 73 20 2a 2f 0a 29 7b 0a 20 20 63 6f 6e  ents */.){.  con
03b0: 73 74 20 63 68 61 72 20 2a 7a 45 72 72 46 75 6e  st char *zErrFun
03c0: 63 74 69 6f 6e 20 3d 20 22 4e 2f 41 22 3b 0a 20  ction = "N/A";. 
03d0: 20 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 0a 20   sqlite3 *db;.. 
03e0: 20 69 6e 74 20 72 63 3b 0a 20 20 69 66 28 20 6f   int rc;.  if( o
03f0: 62 6a 63 21 3d 31 20 29 7b 0a 20 20 20 20 54 63  bjc!=1 ){.    Tc
0400: 6c 5f 57 72 6f 6e 67 4e 75 6d 41 72 67 73 28 69  l_WrongNumArgs(i
0410: 6e 74 65 72 70 2c 20 31 2c 20 6f 62 6a 76 2c 20  nterp, 1, objv, 
0420: 22 22 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20  "");.    return 
0430: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a  TCL_ERROR;.  }..
0440: 20 20 2f 2a 20 4f 70 65 6e 20 61 20 64 61 74 61    /* Open a data
0450: 62 61 73 65 2e 20 2a 2f 0a 20 20 72 63 20 3d 20  base. */.  rc = 
0460: 73 71 6c 69 74 65 33 5f 6f 70 65 6e 28 22 3a 6d  sqlite3_open(":m
0470: 65 6d 6f 72 79 3a 22 2c 20 26 64 62 29 3b 0a 20  emory:", &db);. 
0480: 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f   if( rc!=SQLITE_
0490: 4f 4b 20 29 7b 0a 20 20 20 20 7a 45 72 72 46 75  OK ){.    zErrFu
04a0: 6e 63 74 69 6f 6e 20 3d 20 22 73 71 6c 69 74 65  nction = "sqlite
04b0: 33 5f 6f 70 65 6e 22 3b 0a 20 20 20 20 67 6f 74  3_open";.    got
04c0: 6f 20 65 72 72 6f 72 5f 6f 75 74 3b 0a 20 20 7d  o error_out;.  }
04d0: 0a 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33  ..  rc = sqlite3
04e0: 5f 63 72 65 61 74 65 5f 63 6f 6c 6c 61 74 69 6f  _create_collatio
04f0: 6e 28 64 62 2c 20 22 63 6f 6c 6c 61 74 65 22 2c  n(db, "collate",
0500: 20 34 35 36 2c 20 30 2c 20 30 29 3b 0a 20 20 69   456, 0, 0);.  i
0510: 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d 49  f( rc!=SQLITE_MI
0520: 53 55 53 45 20 29 7b 0a 20 20 20 20 73 71 6c 69  SUSE ){.    sqli
0530: 74 65 33 5f 63 6c 6f 73 65 28 64 62 29 3b 0a 20  te3_close(db);. 
0540: 20 20 20 7a 45 72 72 46 75 6e 63 74 69 6f 6e 20     zErrFunction 
0550: 3d 20 22 73 71 6c 69 74 65 33 5f 63 72 65 61 74  = "sqlite3_creat
0560: 65 5f 63 6f 6c 6c 61 74 69 6f 6e 22 3b 0a 20 20  e_collation";.  
0570: 20 20 67 6f 74 6f 20 65 72 72 6f 72 5f 6f 75 74    goto error_out
0580: 3b 0a 20 20 7d 0a 0a 20 20 73 71 6c 69 74 65 33  ;.  }..  sqlite3
0590: 5f 63 6c 6f 73 65 28 64 62 29 3b 0a 20 20 72 65  _close(db);.  re
05a0: 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 0a 65 72  turn TCL_OK;..er
05b0: 72 6f 72 5f 6f 75 74 3a 0a 20 20 54 63 6c 5f 52  ror_out:.  Tcl_R
05c0: 65 73 65 74 52 65 73 75 6c 74 28 69 6e 74 65 72  esetResult(inter
05d0: 70 29 3b 0a 20 20 54 63 6c 5f 41 70 70 65 6e 64  p);.  Tcl_Append
05e0: 52 65 73 75 6c 74 28 69 6e 74 65 72 70 2c 20 22  Result(interp, "
05f0: 45 72 72 6f 72 20 74 65 73 74 69 6e 67 20 66 75  Error testing fu
0600: 6e 63 74 69 6f 6e 3a 20 22 2c 20 7a 45 72 72 46  nction: ", zErrF
0610: 75 6e 63 74 69 6f 6e 2c 20 30 29 3b 0a 20 20 72  unction, 0);.  r
0620: 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b  eturn TCL_ERROR;
0630: 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 63 5f 72 65 61 6c  .}../*.** c_real
0640: 6c 6f 63 5f 74 65 73 74 0a 2a 2f 0a 73 74 61 74  loc_test.*/.stat
0650: 69 63 20 69 6e 74 20 63 5f 72 65 61 6c 6c 6f 63  ic int c_realloc
0660: 5f 74 65 73 74 28 0a 20 20 43 6c 69 65 6e 74 44  _test(.  ClientD
0670: 61 74 61 20 63 6c 69 65 6e 74 44 61 74 61 2c 20  ata clientData, 
0680: 2f 2a 20 50 6f 69 6e 74 65 72 20 74 6f 20 73 71  /* Pointer to sq
0690: 6c 69 74 65 33 5f 65 6e 61 62 6c 65 5f 58 58 58  lite3_enable_XXX
06a0: 20 66 75 6e 63 74 69 6f 6e 20 2a 2f 0a 20 20 54   function */.  T
06b0: 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72  cl_Interp *inter
06c0: 70 2c 20 20 20 20 2f 2a 20 54 68 65 20 54 43 4c  p,    /* The TCL
06d0: 20 69 6e 74 65 72 70 72 65 74 65 72 20 74 68 61   interpreter tha
06e0: 74 20 69 6e 76 6f 6b 65 64 20 74 68 69 73 20 63  t invoked this c
06f0: 6f 6d 6d 61 6e 64 20 2a 2f 0a 20 20 69 6e 74 20  ommand */.  int 
0700: 6f 62 6a 63 2c 20 20 20 20 20 20 20 20 20 20 20  objc,           
0710: 20 20 20 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20     /* Number of 
0720: 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 20 20 54  arguments */.  T
0730: 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62  cl_Obj *CONST ob
0740: 6a 76 5b 5d 20 20 2f 2a 20 43 6f 6d 6d 61 6e 64  jv[]  /* Command
0750: 20 61 72 67 75 6d 65 6e 74 73 20 2a 2f 0a 29 7b   arguments */.){
0760: 0a 20 20 76 6f 69 64 20 2a 70 3b 0a 20 20 63 6f  .  void *p;.  co
0770: 6e 73 74 20 63 68 61 72 20 2a 7a 45 72 72 46 75  nst char *zErrFu
0780: 6e 63 74 69 6f 6e 20 3d 20 22 4e 2f 41 22 3b 0a  nction = "N/A";.
0790: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 29  .  if( objc!=1 )
07a0: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
07b0: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
07c0: 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20  , objv, "");.   
07d0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
07e0: 52 3b 0a 20 20 7d 0a 0a 20 20 70 20 3d 20 73 71  R;.  }..  p = sq
07f0: 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 28 35 29 3b  lite3_malloc(5);
0800: 0a 20 20 69 66 28 20 21 70 20 29 7b 0a 20 20 20  .  if( !p ){.   
0810: 20 7a 45 72 72 46 75 6e 63 74 69 6f 6e 20 3d 20   zErrFunction = 
0820: 22 73 71 6c 69 74 65 33 5f 6d 61 6c 6c 6f 63 22  "sqlite3_malloc"
0830: 3b 0a 20 20 20 20 67 6f 74 6f 20 65 72 72 6f 72  ;.    goto error
0840: 5f 6f 75 74 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20  _out;.  }..  /* 
0850: 54 65 73 74 20 74 68 61 74 20 72 65 61 6c 6c 6f  Test that reallo
0860: 63 28 29 69 6e 67 20 61 20 62 6c 6f 63 6b 20 6f  c()ing a block o
0870: 66 20 6d 65 6d 6f 72 79 20 74 6f 20 61 20 6e 65  f memory to a ne
0880: 67 61 74 69 76 65 20 73 69 7a 65 20 69 73 0a 20  gative size is. 
0890: 20 2a 2a 20 74 68 65 20 73 61 6d 65 20 61 73 20   ** the same as 
08a0: 66 72 65 65 28 29 69 6e 67 20 74 68 61 74 20 6d  free()ing that m
08b0: 65 6d 6f 72 79 2e 0a 20 20 2a 2f 0a 20 20 70 20  emory..  */.  p 
08c0: 3d 20 73 71 6c 69 74 65 33 5f 72 65 61 6c 6c 6f  = sqlite3_reallo
08d0: 63 28 70 2c 20 2d 31 29 3b 0a 20 20 69 66 28 20  c(p, -1);.  if( 
08e0: 70 20 29 7b 0a 20 20 20 20 7a 45 72 72 46 75 6e  p ){.    zErrFun
08f0: 63 74 69 6f 6e 20 3d 20 22 73 71 6c 69 74 65 33  ction = "sqlite3
0900: 5f 72 65 61 6c 6c 6f 63 22 3b 0a 20 20 20 20 67  _realloc";.    g
0910: 6f 74 6f 20 65 72 72 6f 72 5f 6f 75 74 3b 0a 20  oto error_out;. 
0920: 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20 54 43 4c   }..  return TCL
0930: 5f 4f 4b 3b 0a 0a 65 72 72 6f 72 5f 6f 75 74 3a  _OK;..error_out:
0940: 0a 20 20 54 63 6c 5f 52 65 73 65 74 52 65 73 75  .  Tcl_ResetResu
0950: 6c 74 28 69 6e 74 65 72 70 29 3b 0a 20 20 54 63  lt(interp);.  Tc
0960: 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69  l_AppendResult(i
0970: 6e 74 65 72 70 2c 20 22 45 72 72 6f 72 20 74 65  nterp, "Error te
0980: 73 74 69 6e 67 20 66 75 6e 63 74 69 6f 6e 3a 20  sting function: 
0990: 22 2c 20 7a 45 72 72 46 75 6e 63 74 69 6f 6e 2c  ", zErrFunction,
09a0: 20 30 29 3b 0a 20 20 72 65 74 75 72 6e 20 54 43   0);.  return TC
09b0: 4c 5f 45 52 52 4f 52 3b 0a 7d 0a 0a 0a 2f 2a 0a  L_ERROR;.}.../*.
09c0: 2a 2a 20 63 5f 6d 69 73 75 73 65 5f 74 65 73 74  ** c_misuse_test
09d0: 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e 74 20 63  .*/.static int c
09e0: 5f 6d 69 73 75 73 65 5f 74 65 73 74 28 0a 20 20  _misuse_test(.  
09f0: 43 6c 69 65 6e 74 44 61 74 61 20 63 6c 69 65 6e  ClientData clien
0a00: 74 44 61 74 61 2c 20 2f 2a 20 50 6f 69 6e 74 65  tData, /* Pointe
0a10: 72 20 74 6f 20 73 71 6c 69 74 65 33 5f 65 6e 61  r to sqlite3_ena
0a20: 62 6c 65 5f 58 58 58 20 66 75 6e 63 74 69 6f 6e  ble_XXX function
0a30: 20 2a 2f 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70   */.  Tcl_Interp
0a40: 20 2a 69 6e 74 65 72 70 2c 20 20 20 20 2f 2a 20   *interp,    /* 
0a50: 54 68 65 20 54 43 4c 20 69 6e 74 65 72 70 72 65  The TCL interpre
0a60: 74 65 72 20 74 68 61 74 20 69 6e 76 6f 6b 65 64  ter that invoked
0a70: 20 74 68 69 73 20 63 6f 6d 6d 61 6e 64 20 2a 2f   this command */
0a80: 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 20 20 20 20  .  int objc,    
0a90: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 4e 75 6d            /* Num
0aa0: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
0ab0: 20 2a 2f 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43   */.  Tcl_Obj *C
0ac0: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 20 20 2f 2a 20  ONST objv[]  /* 
0ad0: 43 6f 6d 6d 61 6e 64 20 61 72 67 75 6d 65 6e 74  Command argument
0ae0: 73 20 2a 2f 0a 29 7b 0a 20 20 63 6f 6e 73 74 20  s */.){.  const 
0af0: 63 68 61 72 20 2a 7a 45 72 72 46 75 6e 63 74 69  char *zErrFuncti
0b00: 6f 6e 20 3d 20 22 4e 2f 41 22 3b 0a 20 20 73 71  on = "N/A";.  sq
0b10: 6c 69 74 65 33 20 2a 64 62 20 3d 20 30 3b 0a 20  lite3 *db = 0;. 
0b20: 20 73 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70   sqlite3_stmt *p
0b30: 53 74 6d 74 3b 0a 20 20 69 6e 74 20 72 63 3b 0a  Stmt;.  int rc;.
0b40: 0a 20 20 69 66 28 20 6f 62 6a 63 21 3d 31 20 29  .  if( objc!=1 )
0b50: 7b 0a 20 20 20 20 54 63 6c 5f 57 72 6f 6e 67 4e  {.    Tcl_WrongN
0b60: 75 6d 41 72 67 73 28 69 6e 74 65 72 70 2c 20 31  umArgs(interp, 1
0b70: 2c 20 6f 62 6a 76 2c 20 22 22 29 3b 0a 20 20 20  , objv, "");.   
0b80: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
0b90: 52 3b 0a 20 20 7d 0a 0a 20 20 2f 2a 20 4f 70 65  R;.  }..  /* Ope
0ba0: 6e 20 61 20 64 61 74 61 62 61 73 65 2e 20 54 68  n a database. Th
0bb0: 65 6e 20 63 6c 6f 73 65 20 69 74 20 61 67 61 69  en close it agai
0bc0: 6e 2e 20 57 65 20 6e 65 65 64 20 74 6f 20 64 6f  n. We need to do
0bd0: 20 74 68 69 73 20 73 6f 20 74 68 61 74 0a 20 20   this so that.  
0be0: 2a 2a 20 77 65 20 68 61 76 65 20 61 20 22 63 6c  ** we have a "cl
0bf0: 6f 73 65 64 20 64 61 74 61 62 61 73 65 20 68 61  osed database ha
0c00: 6e 64 6c 65 22 20 74 6f 20 70 61 73 73 20 74 6f  ndle" to pass to
0c10: 20 76 61 72 69 6f 75 73 20 41 50 49 20 66 75 6e   various API fun
0c20: 63 74 69 6f 6e 73 2e 0a 20 20 2a 2f 0a 20 20 72  ctions..  */.  r
0c30: 63 20 3d 20 73 71 6c 69 74 65 33 5f 6f 70 65 6e  c = sqlite3_open
0c40: 28 22 3a 6d 65 6d 6f 72 79 3a 22 2c 20 26 64 62  (":memory:", &db
0c50: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c  );.  if( rc!=SQL
0c60: 49 54 45 5f 4f 4b 20 29 7b 0a 20 20 20 20 7a 45  ITE_OK ){.    zE
0c70: 72 72 46 75 6e 63 74 69 6f 6e 20 3d 20 22 73 71  rrFunction = "sq
0c80: 6c 69 74 65 33 5f 6f 70 65 6e 22 3b 0a 20 20 20  lite3_open";.   
0c90: 20 67 6f 74 6f 20 65 72 72 6f 72 5f 6f 75 74 3b   goto error_out;
0ca0: 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 63  .  }.  sqlite3_c
0cb0: 6c 6f 73 65 28 64 62 29 3b 0a 0a 0a 20 20 72 63  lose(db);...  rc
0cc0: 20 3d 20 73 71 6c 69 74 65 33 5f 65 72 72 63 6f   = sqlite3_errco
0cd0: 64 65 28 64 62 29 3b 0a 20 20 69 66 28 20 72 63  de(db);.  if( rc
0ce0: 21 3d 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20  !=SQLITE_MISUSE 
0cf0: 29 7b 0a 20 20 20 20 7a 45 72 72 46 75 6e 63 74  ){.    zErrFunct
0d00: 69 6f 6e 20 3d 20 22 73 71 6c 69 74 65 33 5f 65  ion = "sqlite3_e
0d10: 72 72 63 6f 64 65 22 3b 0a 20 20 20 20 67 6f 74  rrcode";.    got
0d20: 6f 20 65 72 72 6f 72 5f 6f 75 74 3b 0a 20 20 7d  o error_out;.  }
0d30: 0a 0a 20 20 70 53 74 6d 74 20 3d 20 28 73 71 6c  ..  pStmt = (sql
0d40: 69 74 65 33 5f 73 74 6d 74 2a 29 31 32 33 34 3b  ite3_stmt*)1234;
0d50: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  .  rc = sqlite3_
0d60: 70 72 65 70 61 72 65 28 64 62 2c 20 30 2c 20 30  prepare(db, 0, 0
0d70: 2c 20 26 70 53 74 6d 74 2c 20 30 29 3b 0a 20 20  , &pStmt, 0);.  
0d80: 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45 5f 4d  if( rc!=SQLITE_M
0d90: 49 53 55 53 45 20 29 7b 0a 20 20 20 20 7a 45 72  ISUSE ){.    zEr
0da0: 72 46 75 6e 63 74 69 6f 6e 20 3d 20 22 73 71 6c  rFunction = "sql
0db0: 69 74 65 33 5f 70 72 65 70 61 72 65 22 3b 0a 20  ite3_prepare";. 
0dc0: 20 20 20 67 6f 74 6f 20 65 72 72 6f 72 5f 6f 75     goto error_ou
0dd0: 74 3b 0a 20 20 7d 0a 20 20 61 73 73 65 72 74 28  t;.  }.  assert(
0de0: 20 70 53 74 6d 74 3d 3d 30 20 29 3b 20 2f 2a 20   pStmt==0 ); /* 
0df0: 56 65 72 69 66 79 20 74 68 61 74 20 70 53 74 6d  Verify that pStm
0e00: 74 20 69 73 20 7a 65 72 6f 65 64 20 65 76 65 6e  t is zeroed even
0e10: 20 6f 6e 20 61 20 4d 49 53 55 53 45 20 65 72 72   on a MISUSE err
0e20: 6f 72 20 2a 2f 0a 0a 20 20 70 53 74 6d 74 20 3d  or */..  pStmt =
0e30: 20 28 73 71 6c 69 74 65 33 5f 73 74 6d 74 2a 29   (sqlite3_stmt*)
0e40: 31 32 33 34 3b 0a 20 20 72 63 20 3d 20 73 71 6c  1234;.  rc = sql
0e50: 69 74 65 33 5f 70 72 65 70 61 72 65 5f 76 32 28  ite3_prepare_v2(
0e60: 64 62 2c 20 30 2c 20 30 2c 20 26 70 53 74 6d 74  db, 0, 0, &pStmt
0e70: 2c 20 30 29 3b 0a 20 20 69 66 28 20 72 63 21 3d  , 0);.  if( rc!=
0e80: 53 51 4c 49 54 45 5f 4d 49 53 55 53 45 20 29 7b  SQLITE_MISUSE ){
0e90: 0a 20 20 20 20 7a 45 72 72 46 75 6e 63 74 69 6f  .    zErrFunctio
0ea0: 6e 20 3d 20 22 73 71 6c 69 74 65 33 5f 70 72 65  n = "sqlite3_pre
0eb0: 70 61 72 65 5f 76 32 22 3b 0a 20 20 20 20 67 6f  pare_v2";.    go
0ec0: 74 6f 20 65 72 72 6f 72 5f 6f 75 74 3b 0a 20 20  to error_out;.  
0ed0: 7d 0a 20 20 61 73 73 65 72 74 28 20 70 53 74 6d  }.  assert( pStm
0ee0: 74 3d 3d 30 20 29 3b 0a 0a 23 69 66 6e 64 65 66  t==0 );..#ifndef
0ef0: 20 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46   SQLITE_OMIT_UTF
0f00: 31 36 0a 20 20 70 53 74 6d 74 20 3d 20 28 73 71  16.  pStmt = (sq
0f10: 6c 69 74 65 33 5f 73 74 6d 74 2a 29 31 32 33 34  lite3_stmt*)1234
0f20: 3b 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33  ;.  rc = sqlite3
0f30: 5f 70 72 65 70 61 72 65 31 36 28 64 62 2c 20 30  _prepare16(db, 0
0f40: 2c 20 30 2c 20 26 70 53 74 6d 74 2c 20 30 29 3b  , 0, &pStmt, 0);
0f50: 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54  .  if( rc!=SQLIT
0f60: 45 5f 4d 49 53 55 53 45 20 29 7b 0a 20 20 20 20  E_MISUSE ){.    
0f70: 7a 45 72 72 46 75 6e 63 74 69 6f 6e 20 3d 20 22  zErrFunction = "
0f80: 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65 31  sqlite3_prepare1
0f90: 36 22 3b 0a 20 20 20 20 67 6f 74 6f 20 65 72 72  6";.    goto err
0fa0: 6f 72 5f 6f 75 74 3b 0a 20 20 7d 0a 20 20 61 73  or_out;.  }.  as
0fb0: 73 65 72 74 28 20 70 53 74 6d 74 3d 3d 30 20 29  sert( pStmt==0 )
0fc0: 3b 0a 20 20 70 53 74 6d 74 20 3d 20 28 73 71 6c  ;.  pStmt = (sql
0fd0: 69 74 65 33 5f 73 74 6d 74 2a 29 31 32 33 34 3b  ite3_stmt*)1234;
0fe0: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  .  rc = sqlite3_
0ff0: 70 72 65 70 61 72 65 31 36 5f 76 32 28 64 62 2c  prepare16_v2(db,
1000: 20 30 2c 20 30 2c 20 26 70 53 74 6d 74 2c 20 30   0, 0, &pStmt, 0
1010: 29 3b 0a 20 20 69 66 28 20 72 63 21 3d 53 51 4c  );.  if( rc!=SQL
1020: 49 54 45 5f 4d 49 53 55 53 45 20 29 7b 0a 20 20  ITE_MISUSE ){.  
1030: 20 20 7a 45 72 72 46 75 6e 63 74 69 6f 6e 20 3d    zErrFunction =
1040: 20 22 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72   "sqlite3_prepar
1050: 65 31 36 5f 76 32 22 3b 0a 20 20 20 20 67 6f 74  e16_v2";.    got
1060: 6f 20 65 72 72 6f 72 5f 6f 75 74 3b 0a 20 20 7d  o error_out;.  }
1070: 0a 20 20 61 73 73 65 72 74 28 20 70 53 74 6d 74  .  assert( pStmt
1080: 3d 3d 30 20 29 3b 0a 23 65 6e 64 69 66 0a 0a 20  ==0 );.#endif.. 
1090: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
10a0: 0a 65 72 72 6f 72 5f 6f 75 74 3a 0a 20 20 54 63  .error_out:.  Tc
10b0: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e  l_ResetResult(in
10c0: 74 65 72 70 29 3b 0a 20 20 54 63 6c 5f 41 70 70  terp);.  Tcl_App
10d0: 65 6e 64 52 65 73 75 6c 74 28 69 6e 74 65 72 70  endResult(interp
10e0: 2c 20 22 45 72 72 6f 72 20 74 65 73 74 69 6e 67  , "Error testing
10f0: 20 66 75 6e 63 74 69 6f 6e 3a 20 22 2c 20 7a 45   function: ", zE
1100: 72 72 46 75 6e 63 74 69 6f 6e 2c 20 30 29 3b 0a  rrFunction, 0);.
1110: 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52    return TCL_ERR
1120: 4f 52 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 52 65 67  OR;.}../*.** Reg
1130: 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20 77  ister commands w
1140: 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e 74 65  ith the TCL inte
1150: 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e 74 20  rpreter..*/.int 
1160: 53 71 6c 69 74 65 74 65 73 74 39 5f 49 6e 69 74  Sqlitetest9_Init
1170: 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74  (Tcl_Interp *int
1180: 65 72 70 29 7b 0a 20 20 73 74 61 74 69 63 20 73  erp){.  static s
1190: 74 72 75 63 74 20 7b 0a 20 20 20 20 20 63 68 61  truct {.     cha
11a0: 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 20 54  r *zName;.     T
11b0: 63 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 2a 78  cl_ObjCmdProc *x
11c0: 50 72 6f 63 3b 0a 20 20 20 20 20 76 6f 69 64 20  Proc;.     void 
11d0: 2a 63 6c 69 65 6e 74 44 61 74 61 3b 0a 20 20 7d  *clientData;.  }
11e0: 20 61 4f 62 6a 43 6d 64 5b 5d 20 3d 20 7b 0a 20   aObjCmd[] = {. 
11f0: 20 20 20 20 7b 20 22 63 5f 6d 69 73 75 73 65 5f      { "c_misuse_
1200: 74 65 73 74 22 2c 20 20 20 20 63 5f 6d 69 73 75  test",    c_misu
1210: 73 65 5f 74 65 73 74 2c 20 30 20 7d 2c 0a 20 20  se_test, 0 },.  
1220: 20 20 20 7b 20 22 63 5f 72 65 61 6c 6c 6f 63 5f     { "c_realloc_
1230: 74 65 73 74 22 2c 20 20 20 63 5f 72 65 61 6c 6c  test",   c_reall
1240: 6f 63 5f 74 65 73 74 2c 20 30 20 7d 2c 0a 20 20  oc_test, 0 },.  
1250: 20 20 20 7b 20 22 63 5f 63 6f 6c 6c 61 74 69 6f     { "c_collatio
1260: 6e 5f 74 65 73 74 22 2c 20 63 5f 63 6f 6c 6c 61  n_test", c_colla
1270: 74 69 6f 6e 5f 74 65 73 74 2c 20 30 20 7d 2c 0a  tion_test, 0 },.
1280: 20 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20    };.  int i;.  
1290: 66 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f  for(i=0; i<sizeo
12a0: 66 28 61 4f 62 6a 43 6d 64 29 2f 73 69 7a 65 6f  f(aObjCmd)/sizeo
12b0: 66 28 61 4f 62 6a 43 6d 64 5b 30 5d 29 3b 20 69  f(aObjCmd[0]); i
12c0: 2b 2b 29 7b 0a 20 20 20 20 54 63 6c 5f 43 72 65  ++){.    Tcl_Cre
12d0: 61 74 65 4f 62 6a 43 6f 6d 6d 61 6e 64 28 69 6e  ateObjCommand(in
12e0: 74 65 72 70 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d  terp, aObjCmd[i]
12f0: 2e 7a 4e 61 6d 65 2c 20 0a 20 20 20 20 20 20 20  .zName, .       
1300: 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 78 50 72 6f   aObjCmd[i].xPro
1310: 63 2c 20 61 4f 62 6a 43 6d 64 5b 69 5d 2e 63 6c  c, aObjCmd[i].cl
1320: 69 65 6e 74 44 61 74 61 2c 20 30 29 3b 0a 20 20  ientData, 0);.  
1330: 7d 0a 20 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f  }.  return TCL_O
1340: 4b 3b 0a 7d 0a                                   K;.}.