/ Hex Artifact Content
Login

Artifact 162a1cea2105a2c460a3f39fa6919617b562a288:


0000: 2f 2a 0a 2a 2a 20 32 30 30 31 20 53 65 70 74 65  /*.** 2001 Septe
0010: 6d 62 65 72 20 31 35 0a 2a 2a 0a 2a 2a 20 54 68  mber 15.**.** Th
0020: 65 20 61 75 74 68 6f 72 20 64 69 73 63 6c 61 69  e author disclai
0030: 6d 73 20 63 6f 70 79 72 69 67 68 74 20 74 6f 20  ms copyright to 
0040: 74 68 69 73 20 73 6f 75 72 63 65 20 63 6f 64 65  this source code
0050: 2e 20 20 49 6e 20 70 6c 61 63 65 20 6f 66 0a 2a  .  In place of.*
0060: 2a 20 61 20 6c 65 67 61 6c 20 6e 6f 74 69 63 65  * a legal notice
0070: 2c 20 68 65 72 65 20 69 73 20 61 20 62 6c 65 73  , here is a bles
0080: 73 69 6e 67 3a 0a 2a 2a 0a 2a 2a 20 20 20 20 4d  sing:.**.**    M
0090: 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20 61  ay you do good a
00a0: 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 2a 2a 20  nd not evil..** 
00b0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00c0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00d0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00e0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 2a 2a 20  give others..** 
00f0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65     May you share
0100: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74   freely, never t
0110: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20  aking more than 
0120: 79 6f 75 20 67 69 76 65 2e 0a 2a 2a 0a 2a 2a 2a  you 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 2a 2a 2a 2a 0a 2a 2a 20 43 6f 64 65 20 66  ******.** Code f
0180: 6f 72 20 74 65 73 74 69 6e 67 20 74 68 65 20 75  or testing the u
0190: 74 66 2e 63 20 6d 6f 64 75 6c 65 20 69 6e 20 53  tf.c module in S
01a0: 51 4c 69 74 65 2e 20 20 54 68 69 73 20 63 6f 64  QLite.  This cod
01b0: 65 0a 2a 2a 20 69 73 20 6e 6f 74 20 69 6e 63 6c  e.** is not incl
01c0: 75 64 65 64 20 69 6e 20 74 68 65 20 53 51 4c 69  uded in the SQLi
01d0: 74 65 20 6c 69 62 72 61 72 79 2e 20 20 49 74 20  te library.  It 
01e0: 69 73 20 75 73 65 64 20 66 6f 72 20 61 75 74 6f  is used for auto
01f0: 6d 61 74 65 64 0a 2a 2a 20 74 65 73 74 69 6e 67  mated.** testing
0200: 20 6f 66 20 74 68 65 20 53 51 4c 69 74 65 20 6c   of the SQLite l
0210: 69 62 72 61 72 79 2e 20 53 70 65 63 69 66 69 63  ibrary. Specific
0220: 61 6c 6c 79 2c 20 74 68 65 20 63 6f 64 65 20 69  ally, the code i
0230: 6e 20 74 68 69 73 20 66 69 6c 65 0a 2a 2a 20 69  n this file.** i
0240: 73 20 75 73 65 64 20 66 6f 72 20 74 65 73 74 69  s used for testi
0250: 6e 67 20 74 68 65 20 53 51 4c 69 74 65 20 72 6f  ng the SQLite ro
0260: 75 74 69 6e 65 73 20 66 6f 72 20 63 6f 6e 76 65  utines for conve
0270: 72 74 69 6e 67 20 62 65 74 77 65 65 6e 0a 2a 2a  rting between.**
0280: 20 74 68 65 20 76 61 72 69 6f 75 73 20 73 75 70   the various sup
0290: 70 6f 72 74 65 64 20 75 6e 69 63 6f 64 65 20 65  ported unicode e
02a0: 6e 63 6f 64 69 6e 67 73 2e 0a 2a 2a 0a 2a 2a 20  ncodings..**.** 
02b0: 24 49 64 3a 20 74 65 73 74 35 2e 63 2c 76 20 31  $Id: test5.c,v 1
02c0: 2e 32 32 20 32 30 30 38 2f 30 38 2f 31 32 20 31  .22 2008/08/12 1
02d0: 35 3a 30 34 3a 35 39 20 64 61 6e 69 65 6c 6b 31  5:04:59 danielk1
02e0: 39 37 37 20 45 78 70 20 24 0a 2a 2f 0a 23 69 6e  977 Exp $.*/.#in
02f0: 63 6c 75 64 65 20 22 73 71 6c 69 74 65 49 6e 74  clude "sqliteInt
0300: 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 22 76 64  .h".#include "vd
0310: 62 65 49 6e 74 2e 68 22 0a 23 69 6e 63 6c 75 64  beInt.h".#includ
0320: 65 20 22 74 63 6c 2e 68 22 0a 23 69 6e 63 6c 75  e "tcl.h".#inclu
0330: 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a 23 69  de <stdlib.h>.#i
0340: 6e 63 6c 75 64 65 20 3c 73 74 72 69 6e 67 2e 68  nclude <string.h
0350: 3e 0a 0a 2f 2a 0a 2a 2a 20 54 68 65 20 66 69 72  >../*.** The fir
0360: 73 74 20 61 72 67 75 6d 65 6e 74 20 69 73 20 61  st argument is a
0370: 20 54 43 4c 20 55 54 46 2d 38 20 73 74 72 69 6e   TCL UTF-8 strin
0380: 67 2e 20 52 65 74 75 72 6e 20 74 68 65 20 62 79  g. Return the by
0390: 74 65 20 61 72 72 61 79 0a 2a 2a 20 6f 62 6a 65  te array.** obje
03a0: 63 74 20 77 69 74 68 20 74 68 65 20 65 6e 63 6f  ct with the enco
03b0: 64 65 64 20 72 65 70 72 65 73 65 6e 74 61 74 69  ded representati
03c0: 6f 6e 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67  on of the string
03d0: 2c 20 69 6e 63 6c 75 64 69 6e 67 0a 2a 2a 20 74  , including.** t
03e0: 68 65 20 4e 55 4c 4c 20 74 65 72 6d 69 6e 61 74  he NULL terminat
03f0: 6f 72 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 69 6e  or..*/.static in
0400: 74 20 62 69 6e 61 72 69 7a 65 28 0a 20 20 76 6f  t binarize(.  vo
0410: 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61 2c  id * clientData,
0420: 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69  .  Tcl_Interp *i
0430: 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62 6a  nterp,.  int obj
0440: 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43 4f  c,.  Tcl_Obj *CO
0450: 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20 20  NST objv[].){.  
0460: 69 6e 74 20 6c 65 6e 3b 0a 20 20 63 68 61 72 20  int len;.  char 
0470: 2a 62 79 74 65 73 3b 0a 20 20 54 63 6c 5f 4f 62  *bytes;.  Tcl_Ob
0480: 6a 20 2a 70 52 65 74 3b 0a 20 20 61 73 73 65 72  j *pRet;.  asser
0490: 74 28 6f 62 6a 63 3d 3d 32 29 3b 0a 0a 20 20 62  t(objc==2);..  b
04a0: 79 74 65 73 20 3d 20 54 63 6c 5f 47 65 74 53 74  ytes = Tcl_GetSt
04b0: 72 69 6e 67 46 72 6f 6d 4f 62 6a 28 6f 62 6a 76  ringFromObj(objv
04c0: 5b 31 5d 2c 20 26 6c 65 6e 29 3b 0a 20 20 70 52  [1], &len);.  pR
04d0: 65 74 20 3d 20 54 63 6c 5f 4e 65 77 42 79 74 65  et = Tcl_NewByte
04e0: 41 72 72 61 79 4f 62 6a 28 28 75 38 2a 29 62 79  ArrayObj((u8*)by
04f0: 74 65 73 2c 20 6c 65 6e 2b 31 29 3b 0a 20 20 54  tes, len+1);.  T
0500: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
0510: 69 6e 74 65 72 70 2c 20 70 52 65 74 29 3b 0a 20  interp, pRet);. 
0520: 20 72 65 74 75 72 6e 20 54 43 4c 5f 4f 4b 3b 0a   return TCL_OK;.
0530: 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73 61 67 65 3a 20  }../*.** Usage: 
0540: 74 65 73 74 5f 76 61 6c 75 65 5f 6f 76 65 72 68  test_value_overh
0550: 65 61 64 20 3c 72 65 70 65 61 74 2d 63 6f 75 6e  ead <repeat-coun
0560: 74 3e 20 3c 64 6f 2d 63 61 6c 6c 73 3e 2e 0a 2a  t> <do-calls>..*
0570: 2a 0a 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e  *.** This routin
0580: 65 20 69 73 20 75 73 65 64 20 74 6f 20 74 65 73  e is used to tes
0590: 74 20 74 68 65 20 6f 76 65 72 68 65 61 64 20 6f  t the overhead o
05a0: 66 20 63 61 6c 6c 73 20 74 6f 0a 2a 2a 20 73 71  f calls to.** sq
05b0: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 74 65 78 74  lite3_value_text
05c0: 28 29 2c 20 6f 6e 20 61 20 76 61 6c 75 65 20 74  (), on a value t
05d0: 68 61 74 20 63 6f 6e 74 61 69 6e 73 20 61 20 55  hat contains a U
05e0: 54 46 2d 38 20 73 74 72 69 6e 67 2e 20 54 68 65  TF-8 string. The
05f0: 20 69 64 65 61 0a 2a 2a 20 69 73 20 74 6f 20 66   idea.** is to f
0600: 69 67 75 72 65 20 6f 75 74 20 77 68 65 74 68 65  igure out whethe
0610: 72 20 6f 72 20 6e 6f 74 20 69 74 20 69 73 20 61  r or not it is a
0620: 20 70 72 6f 62 6c 65 6d 20 74 6f 20 75 73 65 20   problem to use 
0630: 73 71 6c 69 74 65 33 5f 76 61 6c 75 65 0a 2a 2a  sqlite3_value.**
0640: 20 73 74 72 75 63 74 75 72 65 73 20 77 69 74 68   structures with
0650: 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65   collation seque
0660: 6e 63 65 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 2a  nce functions..*
0670: 2a 0a 2a 2a 20 49 66 20 3c 64 6f 2d 63 61 6c 6c  *.** If <do-call
0680: 73 3e 20 69 73 20 30 2c 20 74 68 65 6e 20 74 68  s> is 0, then th
0690: 65 20 63 61 6c 6c 73 20 74 6f 20 73 71 6c 69 74  e calls to sqlit
06a0: 65 33 5f 76 61 6c 75 65 5f 74 65 78 74 28 29 20  e3_value_text() 
06b0: 61 72 65 20 6e 6f 74 0a 2a 2a 20 61 63 74 75 61  are not.** actua
06c0: 6c 6c 79 20 6d 61 64 65 2e 0a 2a 2f 0a 73 74 61  lly made..*/.sta
06d0: 74 69 63 20 69 6e 74 20 74 65 73 74 5f 76 61 6c  tic int test_val
06e0: 75 65 5f 6f 76 65 72 68 65 61 64 28 0a 20 20 76  ue_overhead(.  v
06f0: 6f 69 64 20 2a 20 63 6c 69 65 6e 74 44 61 74 61  oid * clientData
0700: 2c 0a 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a  ,.  Tcl_Interp *
0710: 69 6e 74 65 72 70 2c 0a 20 20 69 6e 74 20 6f 62  interp,.  int ob
0720: 6a 63 2c 0a 20 20 54 63 6c 5f 4f 62 6a 20 2a 43  jc,.  Tcl_Obj *C
0730: 4f 4e 53 54 20 6f 62 6a 76 5b 5d 0a 29 7b 0a 20  ONST objv[].){. 
0740: 20 69 6e 74 20 64 6f 5f 63 61 6c 6c 73 3b 0a 20   int do_calls;. 
0750: 20 69 6e 74 20 72 65 70 65 61 74 5f 63 6f 75 6e   int repeat_coun
0760: 74 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 4d 65  t;.  int i;.  Me
0770: 6d 20 76 61 6c 3b 0a 20 20 63 6f 6e 73 74 20 63  m val;.  const c
0780: 68 61 72 20 2a 7a 56 61 6c 3b 0a 0a 20 20 69 66  har *zVal;..  if
0790: 28 20 6f 62 6a 63 21 3d 33 20 29 7b 0a 20 20 20  ( objc!=3 ){.   
07a0: 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73 75 6c   Tcl_AppendResul
07b0: 74 28 69 6e 74 65 72 70 2c 20 22 77 72 6f 6e 67  t(interp, "wrong
07c0: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
07d0: 62 65 20 5c 22 22 2c 0a 20 20 20 20 20 20 20 20  be \"",.        
07e0: 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 46 72 6f  Tcl_GetStringFro
07f0: 6d 4f 62 6a 28 6f 62 6a 76 5b 30 5d 2c 20 30 29  mObj(objv[0], 0)
0800: 2c 20 22 20 3c 72 65 70 65 61 74 2d 63 6f 75 6e  , " <repeat-coun
0810: 74 3e 20 3c 64 6f 2d 63 61 6c 6c 73 3e 22 2c 20  t> <do-calls>", 
0820: 30 29 3b 0a 20 20 20 20 72 65 74 75 72 6e 20 54  0);.    return T
0830: 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a 0a 20  CL_ERROR;.  }.. 
0840: 20 69 66 28 20 54 63 6c 5f 47 65 74 49 6e 74 46   if( Tcl_GetIntF
0850: 72 6f 6d 4f 62 6a 28 69 6e 74 65 72 70 2c 20 6f  romObj(interp, o
0860: 62 6a 76 5b 31 5d 2c 20 26 72 65 70 65 61 74 5f  bjv[1], &repeat_
0870: 63 6f 75 6e 74 29 20 29 20 72 65 74 75 72 6e 20  count) ) return 
0880: 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 69 66 28  TCL_ERROR;.  if(
0890: 20 54 63 6c 5f 47 65 74 49 6e 74 46 72 6f 6d 4f   Tcl_GetIntFromO
08a0: 62 6a 28 69 6e 74 65 72 70 2c 20 6f 62 6a 76 5b  bj(interp, objv[
08b0: 32 5d 2c 20 26 64 6f 5f 63 61 6c 6c 73 29 20 29  2], &do_calls) )
08c0: 20 72 65 74 75 72 6e 20 54 43 4c 5f 45 52 52 4f   return TCL_ERRO
08d0: 52 3b 0a 0a 20 20 76 61 6c 2e 66 6c 61 67 73 20  R;..  val.flags 
08e0: 3d 20 4d 45 4d 5f 53 74 72 7c 4d 45 4d 5f 54 65  = MEM_Str|MEM_Te
08f0: 72 6d 7c 4d 45 4d 5f 53 74 61 74 69 63 3b 0a 20  rm|MEM_Static;. 
0900: 20 76 61 6c 2e 7a 20 3d 20 22 68 65 6c 6c 6f 20   val.z = "hello 
0910: 77 6f 72 6c 64 22 3b 0a 20 20 76 61 6c 2e 74 79  world";.  val.ty
0920: 70 65 20 3d 20 53 51 4c 49 54 45 5f 54 45 58 54  pe = SQLITE_TEXT
0930: 3b 0a 20 20 76 61 6c 2e 65 6e 63 20 3d 20 53 51  ;.  val.enc = SQ
0940: 4c 49 54 45 5f 55 54 46 38 3b 0a 0a 20 20 66 6f  LITE_UTF8;..  fo
0950: 72 28 69 3d 30 3b 20 69 3c 72 65 70 65 61 74 5f  r(i=0; i<repeat_
0960: 63 6f 75 6e 74 3b 20 69 2b 2b 29 7b 0a 20 20 20  count; i++){.   
0970: 20 69 66 28 20 64 6f 5f 63 61 6c 6c 73 20 29 7b   if( do_calls ){
0980: 0a 20 20 20 20 20 20 7a 56 61 6c 20 3d 20 28 63  .      zVal = (c
0990: 68 61 72 2a 29 73 71 6c 69 74 65 33 5f 76 61 6c  har*)sqlite3_val
09a0: 75 65 5f 74 65 78 74 28 26 76 61 6c 29 3b 0a 20  ue_text(&val);. 
09b0: 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 72 65 74 75     }.  }..  retu
09c0: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 73 74  rn TCL_OK;.}..st
09d0: 61 74 69 63 20 75 38 20 6e 61 6d 65 5f 74 6f 5f  atic u8 name_to_
09e0: 65 6e 63 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a  enc(Tcl_Interp *
09f0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a 20  interp, Tcl_Obj 
0a00: 2a 70 4f 62 6a 29 7b 0a 20 20 73 74 72 75 63 74  *pObj){.  struct
0a10: 20 45 6e 63 4e 61 6d 65 20 7b 0a 20 20 20 20 63   EncName {.    c
0a20: 68 61 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20  har *zName;.    
0a30: 75 38 20 65 6e 63 3b 0a 20 20 7d 20 65 6e 63 6e  u8 enc;.  } encn
0a40: 61 6d 65 73 5b 5d 20 3d 20 7b 0a 20 20 20 20 7b  ames[] = {.    {
0a50: 20 22 55 54 46 38 22 2c 20 53 51 4c 49 54 45 5f   "UTF8", SQLITE_
0a60: 55 54 46 38 20 7d 2c 0a 20 20 20 20 7b 20 22 55  UTF8 },.    { "U
0a70: 54 46 31 36 4c 45 22 2c 20 53 51 4c 49 54 45 5f  TF16LE", SQLITE_
0a80: 55 54 46 31 36 4c 45 20 7d 2c 0a 20 20 20 20 7b  UTF16LE },.    {
0a90: 20 22 55 54 46 31 36 42 45 22 2c 20 53 51 4c 49   "UTF16BE", SQLI
0aa0: 54 45 5f 55 54 46 31 36 42 45 20 7d 2c 0a 20 20  TE_UTF16BE },.  
0ab0: 20 20 7b 20 22 55 54 46 31 36 22 2c 20 53 51 4c    { "UTF16", SQL
0ac0: 49 54 45 5f 55 54 46 31 36 20 7d 2c 0a 20 20 20  ITE_UTF16 },.   
0ad0: 20 7b 20 30 2c 20 30 20 7d 0a 20 20 7d 3b 0a 20   { 0, 0 }.  };. 
0ae0: 20 73 74 72 75 63 74 20 45 6e 63 4e 61 6d 65 20   struct EncName 
0af0: 2a 70 45 6e 63 3b 0a 20 20 63 68 61 72 20 2a 7a  *pEnc;.  char *z
0b00: 20 3d 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67   = Tcl_GetString
0b10: 28 70 4f 62 6a 29 3b 0a 20 20 66 6f 72 28 70 45  (pObj);.  for(pE
0b20: 6e 63 3d 26 65 6e 63 6e 61 6d 65 73 5b 30 5d 3b  nc=&encnames[0];
0b30: 20 70 45 6e 63 2d 3e 7a 4e 61 6d 65 3b 20 70 45   pEnc->zName; pE
0b40: 6e 63 2b 2b 29 7b 0a 20 20 20 20 69 66 28 20 30  nc++){.    if( 0
0b50: 3d 3d 73 71 6c 69 74 65 33 53 74 72 49 43 6d 70  ==sqlite3StrICmp
0b60: 28 7a 2c 20 70 45 6e 63 2d 3e 7a 4e 61 6d 65 29  (z, pEnc->zName)
0b70: 20 29 7b 0a 20 20 20 20 20 20 62 72 65 61 6b 3b   ){.      break;
0b80: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 69 66 28  .    }.  }.  if(
0b90: 20 21 70 45 6e 63 2d 3e 65 6e 63 20 29 7b 0a 20   !pEnc->enc ){. 
0ba0: 20 20 20 54 63 6c 5f 41 70 70 65 6e 64 52 65 73     Tcl_AppendRes
0bb0: 75 6c 74 28 69 6e 74 65 72 70 2c 20 22 4e 6f 20  ult(interp, "No 
0bc0: 73 75 63 68 20 65 6e 63 6f 64 69 6e 67 3a 20 22  such encoding: "
0bd0: 2c 20 7a 2c 20 30 29 3b 0a 20 20 7d 0a 20 20 69  , z, 0);.  }.  i
0be0: 66 28 20 70 45 6e 63 2d 3e 65 6e 63 3d 3d 53 51  f( pEnc->enc==SQ
0bf0: 4c 49 54 45 5f 55 54 46 31 36 20 29 7b 0a 20 20  LITE_UTF16 ){.  
0c00: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
0c10: 55 54 46 31 36 4e 41 54 49 56 45 3b 0a 20 20 7d  UTF16NATIVE;.  }
0c20: 0a 20 20 72 65 74 75 72 6e 20 70 45 6e 63 2d 3e  .  return pEnc->
0c30: 65 6e 63 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 55 73  enc;.}../*.** Us
0c40: 61 67 65 3a 20 20 20 74 65 73 74 5f 74 72 61 6e  age:   test_tran
0c50: 73 6c 61 74 65 20 3c 73 74 72 69 6e 67 2f 62 6c  slate <string/bl
0c60: 6f 62 3e 20 3c 66 72 6f 6d 20 65 6e 63 3e 20 3c  ob> <from enc> <
0c70: 74 6f 20 65 6e 63 3e 20 3f 3c 74 72 61 6e 73 69  to enc> ?<transi
0c80: 65 6e 74 3e 3f 0a 2a 2a 0a 2a 2f 0a 73 74 61 74  ent>?.**.*/.stat
0c90: 69 63 20 69 6e 74 20 74 65 73 74 5f 74 72 61 6e  ic int test_tran
0ca0: 73 6c 61 74 65 28 0a 20 20 76 6f 69 64 20 2a 20  slate(.  void * 
0cb0: 63 6c 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63  clientData,.  Tc
0cc0: 6c 5f 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70  l_Interp *interp
0cd0: 2c 0a 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20  ,.  int objc,.  
0ce0: 54 63 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f  Tcl_Obj *CONST o
0cf0: 62 6a 76 5b 5d 0a 29 7b 0a 20 20 75 38 20 65 6e  bjv[].){.  u8 en
0d00: 63 5f 66 72 6f 6d 3b 0a 20 20 75 38 20 65 6e 63  c_from;.  u8 enc
0d10: 5f 74 6f 3b 0a 20 20 73 71 6c 69 74 65 33 5f 76  _to;.  sqlite3_v
0d20: 61 6c 75 65 20 2a 70 56 61 6c 3b 0a 0a 20 20 63  alue *pVal;..  c
0d30: 68 61 72 20 2a 7a 3b 0a 20 20 69 6e 74 20 6c 65  har *z;.  int le
0d40: 6e 3b 0a 20 20 76 6f 69 64 20 28 2a 78 44 65 6c  n;.  void (*xDel
0d50: 29 28 76 6f 69 64 20 2a 70 29 20 3d 20 53 51 4c  )(void *p) = SQL
0d60: 49 54 45 5f 53 54 41 54 49 43 3b 0a 0a 20 20 69  ITE_STATIC;..  i
0d70: 66 28 20 6f 62 6a 63 21 3d 34 20 26 26 20 6f 62  f( objc!=4 && ob
0d80: 6a 63 21 3d 35 20 29 7b 0a 20 20 20 20 54 63 6c  jc!=5 ){.    Tcl
0d90: 5f 41 70 70 65 6e 64 52 65 73 75 6c 74 28 69 6e  _AppendResult(in
0da0: 74 65 72 70 2c 20 22 77 72 6f 6e 67 20 23 20 61  terp, "wrong # a
0db0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c  rgs: should be \
0dc0: 22 22 2c 0a 20 20 20 20 20 20 20 20 54 63 6c 5f  "",.        Tcl_
0dd0: 47 65 74 53 74 72 69 6e 67 46 72 6f 6d 4f 62 6a  GetStringFromObj
0de0: 28 6f 62 6a 76 5b 30 5d 2c 20 30 29 2c 20 0a 20  (objv[0], 0), . 
0df0: 20 20 20 20 20 20 20 22 20 3c 73 74 72 69 6e 67         " <string
0e00: 2f 62 6c 6f 62 3e 20 3c 66 72 6f 6d 20 65 6e 63  /blob> <from enc
0e10: 3e 20 3c 74 6f 20 65 6e 63 3e 22 2c 20 30 0a 20  > <to enc>", 0. 
0e20: 20 20 20 29 3b 0a 20 20 20 20 72 65 74 75 72 6e     );.    return
0e30: 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20 7d 0a   TCL_ERROR;.  }.
0e40: 20 20 69 66 28 20 6f 62 6a 63 3d 3d 35 20 29 7b    if( objc==5 ){
0e50: 0a 20 20 20 20 78 44 65 6c 20 3d 20 73 71 6c 69  .    xDel = sqli
0e60: 74 65 33 5f 66 72 65 65 3b 0a 20 20 7d 0a 0a 20  te3_free;.  }.. 
0e70: 20 65 6e 63 5f 66 72 6f 6d 20 3d 20 6e 61 6d 65   enc_from = name
0e80: 5f 74 6f 5f 65 6e 63 28 69 6e 74 65 72 70 2c 20  _to_enc(interp, 
0e90: 6f 62 6a 76 5b 32 5d 29 3b 0a 20 20 69 66 28 20  objv[2]);.  if( 
0ea0: 21 65 6e 63 5f 66 72 6f 6d 20 29 20 72 65 74 75  !enc_from ) retu
0eb0: 72 6e 20 54 43 4c 5f 45 52 52 4f 52 3b 0a 20 20  rn TCL_ERROR;.  
0ec0: 65 6e 63 5f 74 6f 20 3d 20 6e 61 6d 65 5f 74 6f  enc_to = name_to
0ed0: 5f 65 6e 63 28 69 6e 74 65 72 70 2c 20 6f 62 6a  _enc(interp, obj
0ee0: 76 5b 33 5d 29 3b 0a 20 20 69 66 28 20 21 65 6e  v[3]);.  if( !en
0ef0: 63 5f 74 6f 20 29 20 72 65 74 75 72 6e 20 54 43  c_to ) return TC
0f00: 4c 5f 45 52 52 4f 52 3b 0a 0a 20 20 70 56 61 6c  L_ERROR;..  pVal
0f10: 20 3d 20 73 71 6c 69 74 65 33 56 61 6c 75 65 4e   = sqlite3ValueN
0f20: 65 77 28 30 29 3b 0a 0a 20 20 69 66 28 20 65 6e  ew(0);..  if( en
0f30: 63 5f 66 72 6f 6d 3d 3d 53 51 4c 49 54 45 5f 55  c_from==SQLITE_U
0f40: 54 46 38 20 29 7b 0a 20 20 20 20 7a 20 3d 20 54  TF8 ){.    z = T
0f50: 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a  cl_GetString(obj
0f60: 76 5b 31 5d 29 3b 0a 20 20 20 20 69 66 28 20 6f  v[1]);.    if( o
0f70: 62 6a 63 3d 3d 35 20 29 7b 0a 20 20 20 20 20 20  bjc==5 ){.      
0f80: 7a 20 3d 20 73 71 6c 69 74 65 33 44 62 53 74 72  z = sqlite3DbStr
0f90: 44 75 70 28 30 2c 20 7a 29 3b 0a 20 20 20 20 7d  Dup(0, z);.    }
0fa0: 0a 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75  .    sqlite3Valu
0fb0: 65 53 65 74 53 74 72 28 70 56 61 6c 2c 20 2d 31  eSetStr(pVal, -1
0fc0: 2c 20 7a 2c 20 65 6e 63 5f 66 72 6f 6d 2c 20 78  , z, enc_from, x
0fd0: 44 65 6c 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20  Del);.  }else{. 
0fe0: 20 20 20 7a 20 3d 20 28 63 68 61 72 2a 29 54 63     z = (char*)Tc
0ff0: 6c 5f 47 65 74 42 79 74 65 41 72 72 61 79 46 72  l_GetByteArrayFr
1000: 6f 6d 4f 62 6a 28 6f 62 6a 76 5b 31 5d 2c 20 26  omObj(objv[1], &
1010: 6c 65 6e 29 3b 0a 20 20 20 20 69 66 28 20 6f 62  len);.    if( ob
1020: 6a 63 3d 3d 35 20 29 7b 0a 20 20 20 20 20 20 63  jc==5 ){.      c
1030: 68 61 72 20 2a 7a 54 6d 70 20 3d 20 7a 3b 0a 20  har *zTmp = z;. 
1040: 20 20 20 20 20 7a 20 3d 20 73 71 6c 69 74 65 33       z = sqlite3
1050: 5f 6d 61 6c 6c 6f 63 28 6c 65 6e 29 3b 0a 20 20  _malloc(len);.  
1060: 20 20 20 20 6d 65 6d 63 70 79 28 7a 2c 20 7a 54      memcpy(z, zT
1070: 6d 70 2c 20 6c 65 6e 29 3b 0a 20 20 20 20 7d 0a  mp, len);.    }.
1080: 20 20 20 20 73 71 6c 69 74 65 33 56 61 6c 75 65      sqlite3Value
1090: 53 65 74 53 74 72 28 70 56 61 6c 2c 20 2d 31 2c  SetStr(pVal, -1,
10a0: 20 7a 2c 20 65 6e 63 5f 66 72 6f 6d 2c 20 78 44   z, enc_from, xD
10b0: 65 6c 29 3b 0a 20 20 7d 0a 0a 20 20 7a 20 3d 20  el);.  }..  z = 
10c0: 28 63 68 61 72 20 2a 29 73 71 6c 69 74 65 33 56  (char *)sqlite3V
10d0: 61 6c 75 65 54 65 78 74 28 70 56 61 6c 2c 20 65  alueText(pVal, e
10e0: 6e 63 5f 74 6f 29 3b 0a 20 20 6c 65 6e 20 3d 20  nc_to);.  len = 
10f0: 73 71 6c 69 74 65 33 56 61 6c 75 65 42 79 74 65  sqlite3ValueByte
1100: 73 28 70 56 61 6c 2c 20 65 6e 63 5f 74 6f 29 20  s(pVal, enc_to) 
1110: 2b 20 28 65 6e 63 5f 74 6f 3d 3d 53 51 4c 49 54  + (enc_to==SQLIT
1120: 45 5f 55 54 46 38 3f 31 3a 32 29 3b 0a 20 20 54  E_UTF8?1:2);.  T
1130: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28  cl_SetObjResult(
1140: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 42  interp, Tcl_NewB
1150: 79 74 65 41 72 72 61 79 4f 62 6a 28 28 75 38 2a  yteArrayObj((u8*
1160: 29 7a 2c 20 6c 65 6e 29 29 3b 0a 0a 20 20 73 71  )z, len));..  sq
1170: 6c 69 74 65 33 56 61 6c 75 65 46 72 65 65 28 70  lite3ValueFree(p
1180: 56 61 6c 29 3b 0a 0a 20 20 72 65 74 75 72 6e 20  Val);..  return 
1190: 54 43 4c 5f 4f 4b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a  TCL_OK;.}../*.**
11a0: 20 55 73 61 67 65 3a 20 74 72 61 6e 73 6c 61 74   Usage: translat
11b0: 65 5f 73 65 6c 66 74 65 73 74 0a 2a 2a 0a 2a 2a  e_selftest.**.**
11c0: 20 43 61 6c 6c 20 73 71 6c 69 74 65 33 55 74 66   Call sqlite3Utf
11d0: 53 65 6c 66 54 65 73 74 28 29 20 74 6f 20 72 75  SelfTest() to ru
11e0: 6e 20 74 68 65 20 69 6e 74 65 72 6e 61 6c 20 74  n the internal t
11f0: 65 73 74 73 20 66 6f 72 20 75 6e 69 63 6f 64 65  ests for unicode
1200: 0a 2a 2a 20 74 72 61 6e 73 6c 61 74 69 6f 6e 2e  .** translation.
1210: 20 49 66 20 74 68 65 72 65 20 69 73 20 61 20 70   If there is a p
1220: 72 6f 62 6c 65 6d 20 61 6e 20 61 73 73 65 72 74  roblem an assert
1230: 28 29 20 77 69 6c 6c 20 66 61 69 6c 2e 0a 2a 2a  () will fail..**
1240: 2f 0a 76 6f 69 64 20 73 71 6c 69 74 65 33 55 74  /.void sqlite3Ut
1250: 66 53 65 6c 66 54 65 73 74 28 76 6f 69 64 29 3b  fSelfTest(void);
1260: 0a 73 74 61 74 69 63 20 69 6e 74 20 74 65 73 74  .static int test
1270: 5f 74 72 61 6e 73 6c 61 74 65 5f 73 65 6c 66 74  _translate_selft
1280: 65 73 74 28 0a 20 20 76 6f 69 64 20 2a 20 63 6c  est(.  void * cl
1290: 69 65 6e 74 44 61 74 61 2c 0a 20 20 54 63 6c 5f  ientData,.  Tcl_
12a0: 49 6e 74 65 72 70 20 2a 69 6e 74 65 72 70 2c 0a  Interp *interp,.
12b0: 20 20 69 6e 74 20 6f 62 6a 63 2c 0a 20 20 54 63    int objc,.  Tc
12c0: 6c 5f 4f 62 6a 20 2a 43 4f 4e 53 54 20 6f 62 6a  l_Obj *CONST obj
12d0: 76 5b 5d 0a 29 7b 0a 23 69 66 6e 64 65 66 20 53  v[].){.#ifndef S
12e0: 51 4c 49 54 45 5f 4f 4d 49 54 5f 55 54 46 31 36  QLITE_OMIT_UTF16
12f0: 0a 20 20 73 71 6c 69 74 65 33 55 74 66 53 65 6c  .  sqlite3UtfSel
1300: 66 54 65 73 74 28 29 3b 0a 23 65 6e 64 69 66 0a  fTest();.#endif.
1310: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
1320: 4f 4b 3b 0a 7d 0a 0a 0a 2f 2a 0a 2a 2a 20 52 65  OK;.}.../*.** Re
1330: 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20  gister commands 
1340: 77 69 74 68 20 74 68 65 20 54 43 4c 20 69 6e 74  with the TCL int
1350: 65 72 70 72 65 74 65 72 2e 0a 2a 2f 0a 69 6e 74  erpreter..*/.int
1360: 20 53 71 6c 69 74 65 74 65 73 74 35 5f 49 6e 69   Sqlitetest5_Ini
1370: 74 28 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e  t(Tcl_Interp *in
1380: 74 65 72 70 29 7b 0a 20 20 73 74 61 74 69 63 20  terp){.  static 
1390: 73 74 72 75 63 74 20 7b 0a 20 20 20 20 63 68 61  struct {.    cha
13a0: 72 20 2a 7a 4e 61 6d 65 3b 0a 20 20 20 20 54 63  r *zName;.    Tc
13b0: 6c 5f 4f 62 6a 43 6d 64 50 72 6f 63 20 2a 78 50  l_ObjCmdProc *xP
13c0: 72 6f 63 3b 0a 20 20 7d 20 61 43 6d 64 5b 5d 20  roc;.  } aCmd[] 
13d0: 3d 20 7b 0a 20 20 20 20 7b 20 22 62 69 6e 61 72  = {.    { "binar
13e0: 69 7a 65 22 2c 20 20 20 20 20 20 20 20 20 20 20  ize",           
13f0: 20 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d 64       (Tcl_ObjCmd
1400: 50 72 6f 63 2a 29 62 69 6e 61 72 69 7a 65 20 7d  Proc*)binarize }
1410: 2c 0a 20 20 20 20 7b 20 22 74 65 73 74 5f 76 61  ,.    { "test_va
1420: 6c 75 65 5f 6f 76 65 72 68 65 61 64 22 2c 20 20  lue_overhead",  
1430: 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d 64 50 72     (Tcl_ObjCmdPr
1440: 6f 63 2a 29 74 65 73 74 5f 76 61 6c 75 65 5f 6f  oc*)test_value_o
1450: 76 65 72 68 65 61 64 20 7d 2c 0a 20 20 20 20 7b  verhead },.    {
1460: 20 22 74 65 73 74 5f 74 72 61 6e 73 6c 61 74 65   "test_translate
1470: 22 2c 20 20 20 20 20 20 20 20 20 20 28 54 63 6c  ",          (Tcl
1480: 5f 4f 62 6a 43 6d 64 50 72 6f 63 2a 29 74 65 73  _ObjCmdProc*)tes
1490: 74 5f 74 72 61 6e 73 6c 61 74 65 20 20 20 20 20  t_translate     
14a0: 7d 2c 0a 20 20 20 20 7b 20 22 74 72 61 6e 73 6c  },.    { "transl
14b0: 61 74 65 5f 73 65 6c 66 74 65 73 74 22 2c 20 20  ate_selftest",  
14c0: 20 20 20 20 28 54 63 6c 5f 4f 62 6a 43 6d 64 50      (Tcl_ObjCmdP
14d0: 72 6f 63 2a 29 74 65 73 74 5f 74 72 61 6e 73 6c  roc*)test_transl
14e0: 61 74 65 5f 73 65 6c 66 74 65 73 74 7d 2c 0a 20  ate_selftest},. 
14f0: 20 7d 3b 0a 20 20 69 6e 74 20 69 3b 0a 20 20 66   };.  int i;.  f
1500: 6f 72 28 69 3d 30 3b 20 69 3c 73 69 7a 65 6f 66  or(i=0; i<sizeof
1510: 28 61 43 6d 64 29 2f 73 69 7a 65 6f 66 28 61 43  (aCmd)/sizeof(aC
1520: 6d 64 5b 30 5d 29 3b 20 69 2b 2b 29 7b 0a 20 20  md[0]); i++){.  
1530: 20 20 54 63 6c 5f 43 72 65 61 74 65 4f 62 6a 43    Tcl_CreateObjC
1540: 6f 6d 6d 61 6e 64 28 69 6e 74 65 72 70 2c 20 61  ommand(interp, a
1550: 43 6d 64 5b 69 5d 2e 7a 4e 61 6d 65 2c 20 61 43  Cmd[i].zName, aC
1560: 6d 64 5b 69 5d 2e 78 50 72 6f 63 2c 20 30 2c 20  md[i].xProc, 0, 
1570: 30 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e  0);.  }.  return
1580: 20 53 51 4c 49 54 45 5f 4f 4b 3b 0a 7d 0a         SQLITE_OK;.}.