/ Hex Artifact Content
Login

Artifact 83437a79ba1545a55fb549309175c683fb334473:


0000: 23 20 32 30 30 32 20 4d 61 79 20 32 34 0a 23 0a  # 2002 May 24.#.
0010: 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73  # The author dis
0020: 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74  claims copyright
0030: 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20   to this source 
0040: 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20  code.  In place 
0050: 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74  of.# a legal not
0060: 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62  ice, here is a b
0070: 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20  lessing:.#.#    
0080: 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20  May you do good 
0090: 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20  and not evil..# 
00a0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00b0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00c0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00d0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20  give others..#  
00e0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20    May you share 
00f0: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61  freely, never ta
0100: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79  king more than y
0110: 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a  ou give..#.#****
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
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 0a 23 20 54 68 69 73 20 66 69 6c 65 20  ***.# This file 
0170: 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72 65  implements regre
0180: 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72 20  ssion tests for 
0190: 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 20  SQLite library. 
01a0: 20 54 68 65 20 66 6f 63 75 73 20 6f 66 0a 23 20   The focus of.# 
01b0: 74 68 69 73 20 66 69 6c 65 20 69 73 20 74 65 73  this file is tes
01c0: 74 69 6e 67 20 74 68 65 20 53 51 4c 69 74 65 20  ting the SQLite 
01d0: 72 6f 75 74 69 6e 65 73 20 75 73 65 64 20 66 6f  routines used fo
01e0: 72 20 63 6f 6e 76 65 72 74 69 6e 67 20 62 65 74  r converting bet
01f0: 77 65 65 6e 20 74 68 65 0a 23 20 76 61 72 69 6f  ween the.# vario
0200: 75 73 20 73 75 70 6f 72 74 65 64 20 75 6e 69 63  us suported unic
0210: 6f 64 65 20 65 6e 63 6f 64 69 6e 67 73 20 28 55  ode encodings (U
0220: 54 46 2d 38 2c 20 55 54 46 2d 31 36 2c 20 55 54  TF-8, UTF-16, UT
0230: 46 2d 31 36 6c 65 20 61 6e 64 0a 23 20 55 54 46  F-16le and.# UTF
0240: 2d 31 36 62 65 29 2e 0a 23 0a 23 20 24 49 64 3a  -16be)..#.# $Id:
0250: 20 65 6e 63 32 2e 74 65 73 74 2c 76 20 31 2e 32   enc2.test,v 1.2
0260: 39 20 32 30 30 37 2f 31 30 2f 30 39 20 30 38 3a  9 2007/10/09 08:
0270: 32 39 3a 33 32 20 64 61 6e 69 65 6c 6b 31 39 37  29:32 danielk197
0280: 37 20 45 78 70 20 24 0a 0a 73 65 74 20 74 65 73  7 Exp $..set tes
0290: 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72 6e 61  tdir [file dirna
02a0: 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f 75 72 63  me $argv0].sourc
02b0: 65 20 24 74 65 73 74 64 69 72 2f 74 65 73 74 65  e $testdir/teste
02c0: 72 2e 74 63 6c 0a 0a 23 20 49 66 20 55 54 46 31  r.tcl..# If UTF1
02d0: 36 20 73 75 70 70 6f 72 74 20 69 73 20 64 69 73  6 support is dis
02e0: 61 62 6c 65 64 2c 20 69 67 6e 6f 72 65 20 74 68  abled, ignore th
02f0: 65 20 74 65 73 74 73 20 69 6e 20 74 68 69 73 20  e tests in this 
0300: 66 69 6c 65 0a 23 0a 69 66 63 61 70 61 62 6c 65  file.#.ifcapable
0310: 20 7b 21 75 74 66 31 36 7d 20 7b 0a 20 20 66 69   {!utf16} {.  fi
0320: 6e 69 73 68 5f 74 65 73 74 0a 20 20 72 65 74 75  nish_test.  retu
0330: 72 6e 0a 7d 0a 0a 23 20 54 68 65 20 72 6f 75 67  rn.}..# The roug
0340: 68 20 6f 72 67 61 6e 69 73 61 74 69 6f 6e 20 6f  h organisation o
0350: 66 20 74 65 73 74 73 20 69 6e 20 74 68 69 73 20  f tests in this 
0360: 66 69 6c 65 20 69 73 3a 0a 23 0a 23 20 65 6e 63  file is:.#.# enc
0370: 32 2e 31 2e 2a 3a 20 53 69 6d 70 6c 65 20 74 65  2.1.*: Simple te
0380: 73 74 73 20 77 69 74 68 20 61 20 55 54 46 2d 38  sts with a UTF-8
0390: 20 64 62 2e 0a 23 20 65 6e 63 32 2e 32 2e 2a 3a   db..# enc2.2.*:
03a0: 20 53 69 6d 70 6c 65 20 74 65 73 74 73 20 77 69   Simple tests wi
03b0: 74 68 20 61 20 55 54 46 2d 31 36 4c 45 20 64 62  th a UTF-16LE db
03c0: 2e 0a 23 20 65 6e 63 32 2e 33 2e 2a 3a 20 53 69  ..# enc2.3.*: Si
03d0: 6d 70 6c 65 20 74 65 73 74 73 20 77 69 74 68 20  mple tests with 
03e0: 61 20 55 54 46 2d 31 36 42 45 20 64 62 2e 0a 23  a UTF-16BE db..#
03f0: 20 65 6e 63 32 2e 34 2e 2a 3a 20 54 65 73 74 20   enc2.4.*: Test 
0400: 74 68 61 74 20 61 74 74 61 63 68 65 64 20 64 61  that attached da
0410: 74 61 62 61 73 65 73 20 6d 75 73 74 20 68 61 76  tabases must hav
0420: 65 20 74 68 65 20 73 61 6d 65 20 74 65 78 74 20  e the same text 
0430: 65 6e 63 6f 64 69 6e 67 0a 23 20 20 20 20 20 20  encoding.#      
0440: 20 20 20 20 20 61 73 20 74 68 65 20 6d 61 69 6e       as the main
0450: 20 64 61 74 61 62 61 73 65 2e 0a 23 20 65 6e 63   database..# enc
0460: 32 2e 35 2e 2a 3a 20 54 65 73 74 20 74 68 65 20  2.5.*: Test the 
0470: 62 65 68 61 76 69 6f 72 20 6f 66 20 74 68 65 20  behavior of the 
0480: 6c 69 62 72 61 72 79 20 77 68 65 6e 20 61 20 63  library when a c
0490: 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63  ollation sequenc
04a0: 65 20 69 73 0a 23 20 20 20 20 20 20 20 20 20 20  e is.#          
04b0: 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20 66   not available f
04c0: 6f 72 20 74 68 65 20 6d 6f 73 74 20 64 65 73 69  or the most desi
04d0: 72 61 62 6c 65 20 74 65 78 74 20 65 6e 63 6f 64  rable text encod
04e0: 69 6e 67 2e 0a 23 20 65 6e 63 32 2e 36 2e 2a 3a  ing..# enc2.6.*:
04f0: 20 53 69 6d 69 6c 61 72 20 74 65 73 74 20 66 6f   Similar test fo
0500: 72 20 75 73 65 72 20 66 75 6e 63 74 69 6f 6e 73  r user functions
0510: 2e 0a 23 20 65 6e 63 32 2e 37 2e 2a 3a 20 54 65  ..# enc2.7.*: Te
0520: 73 74 20 74 68 61 74 20 74 68 65 20 56 65 72 69  st that the Veri
0530: 66 79 43 6f 6f 6b 69 65 20 6f 70 63 6f 64 65 20  fyCookie opcode 
0540: 70 72 6f 74 65 63 74 73 20 61 67 61 69 6e 73 74  protects against
0550: 20 61 73 73 75 6d 69 6e 67 20 74 68 65 0a 23 20   assuming the.# 
0560: 20 20 20 20 20 20 20 20 20 20 77 72 6f 6e 67 20            wrong 
0570: 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 20 66 6f  text encoding fo
0580: 72 20 74 68 65 20 64 61 74 61 62 61 73 65 2e 0a  r the database..
0590: 23 20 65 6e 63 32 2e 38 2e 2a 3a 20 54 65 73 74  # enc2.8.*: Test
05a0: 20 73 71 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74   sqlite3_complet
05b0: 65 31 36 28 29 0a 23 0a 0a 64 62 20 63 6c 6f 73  e16().#..db clos
05c0: 65 0a 0a 23 20 52 65 74 75 72 6e 20 74 68 65 20  e..# Return the 
05d0: 55 54 46 2d 38 20 72 65 70 72 65 73 65 6e 74 61  UTF-8 representa
05e0: 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 70 70  tion of the supp
05f0: 6c 69 65 64 20 55 54 46 2d 31 36 20 73 74 72 69  lied UTF-16 stri
0600: 6e 67 20 24 73 74 72 2e 20 0a 70 72 6f 63 20 75  ng $str. .proc u
0610: 74 66 38 20 7b 73 74 72 7d 20 7b 0a 20 20 23 20  tf8 {str} {.  # 
0620: 49 66 20 24 73 74 72 20 65 6e 64 73 20 69 6e 20  If $str ends in 
0630: 74 77 6f 20 30 78 30 30 20 30 78 30 30 20 62 79  two 0x00 0x00 by
0640: 74 65 73 2c 20 6b 6e 6f 63 6b 20 74 68 65 73 65  tes, knock these
0650: 20 6f 66 66 20 62 65 66 6f 72 65 0a 20 20 23 20   off before.  # 
0660: 63 6f 6e 76 65 72 74 69 6e 67 20 74 6f 20 55 54  converting to UT
0670: 46 2d 38 20 75 73 69 6e 67 20 54 43 4c 2e 0a 20  F-8 using TCL.. 
0680: 20 62 69 6e 61 72 79 20 73 63 61 6e 20 24 73 74   binary scan $st
0690: 72 20 5c 63 2a 20 76 61 6c 73 0a 20 20 69 66 20  r \c* vals.  if 
06a0: 7b 5b 6c 69 6e 64 65 78 20 24 76 61 6c 73 20 65  {[lindex $vals e
06b0: 6e 64 5d 3d 3d 30 20 26 26 20 5b 6c 69 6e 64 65  nd]==0 && [linde
06c0: 78 20 24 76 61 6c 73 20 65 6e 64 2d 31 5d 3d 3d  x $vals end-1]==
06d0: 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 74 72  0} {.    set str
06e0: 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d 61 74 20   [binary format 
06f0: 5c 63 2a 20 5b 6c 72 61 6e 67 65 20 24 76 61 6c  \c* [lrange $val
0700: 73 20 30 20 65 6e 64 2d 32 5d 5d 0a 20 20 7d 0a  s 0 end-2]].  }.
0710: 0a 20 20 73 65 74 20 72 20 5b 65 6e 63 6f 64 69  .  set r [encodi
0720: 6e 67 20 63 6f 6e 76 65 72 74 66 72 6f 6d 20 75  ng convertfrom u
0730: 6e 69 63 6f 64 65 20 24 73 74 72 5d 0a 20 20 72  nicode $str].  r
0740: 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 0a 23 20  eturn $r.}..#.# 
0750: 54 68 69 73 20 70 72 6f 63 20 63 6f 6e 74 61 69  This proc contai
0760: 6e 73 20 61 6c 6c 20 74 68 65 20 74 65 73 74 73  ns all the tests
0770: 20 69 6e 20 74 68 69 73 20 66 69 6c 65 2e 20 49   in this file. I
0780: 74 20 69 73 20 72 75 6e 0a 23 20 74 68 72 65 65  t is run.# three
0790: 20 74 69 6d 65 73 2e 20 45 61 63 68 20 74 69 6d   times. Each tim
07a0: 65 20 74 68 65 20 66 69 6c 65 20 27 74 65 73 74  e the file 'test
07b0: 2e 64 62 27 20 63 6f 6e 74 61 69 6e 73 20 61 20  .db' contains a 
07c0: 64 61 74 61 62 61 73 65 0a 23 20 77 69 74 68 20  database.# with 
07d0: 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63 6f  the following co
07e0: 6e 74 65 6e 74 73 3a 0a 73 65 74 20 64 62 63 6f  ntents:.set dbco
07f0: 6e 74 65 6e 74 73 20 7b 0a 20 20 43 52 45 41 54  ntents {.  CREAT
0800: 45 20 54 41 42 4c 45 20 74 31 28 61 20 50 52 49  E TABLE t1(a PRI
0810: 4d 41 52 59 20 4b 45 59 2c 20 62 2c 20 63 29 3b  MARY KEY, b, c);
0820: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
0830: 31 20 56 41 4c 55 45 53 28 27 6f 6e 65 27 2c 20  1 VALUES('one', 
0840: 27 49 27 2c 20 31 29 3b 0a 7d 0a 23 20 54 68 69  'I', 1);.}.# Thi
0850: 73 20 70 72 6f 63 20 74 65 73 74 73 20 74 68 61  s proc tests tha
0860: 74 20 77 65 20 63 61 6e 20 6f 70 65 6e 20 61 6e  t we can open an
0870: 64 20 6d 61 6e 69 70 75 6c 61 74 65 20 74 68 65  d manipulate the
0880: 20 74 65 73 74 2e 64 62 20 0a 23 20 64 61 74 61   test.db .# data
0890: 62 61 73 65 2c 20 61 6e 64 20 74 68 61 74 20 69  base, and that i
08a0: 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74 6f  t is possible to
08b0: 20 72 65 74 72 65 69 76 65 20 76 61 6c 75 65 73   retreive values
08c0: 20 69 6e 0a 23 20 76 61 72 69 6f 75 73 20 74 65   in.# various te
08d0: 78 74 20 65 6e 63 6f 64 69 6e 67 73 2e 0a 23 0a  xt encodings..#.
08e0: 70 72 6f 63 20 72 75 6e 5f 74 65 73 74 5f 73 63  proc run_test_sc
08f0: 72 69 70 74 20 7b 74 20 65 6e 63 7d 20 7b 0a 0a  ript {t enc} {..
0900: 23 20 4f 70 65 6e 20 74 68 65 20 64 61 74 61 62  # Open the datab
0910: 61 73 65 20 61 6e 64 20 70 75 6c 6c 20 6f 75 74  ase and pull out
0920: 20 61 20 28 74 68 65 29 20 72 6f 77 2e 0a 64 6f   a (the) row..do
0930: 5f 74 65 73 74 20 24 74 2e 31 20 7b 0a 20 20 73  _test $t.1 {.  s
0940: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
0950: 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74  b; set DB [sqlit
0960: 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f  e3_connection_po
0970: 69 6e 74 65 72 20 64 62 5d 0a 20 20 65 78 65 63  inter db].  exec
0980: 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  sql {SELECT * FR
0990: 4f 4d 20 74 31 7d 0a 7d 20 7b 6f 6e 65 20 49 20  OM t1}.} {one I 
09a0: 31 7d 0a 0a 23 20 49 6e 73 65 72 74 20 73 6f 6d  1}..# Insert som
09b0: 65 20 64 61 74 61 0a 64 6f 5f 74 65 73 74 20 24  e data.do_test $
09c0: 74 2e 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  t.2 {.  execsql 
09d0: 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20  {INSERT INTO t1 
09e0: 56 41 4c 55 45 53 28 27 74 77 6f 27 2c 20 27 49  VALUES('two', 'I
09f0: 49 27 2c 20 32 29 3b 7d 0a 20 20 65 78 65 63 73  I', 2);}.  execs
0a00: 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  ql {SELECT * FRO
0a10: 4d 20 74 31 7d 0a 7d 20 7b 6f 6e 65 20 49 20 31  M t1}.} {one I 1
0a20: 20 74 77 6f 20 49 49 20 32 7d 0a 0a 23 20 49 6e   two II 2}..# In
0a30: 73 65 72 74 20 73 6f 6d 65 20 64 61 74 61 20 0a  sert some data .
0a40: 64 6f 5f 74 65 73 74 20 24 74 2e 33 20 7b 0a 20  do_test $t.3 {. 
0a50: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49   execsql {.    I
0a60: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0a70: 4c 55 45 53 28 27 74 68 72 65 65 27 2c 27 49 49  LUES('three','II
0a80: 49 27 2c 33 29 3b 0a 20 20 20 20 49 4e 53 45 52  I',3);.    INSER
0a90: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
0aa0: 28 27 66 6f 75 72 27 2c 27 49 56 27 2c 34 29 3b  ('four','IV',4);
0ab0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
0ac0: 20 74 31 20 56 41 4c 55 45 53 28 27 66 69 76 65   t1 VALUES('five
0ad0: 27 2c 27 56 27 2c 35 29 3b 0a 20 20 7d 0a 20 20  ','V',5);.  }.  
0ae0: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
0af0: 2a 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 6f 6e  * FROM t1}.} {on
0b00: 65 20 49 20 31 20 74 77 6f 20 49 49 20 32 20 74  e I 1 two II 2 t
0b10: 68 72 65 65 20 49 49 49 20 33 20 66 6f 75 72 20  hree III 3 four 
0b20: 49 56 20 34 20 66 69 76 65 20 56 20 35 7d 0a 0a  IV 4 five V 5}..
0b30: 23 20 55 73 65 20 74 68 65 20 69 6e 64 65 78 0a  # Use the index.
0b40: 64 6f 5f 74 65 73 74 20 24 74 2e 34 20 7b 0a 20  do_test $t.4 {. 
0b50: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53   execsql {.    S
0b60: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20  ELECT * FROM t1 
0b70: 57 48 45 52 45 20 61 20 3d 20 27 6f 6e 65 27 3b  WHERE a = 'one';
0b80: 0a 20 20 7d 0a 7d 20 7b 6f 6e 65 20 49 20 31 7d  .  }.} {one I 1}
0b90: 0a 64 6f 5f 74 65 73 74 20 24 74 2e 35 20 7b 0a  .do_test $t.5 {.
0ba0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
0bb0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
0bc0: 20 57 48 45 52 45 20 61 20 3d 20 27 66 6f 75 72   WHERE a = 'four
0bd0: 27 3b 0a 20 20 7d 0a 7d 20 7b 66 6f 75 72 20 49  ';.  }.} {four I
0be0: 56 20 34 7d 0a 69 66 63 61 70 61 62 6c 65 20 73  V 4}.ifcapable s
0bf0: 75 62 71 75 65 72 79 20 7b 0a 20 20 64 6f 5f 74  ubquery {.  do_t
0c00: 65 73 74 20 24 74 2e 36 20 7b 0a 20 20 20 20 65  est $t.6 {.    e
0c10: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 53  xecsql {.      S
0c20: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20  ELECT * FROM t1 
0c30: 57 48 45 52 45 20 61 20 49 4e 20 28 27 6f 6e 65  WHERE a IN ('one
0c40: 27 2c 20 27 74 77 6f 27 29 3b 0a 20 20 20 20 7d  ', 'two');.    }
0c50: 0a 20 20 7d 20 7b 6f 6e 65 20 49 20 31 20 74 77  .  } {one I 1 tw
0c60: 6f 20 49 49 20 32 7d 0a 7d 0a 0a 23 20 4e 6f 77  o II 2}.}..# Now
0c70: 20 63 68 65 63 6b 20 74 68 61 74 20 77 65 20 63   check that we c
0c80: 61 6e 20 72 65 74 72 69 65 76 65 20 64 61 74 61  an retrieve data
0c90: 20 69 6e 20 62 6f 74 68 20 55 54 46 2d 31 36 20   in both UTF-16 
0ca0: 61 6e 64 20 55 54 46 2d 38 0a 64 6f 5f 74 65 73  and UTF-8.do_tes
0cb0: 74 20 24 74 2e 37 20 7b 0a 20 20 73 65 74 20 53  t $t.7 {.  set S
0cc0: 54 4d 54 20 5b 73 71 6c 69 74 65 33 5f 70 72 65  TMT [sqlite3_pre
0cd0: 70 61 72 65 20 24 44 42 20 22 53 45 4c 45 43 54  pare $DB "SELECT
0ce0: 20 61 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45   a FROM t1 WHERE
0cf0: 20 63 3e 33 3b 22 20 2d 31 20 54 41 49 4c 5d 0a   c>3;" -1 TAIL].
0d00: 20 20 73 71 6c 69 74 65 33 5f 73 74 65 70 20 24    sqlite3_step $
0d10: 53 54 4d 54 0a 20 20 73 71 6c 69 74 65 33 5f 63  STMT.  sqlite3_c
0d20: 6f 6c 75 6d 6e 5f 74 65 78 74 20 24 53 54 4d 54  olumn_text $STMT
0d30: 20 30 0a 7d 20 7b 66 6f 75 72 7d 0a 0a 64 6f 5f   0.} {four}..do_
0d40: 74 65 73 74 20 24 74 2e 38 20 7b 0a 20 20 73 71  test $t.8 {.  sq
0d50: 6c 69 74 65 33 5f 73 74 65 70 20 24 53 54 4d 54  lite3_step $STMT
0d60: 0a 20 20 75 74 66 38 20 5b 73 71 6c 69 74 65 33  .  utf8 [sqlite3
0d70: 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 20 24  _column_text16 $
0d80: 53 54 4d 54 20 30 5d 0a 7d 20 7b 66 69 76 65 7d  STMT 0].} {five}
0d90: 0a 0a 64 6f 5f 74 65 73 74 20 24 74 2e 39 20 7b  ..do_test $t.9 {
0da0: 0a 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c  .  sqlite3_final
0db0: 69 7a 65 20 24 53 54 4d 54 0a 7d 20 53 51 4c 49  ize $STMT.} SQLI
0dc0: 54 45 5f 4f 4b 0a 0a 69 66 63 61 70 61 62 6c 65  TE_OK..ifcapable
0dd0: 20 76 61 63 75 75 6d 20 7b 0a 20 20 65 78 65 63   vacuum {.  exec
0de0: 73 71 6c 20 56 41 43 55 55 4d 0a 7d 0a 0a 64 6f  sql VACUUM.}..do
0df0: 5f 74 65 73 74 20 24 74 2e 31 30 20 7b 0a 20 20  _test $t.10 {.  
0e00: 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20  db eval {PRAGMA 
0e10: 65 6e 63 6f 64 69 6e 67 7d 0a 7d 20 24 65 6e 63  encoding}.} $enc
0e20: 0a 0a 7d 0a 0a 23 20 54 68 65 20 74 68 72 65 65  ..}..# The three
0e30: 20 75 6e 69 63 6f 64 65 20 65 6e 63 6f 64 69 6e   unicode encodin
0e40: 67 73 20 75 6e 64 65 72 73 74 6f 6f 64 20 62 79  gs understood by
0e50: 20 53 51 4c 69 74 65 2e 0a 73 65 74 20 65 6e 63   SQLite..set enc
0e60: 6f 64 69 6e 67 73 20 5b 6c 69 73 74 20 55 54 46  odings [list UTF
0e70: 2d 38 20 55 54 46 2d 31 36 6c 65 20 55 54 46 2d  -8 UTF-16le UTF-
0e80: 31 36 62 65 5d 0a 0a 73 65 74 20 73 71 6c 69 74  16be]..set sqlit
0e90: 65 5f 6f 73 5f 74 72 61 63 65 20 30 0a 73 65 74  e_os_trace 0.set
0ea0: 20 69 20 31 0a 66 6f 72 65 61 63 68 20 65 6e 63   i 1.foreach enc
0eb0: 20 24 65 6e 63 6f 64 69 6e 67 73 20 7b 0a 20 20   $encodings {.  
0ec0: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
0ed0: 2e 64 62 0a 20 20 73 71 6c 69 74 65 33 20 64 62  .db.  sqlite3 db
0ee0: 20 74 65 73 74 2e 64 62 0a 20 20 64 62 20 65 76   test.db.  db ev
0ef0: 61 6c 20 22 50 52 41 47 4d 41 20 65 6e 63 6f 64  al "PRAGMA encod
0f00: 69 6e 67 20 3d 20 5c 22 24 65 6e 63 5c 22 22 0a  ing = \"$enc\"".
0f10: 20 20 65 78 65 63 73 71 6c 20 24 64 62 63 6f 6e    execsql $dbcon
0f20: 74 65 6e 74 73 0a 20 20 64 6f 5f 74 65 73 74 20  tents.  do_test 
0f30: 65 6e 63 32 2d 24 69 2e 30 2e 31 20 7b 0a 20 20  enc2-$i.0.1 {.  
0f40: 20 20 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d    db eval {PRAGM
0f50: 41 20 65 6e 63 6f 64 69 6e 67 7d 0a 20 20 7d 20  A encoding}.  } 
0f60: 24 65 6e 63 0a 20 20 64 6f 5f 74 65 73 74 20 65  $enc.  do_test e
0f70: 6e 63 32 2d 24 69 2e 30 2e 32 20 7b 0a 20 20 20  nc2-$i.0.2 {.   
0f80: 20 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41   db eval {PRAGMA
0f90: 20 65 6e 63 6f 64 69 6e 67 3d 55 54 46 38 7d 0a   encoding=UTF8}.
0fa0: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 50 52 41      db eval {PRA
0fb0: 47 4d 41 20 65 6e 63 6f 64 69 6e 67 7d 0a 20 20  GMA encoding}.  
0fc0: 7d 20 24 65 6e 63 0a 20 20 64 6f 5f 74 65 73 74  } $enc.  do_test
0fd0: 20 65 6e 63 32 2d 24 69 2e 30 2e 33 20 7b 0a 20   enc2-$i.0.3 {. 
0fe0: 20 20 20 64 62 20 65 76 61 6c 20 7b 50 52 41 47     db eval {PRAG
0ff0: 4d 41 20 65 6e 63 6f 64 69 6e 67 3d 55 54 46 31  MA encoding=UTF1
1000: 36 6c 65 7d 0a 20 20 20 20 64 62 20 65 76 61 6c  6le}.    db eval
1010: 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e   {PRAGMA encodin
1020: 67 7d 0a 20 20 7d 20 24 65 6e 63 0a 20 20 64 6f  g}.  } $enc.  do
1030: 5f 74 65 73 74 20 65 6e 63 32 2d 24 69 2e 30 2e  _test enc2-$i.0.
1040: 34 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20  4 {.    db eval 
1050: 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67  {PRAGMA encoding
1060: 3d 55 54 46 31 36 62 65 7d 0a 20 20 20 20 64 62  =UTF16be}.    db
1070: 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20 65 6e   eval {PRAGMA en
1080: 63 6f 64 69 6e 67 7d 0a 20 20 7d 20 24 65 6e 63  coding}.  } $enc
1090: 0a 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 72  ..  db close.  r
10a0: 75 6e 5f 74 65 73 74 5f 73 63 72 69 70 74 20 65  un_test_script e
10b0: 6e 63 32 2d 24 69 20 24 65 6e 63 0a 20 20 64 62  nc2-$i $enc.  db
10c0: 20 63 6c 6f 73 65 0a 20 20 69 6e 63 72 20 69 0a   close.  incr i.
10d0: 7d 0a 0a 23 20 54 65 73 74 20 74 68 61 74 20 69  }..# Test that i
10e0: 74 20 69 73 20 61 6e 20 65 72 72 6f 72 20 74 6f  t is an error to
10f0: 20 74 72 79 20 74 6f 20 61 74 74 61 63 68 20 61   try to attach a
1100: 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20 61   database with a
1110: 20 64 69 66 66 65 72 65 6e 74 0a 23 20 65 6e 63   different.# enc
1120: 6f 64 69 6e 67 20 74 6f 20 74 68 65 20 6d 61 69  oding to the mai
1130: 6e 20 64 61 74 61 62 61 73 65 2e 0a 69 66 63 61  n database..ifca
1140: 70 61 62 6c 65 20 61 74 74 61 63 68 20 7b 0a 20  pable attach {. 
1150: 20 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 34 2e   do_test enc2-4.
1160: 31 20 7b 0a 20 20 20 20 66 6f 72 63 65 64 65 6c  1 {.    forcedel
1170: 65 74 65 20 74 65 73 74 2e 64 62 0a 20 20 20 20  ete test.db.    
1180: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
1190: 64 62 0a 20 20 20 20 64 62 20 65 76 61 6c 20 22  db.    db eval "
11a0: 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20  PRAGMA encoding 
11b0: 3d 20 27 55 54 46 2d 38 27 22 0a 20 20 20 20 64  = 'UTF-8'".    d
11c0: 62 20 65 76 61 6c 20 22 43 52 45 41 54 45 20 54  b eval "CREATE T
11d0: 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63  ABLE abc(a, b, c
11e0: 29 3b 22 0a 20 20 7d 20 7b 7d 0a 20 20 64 6f 5f  );".  } {}.  do_
11f0: 74 65 73 74 20 65 6e 63 32 2d 34 2e 32 20 7b 0a  test enc2-4.2 {.
1200: 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20      forcedelete 
1210: 74 65 73 74 32 2e 64 62 0a 20 20 20 20 73 71 6c  test2.db.    sql
1220: 69 74 65 33 20 64 62 32 20 74 65 73 74 32 2e 64  ite3 db2 test2.d
1230: 62 0a 20 20 20 20 64 62 32 20 65 76 61 6c 20 22  b.    db2 eval "
1240: 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20  PRAGMA encoding 
1250: 3d 20 27 55 54 46 2d 31 36 27 22 0a 20 20 20 20  = 'UTF-16'".    
1260: 64 62 32 20 65 76 61 6c 20 22 43 52 45 41 54 45  db2 eval "CREATE
1270: 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c   TABLE abc(a, b,
1280: 20 63 29 3b 22 0a 20 20 7d 20 7b 7d 0a 20 20 64   c);".  } {}.  d
1290: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 34 2e 33 20  o_test enc2-4.3 
12a0: 7b 0a 20 20 20 20 63 61 74 63 68 73 71 6c 20 7b  {.    catchsql {
12b0: 0a 20 20 20 20 20 20 41 54 54 41 43 48 20 27 74  .      ATTACH 't
12c0: 65 73 74 32 2e 64 62 27 20 61 73 20 61 75 78 3b  est2.db' as aux;
12d0: 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 31 20 7b 61  .    }.  } {1 {a
12e0: 74 74 61 63 68 65 64 20 64 61 74 61 62 61 73 65  ttached database
12f0: 73 20 6d 75 73 74 20 75 73 65 20 74 68 65 20 73  s must use the s
1300: 61 6d 65 20 74 65 78 74 20 65 6e 63 6f 64 69 6e  ame text encodin
1310: 67 20 61 73 20 6d 61 69 6e 20 64 61 74 61 62 61  g as main databa
1320: 73 65 7d 7d 0a 20 20 64 62 32 20 63 6c 6f 73 65  se}}.  db2 close
1330: 0a 20 20 64 62 20 63 6c 6f 73 65 0a 7d 0a 0a 23  .  db close.}..#
1340: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74   The following t
1350: 65 73 74 73 20 2d 20 65 6e 63 32 2d 35 2e 2a 20  ests - enc2-5.* 
1360: 2d 20 74 65 73 74 20 74 68 61 74 20 53 51 4c 69  - test that SQLi
1370: 74 65 20 73 65 6c 65 63 74 73 20 74 68 65 20 63  te selects the c
1380: 6f 72 72 65 63 74 0a 23 20 63 6f 6c 6c 61 74 69  orrect.# collati
1390: 6f 6e 20 73 65 71 75 65 6e 63 65 20 77 68 65 6e  on sequence when
13a0: 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20 69   more than one i
13b0: 73 20 61 76 61 69 6c 61 62 6c 65 2e 0a 0a 73 65  s available...se
13c0: 74 20 3a 3a 76 61 6c 75 65 73 20 5b 6c 69 73 74  t ::values [list
13d0: 20 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20 66   one two three f
13e0: 6f 75 72 20 66 69 76 65 5d 0a 73 65 74 20 3a 3a  our five].set ::
13f0: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63  test_collate_enc
1400: 20 49 4e 56 41 4c 49 44 0a 70 72 6f 63 20 74 65   INVALID.proc te
1410: 73 74 5f 63 6f 6c 6c 61 74 65 20 7b 65 6e 63 20  st_collate {enc 
1420: 6c 68 73 20 72 68 73 7d 20 7b 0a 20 20 73 65 74  lhs rhs} {.  set
1430: 20 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f   ::test_collate_
1440: 65 6e 63 20 24 65 6e 63 0a 20 20 73 65 74 20 6c  enc $enc.  set l
1450: 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74   [lsearch -exact
1460: 20 24 3a 3a 76 61 6c 75 65 73 20 24 6c 68 73 5d   $::values $lhs]
1470: 0a 20 20 73 65 74 20 72 20 5b 6c 73 65 61 72 63  .  set r [lsearc
1480: 68 20 2d 65 78 61 63 74 20 24 3a 3a 76 61 6c 75  h -exact $::valu
1490: 65 73 20 24 72 68 73 5d 0a 20 20 73 65 74 20 72  es $rhs].  set r
14a0: 65 73 20 5b 65 78 70 72 20 24 6c 20 2d 20 24 72  es [expr $l - $r
14b0: 5d 0a 20 20 23 20 70 75 74 73 20 22 65 6e 63 3d  ].  # puts "enc=
14c0: 24 65 6e 63 20 6c 68 73 3d 24 6c 68 73 2f 24 6c  $enc lhs=$lhs/$l
14d0: 20 72 68 73 3d 24 72 68 73 2f 24 72 20 72 65 73   rhs=$rhs/$r res
14e0: 3d 24 72 65 73 22 0a 20 20 72 65 74 75 72 6e 20  =$res".  return 
14f0: 24 72 65 73 0a 7d 0a 0a 66 6f 72 63 65 64 65 6c  $res.}..forcedel
1500: 65 74 65 20 74 65 73 74 2e 64 62 0a 73 71 6c 69  ete test.db.sqli
1510: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20  te3 db test.db; 
1520: 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f  set DB [sqlite3_
1530: 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74  connection_point
1540: 65 72 20 64 62 5d 0a 64 6f 5f 74 65 73 74 20 65  er db].do_test e
1550: 6e 63 32 2d 35 2e 30 20 7b 0a 20 20 65 78 65 63  nc2-5.0 {.  exec
1560: 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45  sql {.    CREATE
1570: 20 54 41 42 4c 45 20 74 35 28 61 29 3b 0a 20 20   TABLE t5(a);.  
1580: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35    INSERT INTO t5
1590: 20 56 41 4c 55 45 53 28 27 6f 6e 65 27 29 3b 0a   VALUES('one');.
15a0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
15b0: 74 35 20 56 41 4c 55 45 53 28 27 74 77 6f 27 29  t5 VALUES('two')
15c0: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
15d0: 4f 20 74 35 20 56 41 4c 55 45 53 28 27 66 69 76  O t5 VALUES('fiv
15e0: 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  e');.    INSERT 
15f0: 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27  INTO t5 VALUES('
1600: 74 68 72 65 65 27 29 3b 0a 20 20 20 20 49 4e 53  three');.    INS
1610: 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55  ERT INTO t5 VALU
1620: 45 53 28 27 66 6f 75 72 27 29 3b 0a 20 20 7d 0a  ES('four');.  }.
1630: 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63  } {}.do_test enc
1640: 32 2d 35 2e 31 20 7b 0a 20 20 61 64 64 5f 74 65  2-5.1 {.  add_te
1650: 73 74 5f 63 6f 6c 6c 61 74 65 20 24 44 42 20 31  st_collate $DB 1
1660: 20 31 20 31 0a 20 20 73 65 74 20 72 65 73 20 5b   1 1.  set res [
1670: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
1680: 2a 20 46 52 4f 4d 20 74 35 20 4f 52 44 45 52 20  * FROM t5 ORDER 
1690: 42 59 20 31 20 43 4f 4c 4c 41 54 45 20 74 65 73  BY 1 COLLATE tes
16a0: 74 5f 63 6f 6c 6c 61 74 65 3b 7d 5d 0a 20 20 6c  t_collate;}].  l
16b0: 61 70 70 65 6e 64 20 72 65 73 20 24 3a 3a 74 65  append res $::te
16c0: 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63 0a 7d  st_collate_enc.}
16d0: 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20   {one two three 
16e0: 66 6f 75 72 20 66 69 76 65 20 55 54 46 2d 38 7d  four five UTF-8}
16f0: 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e  .do_test enc2-5.
1700: 32 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63  2 {.  add_test_c
1710: 6f 6c 6c 61 74 65 20 24 44 42 20 30 20 31 20 30  ollate $DB 0 1 0
1720: 0a 20 20 73 65 74 20 72 65 73 20 5b 65 78 65 63  .  set res [exec
1730: 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  sql {SELECT * FR
1740: 4f 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20 31  OM t5 ORDER BY 1
1750: 20 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f   COLLATE test_co
1760: 6c 6c 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e  llate}].  lappen
1770: 64 20 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f  d res $::test_co
1780: 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65  llate_enc.} {one
1790: 20 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20   two three four 
17a0: 66 69 76 65 20 55 54 46 2d 31 36 4c 45 7d 0a 64  five UTF-16LE}.d
17b0: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 33 20  o_test enc2-5.3 
17c0: 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c  {.  add_test_col
17d0: 6c 61 74 65 20 24 44 42 20 30 20 30 20 31 0a 20  late $DB 0 0 1. 
17e0: 20 73 65 74 20 72 65 73 20 5b 65 78 65 63 73 71   set res [execsq
17f0: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
1800: 20 74 35 20 4f 52 44 45 52 20 42 59 20 31 20 43   t5 ORDER BY 1 C
1810: 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c  OLLATE test_coll
1820: 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20  ate}].  lappend 
1830: 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c  res $::test_coll
1840: 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74  ate_enc.} {one t
1850: 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66 69  wo three four fi
1860: 76 65 20 55 54 46 2d 31 36 42 45 7d 0a 0a 64 62  ve UTF-16BE}..db
1870: 20 63 6c 6f 73 65 0a 66 6f 72 63 65 64 65 6c 65   close.forcedele
1880: 74 65 20 74 65 73 74 2e 64 62 0a 73 71 6c 69 74  te test.db.sqlit
1890: 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e3 db test.db; s
18a0: 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f 63  et DB [sqlite3_c
18b0: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
18c0: 72 20 64 62 5d 0a 65 78 65 63 73 71 6c 20 7b 70  r db].execsql {p
18d0: 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e 67 20 3d  ragma encoding =
18e0: 20 27 55 54 46 2d 31 36 4c 45 27 7d 0a 64 6f 5f   'UTF-16LE'}.do_
18f0: 74 65 73 74 20 65 6e 63 32 2d 35 2e 34 20 7b 0a  test enc2-5.4 {.
1900: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
1910: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 35 28  CREATE TABLE t5(
1920: 61 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  a);.    INSERT I
1930: 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27 6f  NTO t5 VALUES('o
1940: 6e 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  ne');.    INSERT
1950: 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28   INTO t5 VALUES(
1960: 27 74 77 6f 27 29 3b 0a 20 20 20 20 49 4e 53 45  'two');.    INSE
1970: 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45  RT INTO t5 VALUE
1980: 53 28 27 66 69 76 65 27 29 3b 0a 20 20 20 20 49  S('five');.    I
1990: 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41  NSERT INTO t5 VA
19a0: 4c 55 45 53 28 27 74 68 72 65 65 27 29 3b 0a 20  LUES('three');. 
19b0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
19c0: 35 20 56 41 4c 55 45 53 28 27 66 6f 75 72 27 29  5 VALUES('four')
19d0: 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65  ;.  }.} {}.do_te
19e0: 73 74 20 65 6e 63 32 2d 35 2e 35 20 7b 0a 20 20  st enc2-5.5 {.  
19f0: 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65  add_test_collate
1a00: 20 24 44 42 20 31 20 31 20 31 0a 20 20 73 65 74   $DB 1 1 1.  set
1a10: 20 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53   res [execsql {S
1a20: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20  ELECT * FROM t5 
1a30: 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41  ORDER BY 1 COLLA
1a40: 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d  TE test_collate}
1a50: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20  ].  lappend res 
1a60: 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f  $::test_collate_
1a70: 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74  enc.} {one two t
1a80: 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55  hree four five U
1a90: 54 46 2d 31 36 4c 45 7d 0a 64 6f 5f 74 65 73 74  TF-16LE}.do_test
1aa0: 20 65 6e 63 32 2d 35 2e 36 20 7b 0a 20 20 61 64   enc2-5.6 {.  ad
1ab0: 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24  d_test_collate $
1ac0: 44 42 20 31 20 30 20 31 0a 20 20 73 65 74 20 72  DB 1 0 1.  set r
1ad0: 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c  es [execsql {SEL
1ae0: 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52  ECT * FROM t5 OR
1af0: 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54 45  DER BY 1 COLLATE
1b00: 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d 0a   test_collate}].
1b10: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24 3a    lappend res $:
1b20: 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e  :test_collate_en
1b30: 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72  c.} {one two thr
1b40: 65 65 20 66 6f 75 72 20 66 69 76 65 20 55 54 46  ee four five UTF
1b50: 2d 31 36 42 45 7d 0a 64 6f 5f 74 65 73 74 20 65  -16BE}.do_test e
1b60: 6e 63 32 2d 35 2e 37 20 7b 0a 20 20 61 64 64 5f  nc2-5.7 {.  add_
1b70: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24 44 42  test_collate $DB
1b80: 20 31 20 30 20 30 0a 20 20 73 65 74 20 72 65 73   1 0 0.  set res
1b90: 20 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43   [execsql {SELEC
1ba0: 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52 44 45  T * FROM t5 ORDE
1bb0: 52 20 42 59 20 31 20 43 4f 4c 4c 41 54 45 20 74  R BY 1 COLLATE t
1bc0: 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d 0a 20 20  est_collate}].  
1bd0: 6c 61 70 70 65 6e 64 20 72 65 73 20 24 3a 3a 74  lappend res $::t
1be0: 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63 0a  est_collate_enc.
1bf0: 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65 65  } {one two three
1c00: 20 66 6f 75 72 20 66 69 76 65 20 55 54 46 2d 38   four five UTF-8
1c10: 7d 0a 0a 64 62 20 63 6c 6f 73 65 0a 66 6f 72 63  }..db close.forc
1c20: 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 0a  edelete test.db.
1c30: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
1c40: 64 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c 69  db; set DB [sqli
1c50: 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70  te3_connection_p
1c60: 6f 69 6e 74 65 72 20 64 62 5d 0a 65 78 65 63 73  ointer db].execs
1c70: 71 6c 20 7b 70 72 61 67 6d 61 20 65 6e 63 6f 64  ql {pragma encod
1c80: 69 6e 67 20 3d 20 27 55 54 46 2d 31 36 42 45 27  ing = 'UTF-16BE'
1c90: 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35  }.do_test enc2-5
1ca0: 2e 38 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .8 {.  execsql {
1cb0: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
1cc0: 45 20 74 35 28 61 29 3b 0a 20 20 20 20 49 4e 53  E t5(a);.    INS
1cd0: 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55  ERT INTO t5 VALU
1ce0: 45 53 28 27 6f 6e 65 27 29 3b 0a 20 20 20 20 49  ES('one');.    I
1cf0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41  NSERT INTO t5 VA
1d00: 4c 55 45 53 28 27 74 77 6f 27 29 3b 0a 20 20 20  LUES('two');.   
1d10: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20   INSERT INTO t5 
1d20: 56 41 4c 55 45 53 28 27 66 69 76 65 27 29 3b 0a  VALUES('five');.
1d30: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1d40: 74 35 20 56 41 4c 55 45 53 28 27 74 68 72 65 65  t5 VALUES('three
1d50: 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  ');.    INSERT I
1d60: 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27 66  NTO t5 VALUES('f
1d70: 6f 75 72 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a  our');.  }.} {}.
1d80: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 39  do_test enc2-5.9
1d90: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f   {.  add_test_co
1da0: 6c 6c 61 74 65 20 24 44 42 20 31 20 31 20 31 0a  llate $DB 1 1 1.
1db0: 20 20 73 65 74 20 72 65 73 20 5b 65 78 65 63 73    set res [execs
1dc0: 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  ql {SELECT * FRO
1dd0: 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20 31 20  M t5 ORDER BY 1 
1de0: 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c  COLLATE test_col
1df0: 6c 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64  late}].  lappend
1e00: 20 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c   res $::test_col
1e10: 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20  late_enc.} {one 
1e20: 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66  two three four f
1e30: 69 76 65 20 55 54 46 2d 31 36 42 45 7d 0a 64 6f  ive UTF-16BE}.do
1e40: 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31 30 20  _test enc2-5.10 
1e50: 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c  {.  add_test_col
1e60: 6c 61 74 65 20 24 44 42 20 31 20 31 20 30 0a 20  late $DB 1 1 0. 
1e70: 20 73 65 74 20 72 65 73 20 5b 65 78 65 63 73 71   set res [execsq
1e80: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
1e90: 20 74 35 20 4f 52 44 45 52 20 42 59 20 31 20 43   t5 ORDER BY 1 C
1ea0: 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c  OLLATE test_coll
1eb0: 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20  ate}].  lappend 
1ec0: 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c  res $::test_coll
1ed0: 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74  ate_enc.} {one t
1ee0: 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66 69  wo three four fi
1ef0: 76 65 20 55 54 46 2d 31 36 4c 45 7d 0a 64 6f 5f  ve UTF-16LE}.do_
1f00: 74 65 73 74 20 65 6e 63 32 2d 35 2e 31 31 20 7b  test enc2-5.11 {
1f10: 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c  .  add_test_coll
1f20: 61 74 65 20 24 44 42 20 31 20 30 20 30 0a 20 20  ate $DB 1 0 0.  
1f30: 73 65 74 20 72 65 73 20 5b 65 78 65 63 73 71 6c  set res [execsql
1f40: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
1f50: 74 35 20 4f 52 44 45 52 20 42 59 20 31 20 43 4f  t5 ORDER BY 1 CO
1f60: 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61  LLATE test_colla
1f70: 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72  te}].  lappend r
1f80: 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61  es $::test_colla
1f90: 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77  te_enc.} {one tw
1fa0: 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66 69 76  o three four fiv
1fb0: 65 20 55 54 46 2d 38 7d 0a 0a 23 20 41 6c 73 6f  e UTF-8}..# Also
1fc0: 20 74 65 73 74 20 74 68 61 74 20 61 20 55 54 46   test that a UTF
1fd0: 2d 31 36 20 63 6f 6c 6c 61 74 69 6f 6e 20 66 61  -16 collation fa
1fe0: 63 74 6f 72 79 20 77 6f 72 6b 73 2e 0a 64 6f 5f  ctory works..do_
1ff0: 74 65 73 74 20 65 6e 63 32 2d 35 2d 31 32 20 7b  test enc2-5-12 {
2000: 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c  .  add_test_coll
2010: 61 74 65 20 24 44 42 20 30 20 30 20 30 0a 20 20  ate $DB 0 0 0.  
2020: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53  catchsql {.    S
2030: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20  ELECT * FROM t5 
2040: 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41  ORDER BY 1 COLLA
2050: 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 0a  TE test_collate.
2060: 20 20 7d 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75 63    }.} {1 {no suc
2070: 68 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75  h collation sequ
2080: 65 6e 63 65 3a 20 74 65 73 74 5f 63 6f 6c 6c 61  ence: test_colla
2090: 74 65 7d 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63  te}}.do_test enc
20a0: 32 2d 35 2e 31 33 20 7b 0a 20 20 61 64 64 5f 74  2-5.13 {.  add_t
20b0: 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65 64  est_collate_need
20c0: 65 64 20 24 44 42 20 0a 20 20 73 65 74 20 72 65  ed $DB .  set re
20d0: 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  s [execsql {SELE
20e0: 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52 44  CT * FROM t5 ORD
20f0: 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54 45 20  ER BY 1 COLLATE 
2100: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 3b 20 7d 5d  test_collate; }]
2110: 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24  .  lappend res $
2120: 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65  ::test_collate_e
2130: 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68  nc.} {one two th
2140: 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55 54  ree four five UT
2150: 46 2d 31 36 42 45 7d 0a 64 6f 5f 74 65 73 74 20  F-16BE}.do_test 
2160: 65 6e 63 32 2d 35 2e 31 34 20 7b 0a 20 20 73 65  enc2-5.14 {.  se
2170: 74 20 3a 3a 73 71 6c 69 74 65 5f 6c 61 73 74 5f  t ::sqlite_last_
2180: 6e 65 65 64 65 64 5f 63 6f 6c 6c 61 74 69 6f 6e  needed_collation
2190: 0a 7d 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 0a  .} test_collate.
21a0: 0a 64 62 20 63 6c 6f 73 65 0a 66 6f 72 63 65 64  .db close.forced
21b0: 65 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 0a 64  elete test.db..d
21c0: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31 35  o_test enc2-5.15
21d0: 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20   {.  sqlite3 db 
21e0: 74 65 73 74 2e 64 62 3b 20 73 65 74 20 3a 3a 44  test.db; set ::D
21f0: 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  B [sqlite3_conne
2200: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
2210: 5d 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c  ].  add_test_col
2220: 6c 61 74 65 5f 6e 65 65 64 65 64 20 24 3a 3a 44  late_needed $::D
2230: 42 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65  B.  set ::sqlite
2240: 5f 6c 61 73 74 5f 6e 65 65 64 65 64 5f 63 6f 6c  _last_needed_col
2250: 6c 61 74 69 6f 6e 0a 7d 20 7b 7d 0a 64 6f 5f 74  lation.} {}.do_t
2260: 65 73 74 20 65 6e 63 32 2d 35 2e 31 36 20 7b 0a  est enc2-5.16 {.
2270: 20 20 65 78 65 63 73 71 6c 20 7b 43 52 45 41 54    execsql {CREAT
2280: 45 20 54 41 42 4c 45 20 74 31 28 61 20 76 61 72  E TABLE t1(a var
2290: 63 68 61 72 20 63 6f 6c 6c 61 74 65 20 74 65 73  char collate tes
22a0: 74 5f 63 6f 6c 6c 61 74 65 29 3b 7d 0a 7d 20 7b  t_collate);}.} {
22b0: 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35  }.do_test enc2-5
22c0: 2e 31 37 20 7b 0a 20 20 73 65 74 20 3a 3a 73 71  .17 {.  set ::sq
22d0: 6c 69 74 65 5f 6c 61 73 74 5f 6e 65 65 64 65 64  lite_last_needed
22e0: 5f 63 6f 6c 6c 61 74 69 6f 6e 0a 7d 20 7b 74 65  _collation.} {te
22f0: 73 74 5f 63 6f 6c 6c 61 74 65 7d 0a 0a 23 20 54  st_collate}..# T
2300: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 65 73  he following tes
2310: 74 73 20 2d 20 65 6e 63 32 2d 36 2e 2a 20 2d 20  ts - enc2-6.* - 
2320: 74 65 73 74 20 74 68 61 74 20 53 51 4c 69 74 65  test that SQLite
2330: 20 73 65 6c 65 63 74 73 20 74 68 65 20 63 6f 72   selects the cor
2340: 72 65 63 74 0a 23 20 75 73 65 72 20 66 75 6e 63  rect.# user func
2350: 74 69 6f 6e 20 77 68 65 6e 20 6d 6f 72 65 20 74  tion when more t
2360: 68 61 6e 20 6f 6e 65 20 69 73 20 61 76 61 69 6c  han one is avail
2370: 61 62 6c 65 2e 0a 0a 70 72 6f 63 20 74 65 73 74  able...proc test
2380: 5f 66 75 6e 63 74 69 6f 6e 20 7b 65 6e 63 20 61  _function {enc a
2390: 72 67 7d 20 7b 0a 20 20 72 65 74 75 72 6e 20 22  rg} {.  return "
23a0: 24 65 6e 63 20 24 61 72 67 22 0a 7d 0a 0a 64 62  $enc $arg".}..db
23b0: 20 63 6c 6f 73 65 0a 66 6f 72 63 65 64 65 6c 65   close.forcedele
23c0: 74 65 20 74 65 73 74 2e 64 62 0a 73 71 6c 69 74  te test.db.sqlit
23d0: 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e3 db test.db; s
23e0: 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f 63  et DB [sqlite3_c
23f0: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
2400: 72 20 64 62 5d 0a 65 78 65 63 73 71 6c 20 7b 70  r db].execsql {p
2410: 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e 67 20 3d  ragma encoding =
2420: 20 27 55 54 46 2d 38 27 7d 0a 64 6f 5f 74 65 73   'UTF-8'}.do_tes
2430: 74 20 65 6e 63 32 2d 36 2e 30 20 7b 0a 20 20 65  t enc2-6.0 {.  e
2440: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52 45  xecsql {.    CRE
2450: 41 54 45 20 54 41 42 4c 45 20 74 35 28 61 29 3b  ATE TABLE t5(a);
2460: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
2470: 20 74 35 20 56 41 4c 55 45 53 28 27 6f 6e 65 27   t5 VALUES('one'
2480: 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74  );.  }.} {}.do_t
2490: 65 73 74 20 65 6e 63 32 2d 36 2e 31 20 7b 0a 20  est enc2-6.1 {. 
24a0: 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74 69   add_test_functi
24b0: 6f 6e 20 24 44 42 20 31 20 31 20 31 0a 20 20 65  on $DB 1 1 1.  e
24c0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c  xecsql {.    SEL
24d0: 45 43 54 20 74 65 73 74 5f 66 75 6e 63 74 69 6f  ECT test_functio
24e0: 6e 28 27 73 71 6c 69 74 65 27 29 0a 20 20 7d 0a  n('sqlite').  }.
24f0: 7d 20 7b 7b 55 54 46 2d 38 20 73 71 6c 69 74 65  } {{UTF-8 sqlite
2500: 7d 7d 0a 64 62 20 63 6c 6f 73 65 0a 73 71 6c 69  }}.db close.sqli
2510: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20  te3 db test.db; 
2520: 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f  set DB [sqlite3_
2530: 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74  connection_point
2540: 65 72 20 64 62 5d 0a 64 6f 5f 74 65 73 74 20 65  er db].do_test e
2550: 6e 63 32 2d 36 2e 32 20 7b 0a 20 20 61 64 64 5f  nc2-6.2 {.  add_
2560: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44  test_function $D
2570: 42 20 30 20 31 20 30 0a 20 20 65 78 65 63 73 71  B 0 1 0.  execsq
2580: 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74  l {.    SELECT t
2590: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71  est_function('sq
25a0: 6c 69 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55  lite').  }.} {{U
25b0: 54 46 2d 31 36 4c 45 20 73 71 6c 69 74 65 7d 7d  TF-16LE sqlite}}
25c0: 0a 64 62 20 63 6c 6f 73 65 0a 73 71 6c 69 74 65  .db close.sqlite
25d0: 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73 65  3 db test.db; se
25e0: 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f  t DB [sqlite3_co
25f0: 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72  nnection_pointer
2600: 20 64 62 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63   db].do_test enc
2610: 32 2d 36 2e 33 20 7b 0a 20 20 61 64 64 5f 74 65  2-6.3 {.  add_te
2620: 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42 20  st_function $DB 
2630: 30 20 30 20 31 0a 20 20 65 78 65 63 73 71 6c 20  0 0 1.  execsql 
2640: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74 65 73  {.    SELECT tes
2650: 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69  t_function('sqli
2660: 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46  te').  }.} {{UTF
2670: 2d 31 36 42 45 20 73 71 6c 69 74 65 7d 7d 0a 0a  -16BE sqlite}}..
2680: 64 62 20 63 6c 6f 73 65 0a 66 6f 72 63 65 64 65  db close.forcede
2690: 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 73 71 6c  lete test.db.sql
26a0: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b  ite3 db test.db;
26b0: 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33   set DB [sqlite3
26c0: 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e  _connection_poin
26d0: 74 65 72 20 64 62 5d 0a 65 78 65 63 73 71 6c 20  ter db].execsql 
26e0: 7b 70 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e 67  {pragma encoding
26f0: 20 3d 20 27 55 54 46 2d 31 36 4c 45 27 7d 0a 64   = 'UTF-16LE'}.d
2700: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 33 20  o_test enc2-6.3 
2710: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  {.  execsql {.  
2720: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
2730: 35 28 61 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  5(a);.    INSERT
2740: 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28   INTO t5 VALUES(
2750: 27 73 71 6c 69 74 65 27 29 3b 0a 20 20 7d 0a 7d  'sqlite');.  }.}
2760: 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32   {}.do_test enc2
2770: 2d 36 2e 34 20 7b 0a 20 20 61 64 64 5f 74 65 73  -6.4 {.  add_tes
2780: 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42 20 31  t_function $DB 1
2790: 20 31 20 31 0a 20 20 65 78 65 63 73 71 6c 20 7b   1 1.  execsql {
27a0: 0a 20 20 20 20 53 45 4c 45 43 54 20 74 65 73 74  .    SELECT test
27b0: 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74  _function('sqlit
27c0: 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d  e').  }.} {{UTF-
27d0: 31 36 4c 45 20 73 71 6c 69 74 65 7d 7d 0a 64 62  16LE sqlite}}.db
27e0: 20 63 6c 6f 73 65 0a 73 71 6c 69 74 65 33 20 64   close.sqlite3 d
27f0: 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44  b test.db; set D
2800: 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  B [sqlite3_conne
2810: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
2820: 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36  ].do_test enc2-6
2830: 2e 35 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f  .5 {.  add_test_
2840: 66 75 6e 63 74 69 6f 6e 20 24 44 42 20 30 20 31  function $DB 0 1
2850: 20 30 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   0.  execsql {. 
2860: 20 20 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66     SELECT test_f
2870: 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27  unction('sqlite'
2880: 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36  ).  }.} {{UTF-16
2890: 4c 45 20 73 71 6c 69 74 65 7d 7d 0a 64 62 20 63  LE sqlite}}.db c
28a0: 6c 6f 73 65 0a 73 71 6c 69 74 65 33 20 64 62 20  lose.sqlite3 db 
28b0: 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44 42 20  test.db; set DB 
28c0: 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74  [sqlite3_connect
28d0: 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a  ion_pointer db].
28e0: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 36  do_test enc2-6.6
28f0: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75   {.  add_test_fu
2900: 6e 63 74 69 6f 6e 20 24 44 42 20 30 20 30 20 31  nction $DB 0 0 1
2910: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
2920: 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e   SELECT test_fun
2930: 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a  ction('sqlite').
2940: 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 42 45    }.} {{UTF-16BE
2950: 20 73 71 6c 69 74 65 7d 7d 0a 0a 64 62 20 63 6c   sqlite}}..db cl
2960: 6f 73 65 0a 66 6f 72 63 65 64 65 6c 65 74 65 20  ose.forcedelete 
2970: 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65 33 20  test.db.sqlite3 
2980: 64 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20  db test.db; set 
2990: 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e  DB [sqlite3_conn
29a0: 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64  ection_pointer d
29b0: 62 5d 0a 65 78 65 63 73 71 6c 20 7b 70 72 61 67  b].execsql {prag
29c0: 6d 61 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55  ma encoding = 'U
29d0: 54 46 2d 31 36 42 45 27 7d 0a 64 6f 5f 74 65 73  TF-16BE'}.do_tes
29e0: 74 20 65 6e 63 32 2d 36 2e 37 20 7b 0a 20 20 65  t enc2-6.7 {.  e
29f0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52 45  xecsql {.    CRE
2a00: 41 54 45 20 54 41 42 4c 45 20 74 35 28 61 29 3b  ATE TABLE t5(a);
2a10: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
2a20: 20 74 35 20 56 41 4c 55 45 53 28 27 73 71 6c 69   t5 VALUES('sqli
2a30: 74 65 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64  te');.  }.} {}.d
2a40: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 38 20  o_test enc2-6.8 
2a50: 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75 6e  {.  add_test_fun
2a60: 63 74 69 6f 6e 20 24 44 42 20 31 20 31 20 31 0a  ction $DB 1 1 1.
2a70: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
2a80: 53 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e 63  SELECT test_func
2a90: 74 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a 20  tion('sqlite'). 
2aa0: 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 42 45 20   }.} {{UTF-16BE 
2ab0: 73 71 6c 69 74 65 7d 7d 0a 64 62 20 63 6c 6f 73  sqlite}}.db clos
2ac0: 65 0a 73 71 6c 69 74 65 33 20 64 62 20 74 65 73  e.sqlite3 db tes
2ad0: 74 2e 64 62 3b 20 73 65 74 20 44 42 20 5b 73 71  t.db; set DB [sq
2ae0: 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e  lite3_connection
2af0: 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 64 6f 5f  _pointer db].do_
2b00: 74 65 73 74 20 65 6e 63 32 2d 36 2e 39 20 7b 0a  test enc2-6.9 {.
2b10: 20 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74    add_test_funct
2b20: 69 6f 6e 20 24 44 42 20 30 20 31 20 30 0a 20 20  ion $DB 0 1 0.  
2b30: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45  execsql {.    SE
2b40: 4c 45 43 54 20 74 65 73 74 5f 66 75 6e 63 74 69  LECT test_functi
2b50: 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a 20 20 7d  on('sqlite').  }
2b60: 0a 7d 20 7b 7b 55 54 46 2d 31 36 4c 45 20 73 71  .} {{UTF-16LE sq
2b70: 6c 69 74 65 7d 7d 0a 64 62 20 63 6c 6f 73 65 0a  lite}}.db close.
2b80: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
2b90: 64 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c 69  db; set DB [sqli
2ba0: 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70  te3_connection_p
2bb0: 6f 69 6e 74 65 72 20 64 62 5d 0a 64 6f 5f 74 65  ointer db].do_te
2bc0: 73 74 20 65 6e 63 32 2d 36 2e 31 30 20 7b 0a 20  st enc2-6.10 {. 
2bd0: 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74 69   add_test_functi
2be0: 6f 6e 20 24 44 42 20 30 20 30 20 31 0a 20 20 65  on $DB 0 0 1.  e
2bf0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c  xecsql {.    SEL
2c00: 45 43 54 20 74 65 73 74 5f 66 75 6e 63 74 69 6f  ECT test_functio
2c10: 6e 28 27 73 71 6c 69 74 65 27 29 0a 20 20 7d 0a  n('sqlite').  }.
2c20: 7d 20 7b 7b 55 54 46 2d 31 36 42 45 20 73 71 6c  } {{UTF-16BE sql
2c30: 69 74 65 7d 7d 0a 0a 0a 64 62 20 63 6c 6f 73 65  ite}}...db close
2c40: 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73  .forcedelete tes
2c50: 74 2e 64 62 0a 0a 23 20 54 68 65 20 66 6f 6c 6c  t.db..# The foll
2c60: 6f 77 69 6e 67 20 74 65 73 74 73 20 2d 20 65 6e  owing tests - en
2c70: 63 32 2d 37 2e 2a 20 2d 20 66 75 6e 63 74 69 6f  c2-7.* - functio
2c80: 6e 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a  n as follows:.#.
2c90: 23 20 31 3a 20 4f 70 65 6e 20 61 6e 20 65 6d 70  # 1: Open an emp
2ca0: 74 79 20 64 61 74 61 62 61 73 65 20 66 69 6c 65  ty database file
2cb0: 20 61 73 73 75 6d 69 6e 67 20 55 54 46 2d 31 36   assuming UTF-16
2cc0: 20 65 6e 63 6f 64 69 6e 67 2e 0a 23 20 32 3a 20   encoding..# 2: 
2cd0: 4f 70 65 6e 20 74 68 65 20 73 61 6d 65 20 64 61  Open the same da
2ce0: 74 61 62 61 73 65 20 77 69 74 68 20 61 20 64 69  tabase with a di
2cf0: 66 66 65 72 65 6e 74 20 68 61 6e 64 6c 65 20 61  fferent handle a
2d00: 73 73 75 6d 69 6e 67 20 55 54 46 2d 38 2e 20 43  ssuming UTF-8. C
2d10: 72 65 61 74 65 0a 23 20 20 20 20 61 20 74 61 62  reate.#    a tab
2d20: 6c 65 20 75 73 69 6e 67 20 74 68 69 73 20 68 61  le using this ha
2d30: 6e 64 6c 65 2e 0a 23 20 33 3a 20 52 65 61 64 20  ndle..# 3: Read 
2d40: 74 68 65 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  the sqlite_maste
2d50: 72 20 74 61 62 6c 65 20 66 72 6f 6d 20 74 68 65  r table from the
2d60: 20 66 69 72 73 74 20 68 61 6e 64 6c 65 2e 20 0a   first handle. .
2d70: 23 20 34 3a 20 45 6e 73 75 72 65 20 74 68 65 20  # 4: Ensure the 
2d80: 66 69 72 73 74 20 68 61 6e 64 6c 65 20 72 65 63  first handle rec
2d90: 6f 67 6e 69 73 65 73 20 74 68 65 20 64 61 74 61  ognises the data
2da0: 62 61 73 65 20 65 6e 63 6f 64 69 6e 67 20 69 73  base encoding is
2db0: 20 55 54 46 2d 38 2e 0a 23 0a 64 6f 5f 74 65 73   UTF-8..#.do_tes
2dc0: 74 20 65 6e 63 32 2d 37 2e 31 20 7b 0a 20 20 73  t enc2-7.1 {.  s
2dd0: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
2de0: 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  b.  execsql {.  
2df0: 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e    PRAGMA encodin
2e00: 67 20 3d 20 27 55 54 46 2d 31 36 27 3b 0a 20 20  g = 'UTF-16';.  
2e10: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
2e20: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20  sqlite_master;. 
2e30: 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20   }.} {}.do_test 
2e40: 65 6e 63 32 2d 37 2e 32 20 7b 0a 20 20 73 65 74  enc2-7.2 {.  set
2e50: 20 65 6e 63 20 5b 65 78 65 63 73 71 6c 20 7b 0a   enc [execsql {.
2e60: 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64      PRAGMA encod
2e70: 69 6e 67 3b 0a 20 20 7d 5d 0a 20 20 73 74 72 69  ing;.  }].  stri
2e80: 6e 67 20 72 61 6e 67 65 20 24 65 6e 63 20 30 20  ng range $enc 0 
2e90: 65 6e 64 2d 32 20 3b 23 20 43 68 6f 70 20 6f 66  end-2 ;# Chop of
2ea0: 66 20 74 68 65 20 22 6c 65 22 20 6f 72 20 22 62  f the "le" or "b
2eb0: 65 22 0a 7d 20 7b 55 54 46 2d 31 36 7d 0a 64 6f  e".} {UTF-16}.do
2ec0: 5f 74 65 73 74 20 65 6e 63 32 2d 37 2e 33 20 7b  _test enc2-7.3 {
2ed0: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32 20 74  .  sqlite3 db2 t
2ee0: 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c  est.db.  execsql
2ef0: 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e   {.    PRAGMA en
2f00: 63 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 38 27  coding = 'UTF-8'
2f10: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
2f20: 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b  LE abc(a, b, c);
2f30: 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 7d 0a 64 6f  .  } db2.} {}.do
2f40: 5f 74 65 73 74 20 65 6e 63 32 2d 37 2e 34 20 7b  _test enc2-7.4 {
2f50: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
2f60: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73   SELECT * FROM s
2f70: 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20  qlite_master;.  
2f80: 7d 0a 7d 20 22 74 61 62 6c 65 20 61 62 63 20 61  }.} "table abc a
2f90: 62 63 20 5b 65 78 70 72 20 24 41 55 54 4f 56 41  bc [expr $AUTOVA
2fa0: 43 55 55 4d 3f 33 3a 32 5d 20 7b 43 52 45 41 54  CUUM?3:2] {CREAT
2fb0: 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62  E TABLE abc(a, b
2fc0: 2c 20 63 29 7d 22 0a 64 6f 5f 74 65 73 74 20 65  , c)}".do_test e
2fd0: 6e 63 32 2d 37 2e 35 20 7b 0a 20 20 65 78 65 63  nc2-7.5 {.  exec
2fe0: 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41  sql {.    PRAGMA
2ff0: 20 65 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d   encoding;.  }.}
3000: 20 7b 55 54 46 2d 38 7d 0a 0a 64 62 20 63 6c 6f   {UTF-8}..db clo
3010: 73 65 0a 64 62 32 20 63 6c 6f 73 65 0a 0a 70 72  se.db2 close..pr
3020: 6f 63 20 75 74 66 31 36 20 7b 75 74 66 38 7d 20  oc utf16 {utf8} 
3030: 7b 0a 20 20 73 65 74 20 75 74 66 31 36 20 5b 65  {.  set utf16 [e
3040: 6e 63 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74 74  ncoding convertt
3050: 6f 20 75 6e 69 63 6f 64 65 20 24 75 74 66 38 5d  o unicode $utf8]
3060: 0a 20 20 61 70 70 65 6e 64 20 75 74 66 31 36 20  .  append utf16 
3070: 22 5c 78 30 30 5c 78 30 30 22 0a 20 20 72 65 74  "\x00\x00".  ret
3080: 75 72 6e 20 24 75 74 66 31 36 0a 7d 0a 69 66 63  urn $utf16.}.ifc
3090: 61 70 61 62 6c 65 20 7b 63 6f 6d 70 6c 65 74 65  apable {complete
30a0: 7d 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 65 6e  } {.  do_test en
30b0: 63 32 2d 38 2e 31 20 7b 0a 20 20 20 20 73 71 6c  c2-8.1 {.    sql
30c0: 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36 20  ite3_complete16 
30d0: 5b 75 74 66 31 36 20 22 53 45 4c 45 43 54 20 2a  [utf16 "SELECT *
30e0: 20 46 52 4f 4d 20 74 31 3b 22 5d 0a 20 20 7d 20   FROM t1;"].  } 
30f0: 7b 31 7d 0a 20 20 64 6f 5f 74 65 73 74 20 65 6e  {1}.  do_test en
3100: 63 32 2d 38 2e 32 20 7b 0a 20 20 20 20 73 71 6c  c2-8.2 {.    sql
3110: 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36 20  ite3_complete16 
3120: 5b 75 74 66 31 36 20 22 53 45 4c 45 43 54 20 2a  [utf16 "SELECT *
3130: 20 46 52 4f 4d 22 5d 0a 20 20 7d 20 7b 30 7d 0a   FROM"].  } {0}.
3140: 7d 0a 0a 23 20 54 65 73 74 20 74 68 61 74 20 74  }..# Test that t
3150: 68 65 20 65 6e 63 6f 64 69 6e 67 20 6f 66 20 61  he encoding of a
3160: 6e 20 65 6d 70 74 79 20 64 61 74 61 62 61 73 65  n empty database
3170: 20 6d 61 79 20 73 74 69 6c 6c 20 62 65 20 73 65   may still be se
3180: 74 20 61 66 74 65 72 20 74 68 65 0a 23 20 28 65  t after the.# (e
3190: 6d 70 74 79 29 20 73 63 68 65 6d 61 20 68 61 73  mpty) schema has
31a0: 20 62 65 65 6e 20 69 6e 69 74 69 61 6c 69 7a 65   been initialize
31b0: 64 2e 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74  d..forcedelete t
31c0: 65 73 74 2e 64 62 0a 64 6f 5f 74 65 73 74 20 65  est.db.do_test e
31d0: 6e 63 32 2d 39 2e 31 20 7b 0a 20 20 73 71 6c 69  nc2-9.1 {.  sqli
31e0: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20  te3 db test.db. 
31f0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50   execsql {.    P
3200: 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d  RAGMA encoding =
3210: 20 27 55 54 46 2d 38 27 3b 0a 20 20 20 20 50 52   'UTF-8';.    PR
3220: 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3b 0a 20  AGMA encoding;. 
3230: 20 7d 0a 7d 20 7b 55 54 46 2d 38 7d 0a 64 6f 5f   }.} {UTF-8}.do_
3240: 74 65 73 74 20 65 6e 63 32 2d 39 2e 32 20 7b 0a  test enc2-9.2 {.
3250: 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73    sqlite3 db tes
3260: 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b  t.db.  execsql {
3270: 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f  .    PRAGMA enco
3280: 64 69 6e 67 20 3d 20 27 55 54 46 2d 31 36 6c 65  ding = 'UTF-16le
3290: 27 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e  ';.    PRAGMA en
32a0: 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d 20 7b 55  coding;.  }.} {U
32b0: 54 46 2d 31 36 6c 65 7d 0a 64 6f 5f 74 65 73 74  TF-16le}.do_test
32c0: 20 65 6e 63 32 2d 39 2e 33 20 7b 0a 20 20 73 71   enc2-9.3 {.  sq
32d0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
32e0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
32f0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73   SELECT * FROM s
3300: 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20  qlite_master;.  
3310: 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e    PRAGMA encodin
3320: 67 20 3d 20 27 55 54 46 2d 38 27 3b 0a 20 20 20  g = 'UTF-8';.   
3330: 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67   PRAGMA encoding
3340: 3b 0a 20 20 7d 0a 7d 20 7b 55 54 46 2d 38 7d 0a  ;.  }.} {UTF-8}.
3350: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 39 2e 34  do_test enc2-9.4
3360: 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20   {.  sqlite3 db 
3370: 74 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71  test.db.  execsq
3380: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 65  l {.    PRAGMA e
3390: 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 31  ncoding = 'UTF-1
33a0: 36 6c 65 27 3b 0a 20 20 20 20 43 52 45 41 54 45  6le';.    CREATE
33b0: 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c   TABLE abc(a, b,
33c0: 20 63 29 3b 0a 20 20 20 20 50 52 41 47 4d 41 20   c);.    PRAGMA 
33d0: 65 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d 20  encoding;.  }.} 
33e0: 7b 55 54 46 2d 31 36 6c 65 7d 0a 64 6f 5f 74 65  {UTF-16le}.do_te
33f0: 73 74 20 65 6e 63 32 2d 39 2e 35 20 7b 0a 20 20  st enc2-9.5 {.  
3400: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
3410: 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  db.  execsql {. 
3420: 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69     PRAGMA encodi
3430: 6e 67 20 3d 20 27 55 54 46 2d 38 27 3b 0a 20 20  ng = 'UTF-8';.  
3440: 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e    PRAGMA encodin
3450: 67 3b 0a 20 20 7d 0a 7d 20 7b 55 54 46 2d 31 36  g;.  }.} {UTF-16
3460: 6c 65 7d 0a 0a 23 20 54 69 63 6b 65 74 20 23 31  le}..# Ticket #1
3470: 39 38 37 2e 0a 23 20 44 69 73 61 6c 6c 6f 77 20  987..# Disallow 
3480: 65 6e 63 6f 64 69 6e 67 20 63 68 61 6e 67 65 73  encoding changes
3490: 20 6f 6e 63 65 20 74 68 65 20 65 6e 63 6f 64 69   once the encodi
34a0: 6e 67 20 68 61 73 20 62 65 65 6e 20 73 65 74 2e  ng has been set.
34b0: 0a 23 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  .#.do_test enc2-
34c0: 31 30 2e 31 20 7b 0a 20 20 64 62 20 63 6c 6f 73  10.1 {.  db clos
34d0: 65 0a 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20  e.  forcedelete 
34e0: 74 65 73 74 2e 64 62 20 74 65 73 74 2e 64 62 2d  test.db test.db-
34f0: 6a 6f 75 72 6e 61 6c 0a 20 20 73 71 6c 69 74 65  journal.  sqlite
3500: 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20 64  3 db test.db.  d
3510: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 50 52 41  b eval {.    PRA
3520: 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3d 55 54 46  GMA encoding=UTF
3530: 31 36 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54  16;.    CREATE T
3540: 41 42 4c 45 20 74 31 28 61 29 3b 0a 20 20 20 20  ABLE t1(a);.    
3550: 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3d  PRAGMA encoding=
3560: 55 54 46 38 3b 0a 20 20 20 20 43 52 45 41 54 45  UTF8;.    CREATE
3570: 20 54 41 42 4c 45 20 74 32 28 62 29 3b 0a 20 20   TABLE t2(b);.  
3580: 7d 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 73  }.  db close.  s
3590: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
35a0: 62 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20  b.  db eval {.  
35b0: 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52    SELECT name FR
35c0: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
35d0: 0a 20 20 7d 0a 7d 20 7b 74 31 20 74 32 7d 0a 0a  .  }.} {t1 t2}..
35e0: 66 69 6e 69 73 68 5f 74 65 73 74 0a              finish_test.