SQLite4
Hex Artifact Content
Not logged in

Artifact ec6dabe5c869be9454460101e1d1594fec5297c3:


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 75 72 20 6f 66 20 74 68 65  behaviour of the
0480: 20 6c 69 62 72 61 72 79 20 77 68 65 6e 20 61 20   library when a 
0490: 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e  collation sequen
04a0: 63 65 20 69 73 0a 23 20 20 20 20 20 20 20 20 20  ce is.#         
04b0: 20 20 6e 6f 74 20 61 76 61 69 6c 61 62 6c 65 20    not available 
04c0: 66 6f 72 20 74 68 65 20 6d 6f 73 74 20 64 65 73  for the most des
04d0: 69 72 61 62 6c 65 20 74 65 78 74 20 65 6e 63 6f  irable text enco
04e0: 64 69 6e 67 2e 0a 23 20 65 6e 63 32 2e 36 2e 2a  ding..# enc2.6.*
04f0: 3a 20 53 69 6d 69 6c 61 72 20 74 65 73 74 20 66  : Similar test f
0500: 6f 72 20 75 73 65 72 20 66 75 6e 63 74 69 6f 6e  or user function
0510: 73 2e 0a 23 20 65 6e 63 32 2e 37 2e 2a 3a 20 54  s..# enc2.7.*: T
0520: 65 73 74 20 74 68 61 74 20 74 68 65 20 56 65 72  est that the Ver
0530: 69 66 79 43 6f 6f 6b 69 65 20 6f 70 63 6f 64 65  ifyCookie opcode
0540: 20 70 72 6f 74 65 63 74 73 20 61 67 61 69 6e 73   protects agains
0550: 74 20 61 73 73 75 6d 69 6e 67 20 74 68 65 0a 23  t assuming the.#
0560: 20 20 20 20 20 20 20 20 20 20 20 77 72 6f 6e 67             wrong
0570: 20 74 65 78 74 20 65 6e 63 6f 64 69 6e 67 20 66   text encoding f
0580: 6f 72 20 74 68 65 20 64 61 74 61 62 61 73 65 2e  or the database.
0590: 0a 23 20 65 6e 63 32 2e 38 2e 2a 3a 20 54 65 73  .# enc2.8.*: Tes
05a0: 74 20 73 71 6c 69 74 65 34 5f 63 6f 6d 70 6c 65  t sqlite4_comple
05b0: 74 65 31 36 28 29 0a 23 0a 0a 64 62 20 63 6c 6f  te16().#..db clo
05c0: 73 65 0a 0a 23 20 52 65 74 75 72 6e 20 74 68 65  se..# Return the
05d0: 20 55 54 46 2d 38 20 72 65 70 72 65 73 65 6e 74   UTF-8 represent
05e0: 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 73 75 70  ation of the sup
05f0: 70 6c 69 65 64 20 55 54 46 2d 31 36 20 73 74 72  plied UTF-16 str
0600: 69 6e 67 20 24 73 74 72 2e 20 0a 70 72 6f 63 20  ing $str. .proc 
0610: 75 74 66 38 20 7b 73 74 72 7d 20 7b 0a 20 20 23  utf8 {str} {.  #
0620: 20 49 66 20 24 73 74 72 20 65 6e 64 73 20 69 6e   If $str ends in
0630: 20 74 77 6f 20 30 78 30 30 20 30 78 30 30 20 62   two 0x00 0x00 b
0640: 79 74 65 73 2c 20 6b 6e 6f 63 6b 20 74 68 65 73  ytes, knock thes
0650: 65 20 6f 66 66 20 62 65 66 6f 72 65 0a 20 20 23  e off before.  #
0660: 20 63 6f 6e 76 65 72 74 69 6e 67 20 74 6f 20 55   converting to U
0670: 54 46 2d 38 20 75 73 69 6e 67 20 54 43 4c 2e 0a  TF-8 using TCL..
0680: 20 20 62 69 6e 61 72 79 20 73 63 61 6e 20 24 73    binary scan $s
0690: 74 72 20 5c 63 2a 20 76 61 6c 73 0a 20 20 69 66  tr \c* vals.  if
06a0: 20 7b 5b 6c 69 6e 64 65 78 20 24 76 61 6c 73 20   {[lindex $vals 
06b0: 65 6e 64 5d 3d 3d 30 20 26 26 20 5b 6c 69 6e 64  end]==0 && [lind
06c0: 65 78 20 24 76 61 6c 73 20 65 6e 64 2d 31 5d 3d  ex $vals end-1]=
06d0: 3d 30 7d 20 7b 0a 20 20 20 20 73 65 74 20 73 74  =0} {.    set st
06e0: 72 20 5b 62 69 6e 61 72 79 20 66 6f 72 6d 61 74  r [binary format
06f0: 20 5c 63 2a 20 5b 6c 72 61 6e 67 65 20 24 76 61   \c* [lrange $va
0700: 6c 73 20 30 20 65 6e 64 2d 32 5d 5d 0a 20 20 7d  ls 0 end-2]].  }
0710: 0a 0a 20 20 73 65 74 20 72 20 5b 65 6e 63 6f 64  ..  set r [encod
0720: 69 6e 67 20 63 6f 6e 76 65 72 74 66 72 6f 6d 20  ing convertfrom 
0730: 75 6e 69 63 6f 64 65 20 24 73 74 72 5d 0a 20 20  unicode $str].  
0740: 72 65 74 75 72 6e 20 24 72 0a 7d 0a 0a 23 0a 23  return $r.}..#.#
0750: 20 54 68 69 73 20 70 72 6f 63 20 63 6f 6e 74 61   This proc conta
0760: 69 6e 73 20 61 6c 6c 20 74 68 65 20 74 65 73 74  ins all the test
0770: 73 20 69 6e 20 74 68 69 73 20 66 69 6c 65 2e 20  s in this file. 
0780: 49 74 20 69 73 20 72 75 6e 0a 23 20 74 68 72 65  It is run.# thre
0790: 65 20 74 69 6d 65 73 2e 20 45 61 63 68 20 74 69  e times. Each ti
07a0: 6d 65 20 74 68 65 20 66 69 6c 65 20 27 74 65 73  me the file 'tes
07b0: 74 2e 64 62 27 20 63 6f 6e 74 61 69 6e 73 20 61  t.db' contains a
07c0: 20 64 61 74 61 62 61 73 65 0a 23 20 77 69 74 68   database.# with
07d0: 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 63   the following c
07e0: 6f 6e 74 65 6e 74 73 3a 0a 73 65 74 20 64 62 63  ontents:.set dbc
07f0: 6f 6e 74 65 6e 74 73 20 7b 0a 20 20 43 52 45 41  ontents {.  CREA
0800: 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 50 52  TE TABLE t1(a PR
0810: 49 4d 41 52 59 20 4b 45 59 2c 20 62 2c 20 63 29  IMARY KEY, b, c)
0820: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
0830: 74 31 20 56 41 4c 55 45 53 28 27 6f 6e 65 27 2c  t1 VALUES('one',
0840: 20 27 49 27 2c 20 31 29 3b 0a 7d 0a 23 20 54 68   'I', 1);.}.# Th
0850: 69 73 20 70 72 6f 63 20 74 65 73 74 73 20 74 68  is proc tests th
0860: 61 74 20 77 65 20 63 61 6e 20 6f 70 65 6e 20 61  at we can open a
0870: 6e 64 20 6d 61 6e 69 70 75 6c 61 74 65 20 74 68  nd manipulate th
0880: 65 20 74 65 73 74 2e 64 62 20 0a 23 20 64 61 74  e test.db .# dat
0890: 61 62 61 73 65 2c 20 61 6e 64 20 74 68 61 74 20  abase, and that 
08a0: 69 74 20 69 73 20 70 6f 73 73 69 62 6c 65 20 74  it is possible t
08b0: 6f 20 72 65 74 72 65 69 76 65 20 76 61 6c 75 65  o retreive value
08c0: 73 20 69 6e 0a 23 20 76 61 72 69 6f 75 73 20 74  s in.# various t
08d0: 65 78 74 20 65 6e 63 6f 64 69 6e 67 73 2e 0a 23  ext encodings..#
08e0: 0a 70 72 6f 63 20 72 75 6e 5f 74 65 73 74 5f 73  .proc run_test_s
08f0: 63 72 69 70 74 20 7b 74 20 65 6e 63 7d 20 7b 0a  cript {t enc} {.
0900: 0a 23 20 4f 70 65 6e 20 74 68 65 20 64 61 74 61  .# Open the data
0910: 62 61 73 65 20 61 6e 64 20 70 75 6c 6c 20 6f 75  base and pull ou
0920: 74 20 61 20 28 74 68 65 29 20 72 6f 77 2e 0a 64  t a (the) row..d
0930: 6f 5f 74 65 73 74 20 24 74 2e 31 20 7b 0a 20 20  o_test $t.1 {.  
0940: 73 71 6c 69 74 65 34 20 64 62 20 74 65 73 74 2e  sqlite4 db test.
0950: 64 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c 69  db; set DB [sqli
0960: 74 65 34 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70  te4_connection_p
0970: 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 65 78 65  ointer db].  exe
0980: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  csql {SELECT * F
0990: 52 4f 4d 20 74 31 7d 0a 7d 20 7b 6f 6e 65 20 49  ROM t1}.} {one I
09a0: 20 31 7d 0a 0a 23 20 49 6e 73 65 72 74 20 73 6f   1}..# Insert so
09b0: 6d 65 20 64 61 74 61 0a 64 6f 5f 74 65 73 74 20  me data.do_test 
09c0: 24 74 2e 32 20 7b 0a 20 20 65 78 65 63 73 71 6c  $t.2 {.  execsql
09d0: 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31   {INSERT INTO t1
09e0: 20 56 41 4c 55 45 53 28 27 74 77 6f 27 2c 20 27   VALUES('two', '
09f0: 49 49 27 2c 20 32 29 3b 7d 0a 20 20 65 78 65 63  II', 2);}.  exec
0a00: 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  sql {SELECT * FR
0a10: 4f 4d 20 74 31 7d 0a 7d 20 7b 6f 6e 65 20 49 20  OM t1}.} {one I 
0a20: 31 20 74 77 6f 20 49 49 20 32 7d 0a 0a 23 20 49  1 two II 2}..# I
0a30: 6e 73 65 72 74 20 73 6f 6d 65 20 64 61 74 61 20  nsert some data 
0a40: 0a 64 6f 5f 74 65 73 74 20 24 74 2e 33 20 7b 0a  .do_test $t.3 {.
0a50: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
0a60: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
0a70: 41 4c 55 45 53 28 27 74 68 72 65 65 27 2c 27 49  ALUES('three','I
0a80: 49 49 27 2c 33 29 3b 0a 20 20 20 20 49 4e 53 45  II',3);.    INSE
0a90: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
0aa0: 53 28 27 66 6f 75 72 27 2c 27 49 56 27 2c 34 29  S('four','IV',4)
0ab0: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
0ac0: 4f 20 74 31 20 56 41 4c 55 45 53 28 27 66 69 76  O t1 VALUES('fiv
0ad0: 65 27 2c 27 56 27 2c 35 29 3b 0a 20 20 7d 0a 20  e','V',5);.  }. 
0ae0: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
0af0: 20 2a 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 66   * FROM t1}.} {f
0b00: 69 76 65 20 56 20 35 20 66 6f 75 72 20 49 56 20  ive V 5 four IV 
0b10: 34 20 6f 6e 65 20 49 20 31 20 74 68 72 65 65 20  4 one I 1 three 
0b20: 49 49 49 20 33 20 74 77 6f 20 49 49 20 32 7d 0a  III 3 two II 2}.
0b30: 0a 23 20 55 73 65 20 74 68 65 20 69 6e 64 65 78  .# Use the index
0b40: 0a 64 6f 5f 74 65 73 74 20 24 74 2e 34 20 7b 0a  .do_test $t.4 {.
0b50: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
0b60: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
0b70: 20 57 48 45 52 45 20 61 20 3d 20 27 6f 6e 65 27   WHERE a = 'one'
0b80: 3b 0a 20 20 7d 0a 7d 20 7b 6f 6e 65 20 49 20 31  ;.  }.} {one I 1
0b90: 7d 0a 64 6f 5f 74 65 73 74 20 24 74 2e 35 20 7b  }.do_test $t.5 {
0ba0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
0bb0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
0bc0: 31 20 57 48 45 52 45 20 61 20 3d 20 27 66 6f 75  1 WHERE a = 'fou
0bd0: 72 27 3b 0a 20 20 7d 0a 7d 20 7b 66 6f 75 72 20  r';.  }.} {four 
0be0: 49 56 20 34 7d 0a 69 66 63 61 70 61 62 6c 65 20  IV 4}.ifcapable 
0bf0: 73 75 62 71 75 65 72 79 20 7b 0a 20 20 64 6f 5f  subquery {.  do_
0c00: 74 65 73 74 20 24 74 2e 36 20 7b 0a 20 20 20 20  test $t.6 {.    
0c10: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20  execsql {.      
0c20: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
0c30: 20 57 48 45 52 45 20 61 20 49 4e 20 28 27 6f 6e   WHERE a IN ('on
0c40: 65 27 2c 20 27 74 77 6f 27 29 3b 0a 20 20 20 20  e', 'two');.    
0c50: 7d 0a 20 20 7d 20 7b 6f 6e 65 20 49 20 31 20 74  }.  } {one I 1 t
0c60: 77 6f 20 49 49 20 32 7d 0a 7d 0a 0a 23 20 4e 6f  wo II 2}.}..# No
0c70: 77 20 63 68 65 63 6b 20 74 68 61 74 20 77 65 20  w check that we 
0c80: 63 61 6e 20 72 65 74 72 69 65 76 65 20 64 61 74  can retrieve dat
0c90: 61 20 69 6e 20 62 6f 74 68 20 55 54 46 2d 31 36  a in both UTF-16
0ca0: 20 61 6e 64 20 55 54 46 2d 38 0a 64 6f 5f 74 65   and UTF-8.do_te
0cb0: 73 74 20 24 74 2e 37 20 7b 0a 20 20 73 65 74 20  st $t.7 {.  set 
0cc0: 53 54 4d 54 20 5b 73 71 6c 69 74 65 34 5f 70 72  STMT [sqlite4_pr
0cd0: 65 70 61 72 65 20 24 44 42 20 22 53 45 4c 45 43  epare $DB "SELEC
0ce0: 54 20 61 20 46 52 4f 4d 20 74 31 20 57 48 45 52  T a FROM t1 WHER
0cf0: 45 20 63 3e 33 3b 22 20 2d 31 20 54 41 49 4c 5d  E c>3;" -1 TAIL]
0d00: 0a 20 20 73 71 6c 69 74 65 34 5f 73 74 65 70 20  .  sqlite4_step 
0d10: 24 53 54 4d 54 0a 20 20 73 71 6c 69 74 65 34 5f  $STMT.  sqlite4_
0d20: 63 6f 6c 75 6d 6e 5f 74 65 78 74 20 24 53 54 4d  column_text $STM
0d30: 54 20 30 0a 7d 20 7b 66 69 76 65 7d 0a 0a 64 6f  T 0.} {five}..do
0d40: 5f 74 65 73 74 20 24 74 2e 38 20 7b 0a 20 20 73  _test $t.8 {.  s
0d50: 71 6c 69 74 65 34 5f 73 74 65 70 20 24 53 54 4d  qlite4_step $STM
0d60: 54 0a 20 20 75 74 66 38 20 5b 73 71 6c 69 74 65  T.  utf8 [sqlite
0d70: 34 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 20  4_column_text16 
0d80: 24 53 54 4d 54 20 30 5d 0a 7d 20 7b 66 6f 75 72  $STMT 0].} {four
0d90: 7d 0a 0a 64 6f 5f 74 65 73 74 20 24 74 2e 39 20  }..do_test $t.9 
0da0: 7b 0a 20 20 73 71 6c 69 74 65 34 5f 66 69 6e 61  {.  sqlite4_fina
0db0: 6c 69 7a 65 20 24 53 54 4d 54 0a 7d 20 53 51 4c  lize $STMT.} SQL
0dc0: 49 54 45 34 5f 4f 4b 0a 0a 64 6f 5f 74 65 73 74  ITE4_OK..do_test
0dd0: 20 24 74 2e 31 30 20 7b 0a 20 20 64 62 20 65 76   $t.10 {.  db ev
0de0: 61 6c 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64  al {PRAGMA encod
0df0: 69 6e 67 7d 0a 7d 20 24 65 6e 63 0a 0a 7d 0a 0a  ing}.} $enc..}..
0e00: 23 20 54 68 65 20 74 68 72 65 65 20 75 6e 69 63  # The three unic
0e10: 6f 64 65 20 65 6e 63 6f 64 69 6e 67 73 20 75 6e  ode encodings un
0e20: 64 65 72 73 74 6f 6f 64 20 62 79 20 53 51 4c 69  derstood by SQLi
0e30: 74 65 2e 0a 73 65 74 20 65 6e 63 6f 64 69 6e 67  te..set encoding
0e40: 73 20 5b 6c 69 73 74 20 55 54 46 2d 38 20 55 54  s [list UTF-8 UT
0e50: 46 2d 31 36 6c 65 20 55 54 46 2d 31 36 62 65 5d  F-16le UTF-16be]
0e60: 0a 0a 73 65 74 20 73 71 6c 69 74 65 5f 6f 73 5f  ..set sqlite_os_
0e70: 74 72 61 63 65 20 30 0a 73 65 74 20 69 20 31 0a  trace 0.set i 1.
0e80: 66 6f 72 65 61 63 68 20 65 6e 63 20 24 65 6e 63  foreach enc $enc
0e90: 6f 64 69 6e 67 73 20 7b 0a 20 20 66 6f 72 63 65  odings {.  force
0ea0: 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 20  delete test.db. 
0eb0: 20 73 71 6c 69 74 65 34 20 64 62 20 74 65 73 74   sqlite4 db test
0ec0: 2e 64 62 0a 20 20 64 62 20 65 76 61 6c 20 22 50  .db.  db eval "P
0ed0: 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d  RAGMA encoding =
0ee0: 20 5c 22 24 65 6e 63 5c 22 22 0a 20 20 65 78 65   \"$enc\"".  exe
0ef0: 63 73 71 6c 20 24 64 62 63 6f 6e 74 65 6e 74 73  csql $dbcontents
0f00: 0a 20 20 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  .  do_test enc2-
0f10: 24 69 2e 30 2e 31 20 7b 0a 20 20 20 20 64 62 20  $i.0.1 {.    db 
0f20: 65 76 61 6c 20 7b 50 52 41 47 4d 41 20 65 6e 63  eval {PRAGMA enc
0f30: 6f 64 69 6e 67 7d 0a 20 20 7d 20 24 65 6e 63 0a  oding}.  } $enc.
0f40: 20 20 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 24    do_test enc2-$
0f50: 69 2e 30 2e 32 20 7b 0a 20 20 20 20 64 62 20 65  i.0.2 {.    db e
0f60: 76 61 6c 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f  val {PRAGMA enco
0f70: 64 69 6e 67 3d 55 54 46 38 7d 0a 20 20 20 20 64  ding=UTF8}.    d
0f80: 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20 65  b eval {PRAGMA e
0f90: 6e 63 6f 64 69 6e 67 7d 0a 20 20 7d 20 24 65 6e  ncoding}.  } $en
0fa0: 63 0a 20 20 64 6f 5f 74 65 73 74 20 65 6e 63 32  c.  do_test enc2
0fb0: 2d 24 69 2e 30 2e 33 20 7b 0a 20 20 20 20 64 62  -$i.0.3 {.    db
0fc0: 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20 65 6e   eval {PRAGMA en
0fd0: 63 6f 64 69 6e 67 3d 55 54 46 31 36 6c 65 7d 0a  coding=UTF16le}.
0fe0: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 50 52 41      db eval {PRA
0ff0: 47 4d 41 20 65 6e 63 6f 64 69 6e 67 7d 0a 20 20  GMA encoding}.  
1000: 7d 20 24 65 6e 63 0a 20 20 64 6f 5f 74 65 73 74  } $enc.  do_test
1010: 20 65 6e 63 32 2d 24 69 2e 30 2e 34 20 7b 0a 20   enc2-$i.0.4 {. 
1020: 20 20 20 64 62 20 65 76 61 6c 20 7b 50 52 41 47     db eval {PRAG
1030: 4d 41 20 65 6e 63 6f 64 69 6e 67 3d 55 54 46 31  MA encoding=UTF1
1040: 36 62 65 7d 0a 20 20 20 20 64 62 20 65 76 61 6c  6be}.    db eval
1050: 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e   {PRAGMA encodin
1060: 67 7d 0a 20 20 7d 20 24 65 6e 63 0a 0a 20 20 64  g}.  } $enc..  d
1070: 62 20 63 6c 6f 73 65 0a 20 20 72 75 6e 5f 74 65  b close.  run_te
1080: 73 74 5f 73 63 72 69 70 74 20 65 6e 63 32 2d 24  st_script enc2-$
1090: 69 20 24 65 6e 63 0a 20 20 64 62 20 63 6c 6f 73  i $enc.  db clos
10a0: 65 0a 20 20 69 6e 63 72 20 69 0a 7d 0a 0a 23 20  e.  incr i.}..# 
10b0: 54 65 73 74 20 74 68 61 74 20 69 74 20 69 73 20  Test that it is 
10c0: 61 6e 20 65 72 72 6f 72 20 74 6f 20 74 72 79 20  an error to try 
10d0: 74 6f 20 61 74 74 61 63 68 20 61 20 64 61 74 61  to attach a data
10e0: 62 61 73 65 20 77 69 74 68 20 61 20 64 69 66 66  base with a diff
10f0: 65 72 65 6e 74 0a 23 20 65 6e 63 6f 64 69 6e 67  erent.# encoding
1100: 20 74 6f 20 74 68 65 20 6d 61 69 6e 20 64 61 74   to the main dat
1110: 61 62 61 73 65 2e 0a 69 66 63 61 70 61 62 6c 65  abase..ifcapable
1120: 20 61 74 74 61 63 68 20 7b 0a 20 20 64 6f 5f 74   attach {.  do_t
1130: 65 73 74 20 65 6e 63 32 2d 34 2e 31 20 7b 0a 20  est enc2-4.1 {. 
1140: 20 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 74     forcedelete t
1150: 65 73 74 2e 64 62 0a 20 20 20 20 73 71 6c 69 74  est.db.    sqlit
1160: 65 34 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20  e4 db test.db.  
1170: 20 20 64 62 20 65 76 61 6c 20 22 50 52 41 47 4d    db eval "PRAGM
1180: 41 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54  A encoding = 'UT
1190: 46 2d 38 27 22 0a 20 20 20 20 64 62 20 65 76 61  F-8'".    db eva
11a0: 6c 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20  l "CREATE TABLE 
11b0: 61 62 63 28 61 2c 20 62 2c 20 63 29 3b 22 0a 20  abc(a, b, c);". 
11c0: 20 7d 20 7b 7d 0a 20 20 64 6f 5f 74 65 73 74 20   } {}.  do_test 
11d0: 65 6e 63 32 2d 34 2e 32 20 7b 0a 20 20 20 20 66  enc2-4.2 {.    f
11e0: 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 32  orcedelete test2
11f0: 2e 64 62 0a 20 20 20 20 73 71 6c 69 74 65 34 20  .db.    sqlite4 
1200: 64 62 32 20 74 65 73 74 32 2e 64 62 0a 20 20 20  db2 test2.db.   
1210: 20 64 62 32 20 65 76 61 6c 20 22 50 52 41 47 4d   db2 eval "PRAGM
1220: 41 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54  A encoding = 'UT
1230: 46 2d 31 36 27 22 0a 20 20 20 20 64 62 32 20 65  F-16'".    db2 e
1240: 76 61 6c 20 22 43 52 45 41 54 45 20 54 41 42 4c  val "CREATE TABL
1250: 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b 22  E abc(a, b, c);"
1260: 0a 20 20 7d 20 7b 7d 0a 20 20 64 6f 5f 74 65 73  .  } {}.  do_tes
1270: 74 20 65 6e 63 32 2d 34 2e 33 20 7b 0a 20 20 20  t enc2-4.3 {.   
1280: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
1290: 20 20 41 54 54 41 43 48 20 27 74 65 73 74 32 2e    ATTACH 'test2.
12a0: 64 62 27 20 61 73 20 61 75 78 3b 0a 20 20 20 20  db' as aux;.    
12b0: 7d 0a 20 20 7d 20 7b 31 20 7b 61 74 74 61 63 68  }.  } {1 {attach
12c0: 65 64 20 64 61 74 61 62 61 73 65 73 20 6d 75 73  ed databases mus
12d0: 74 20 75 73 65 20 74 68 65 20 73 61 6d 65 20 74  t use the same t
12e0: 65 78 74 20 65 6e 63 6f 64 69 6e 67 20 61 73 20  ext encoding as 
12f0: 6d 61 69 6e 20 64 61 74 61 62 61 73 65 7d 7d 0a  main database}}.
1300: 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 64 62    db2 close.  db
1310: 20 63 6c 6f 73 65 0a 7d 0a 0a 23 20 54 68 65 20   close.}..# The 
1320: 66 6f 6c 6c 6f 77 69 6e 67 20 74 65 73 74 73 20  following tests 
1330: 2d 20 65 6e 63 32 2d 35 2e 2a 20 2d 20 74 65 73  - enc2-5.* - tes
1340: 74 20 74 68 61 74 20 53 51 4c 69 74 65 20 73 65  t that SQLite se
1350: 6c 65 63 74 73 20 74 68 65 20 63 6f 72 72 65 63  lects the correc
1360: 74 0a 23 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65  t.# collation se
1370: 71 75 65 6e 63 65 20 77 68 65 6e 20 6d 6f 72 65  quence when more
1380: 20 74 68 61 6e 20 6f 6e 65 20 69 73 20 61 76 61   than one is ava
1390: 69 6c 61 62 6c 65 2e 0a 0a 73 65 74 20 3a 3a 76  ilable...set ::v
13a0: 61 6c 75 65 73 20 5b 6c 69 73 74 20 6f 6e 65 20  alues [list one 
13b0: 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66  two three four f
13c0: 69 76 65 5d 0a 73 65 74 20 3a 3a 74 65 73 74 5f  ive].set ::test_
13d0: 63 6f 6c 6c 61 74 65 5f 65 6e 63 20 49 4e 56 41  collate_enc INVA
13e0: 4c 49 44 0a 70 72 6f 63 20 74 65 73 74 5f 63 6f  LID.proc test_co
13f0: 6c 6c 61 74 65 20 7b 65 6e 63 20 6c 68 73 20 72  llate {enc lhs r
1400: 68 73 7d 20 7b 0a 20 20 73 65 74 20 3a 3a 74 65  hs} {.  set ::te
1410: 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63 20 24  st_collate_enc $
1420: 65 6e 63 0a 20 20 73 65 74 20 6c 20 5b 6c 73 65  enc.  set l [lse
1430: 61 72 63 68 20 2d 65 78 61 63 74 20 24 3a 3a 76  arch -exact $::v
1440: 61 6c 75 65 73 20 24 6c 68 73 5d 0a 20 20 73 65  alues $lhs].  se
1450: 74 20 72 20 5b 6c 73 65 61 72 63 68 20 2d 65 78  t r [lsearch -ex
1460: 61 63 74 20 24 3a 3a 76 61 6c 75 65 73 20 24 72  act $::values $r
1470: 68 73 5d 0a 20 20 73 65 74 20 72 65 73 20 5b 65  hs].  set res [e
1480: 78 70 72 20 24 6c 20 2d 20 24 72 5d 0a 20 20 23  xpr $l - $r].  #
1490: 20 70 75 74 73 20 22 65 6e 63 3d 24 65 6e 63 20   puts "enc=$enc 
14a0: 6c 68 73 3d 24 6c 68 73 2f 24 6c 20 72 68 73 3d  lhs=$lhs/$l rhs=
14b0: 24 72 68 73 2f 24 72 20 72 65 73 3d 24 72 65 73  $rhs/$r res=$res
14c0: 22 0a 20 20 72 65 74 75 72 6e 20 24 72 65 73 0a  ".  return $res.
14d0: 7d 0a 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74  }..forcedelete t
14e0: 65 73 74 2e 64 62 0a 73 71 6c 69 74 65 34 20 64  est.db.sqlite4 d
14f0: 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44  b test.db; set D
1500: 42 20 5b 73 71 6c 69 74 65 34 5f 63 6f 6e 6e 65  B [sqlite4_conne
1510: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
1520: 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35  ].do_test enc2-5
1530: 2e 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .0 {.  execsql {
1540: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
1550: 45 20 74 35 28 61 29 3b 0a 20 20 20 20 49 4e 53  E t5(a);.    INS
1560: 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55  ERT INTO t5 VALU
1570: 45 53 28 27 6f 6e 65 27 29 3b 0a 20 20 20 20 49  ES('one');.    I
1580: 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41  NSERT INTO t5 VA
1590: 4c 55 45 53 28 27 74 77 6f 27 29 3b 0a 20 20 20  LUES('two');.   
15a0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20   INSERT INTO t5 
15b0: 56 41 4c 55 45 53 28 27 66 69 76 65 27 29 3b 0a  VALUES('five');.
15c0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
15d0: 74 35 20 56 41 4c 55 45 53 28 27 74 68 72 65 65  t5 VALUES('three
15e0: 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  ');.    INSERT I
15f0: 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27 66  NTO t5 VALUES('f
1600: 6f 75 72 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a  our');.  }.} {}.
1610: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31  do_test enc2-5.1
1620: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f   {.  add_test_co
1630: 6c 6c 61 74 65 20 24 44 42 20 31 20 31 20 31 0a  llate $DB 1 1 1.
1640: 20 20 73 65 74 20 72 65 73 20 5b 65 78 65 63 73    set res [execs
1650: 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  ql {SELECT * FRO
1660: 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20 31 20  M t5 ORDER BY 1 
1670: 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c  COLLATE test_col
1680: 6c 61 74 65 3b 7d 5d 0a 20 20 6c 61 70 70 65 6e  late;}].  lappen
1690: 64 20 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f  d res $::test_co
16a0: 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65  llate_enc.} {one
16b0: 20 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20   two three four 
16c0: 66 69 76 65 20 55 54 46 2d 38 7d 0a 64 6f 5f 74  five UTF-8}.do_t
16d0: 65 73 74 20 65 6e 63 32 2d 35 2e 32 20 7b 0a 20  est enc2-5.2 {. 
16e0: 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74   add_test_collat
16f0: 65 20 24 44 42 20 30 20 31 20 30 0a 20 20 73 65  e $DB 0 1 0.  se
1700: 74 20 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b  t res [execsql {
1710: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35  SELECT * FROM t5
1720: 20 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c   ORDER BY 1 COLL
1730: 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65  ATE test_collate
1740: 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73  }].  lappend res
1750: 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65   $::test_collate
1760: 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20  _enc.} {one two 
1770: 74 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 20  three four five 
1780: 55 54 46 2d 31 36 4c 45 7d 0a 64 6f 5f 74 65 73  UTF-16LE}.do_tes
1790: 74 20 65 6e 63 32 2d 35 2e 33 20 7b 0a 20 20 61  t enc2-5.3 {.  a
17a0: 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20  dd_test_collate 
17b0: 24 44 42 20 30 20 30 20 31 0a 20 20 73 65 74 20  $DB 0 0 1.  set 
17c0: 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45  res [execsql {SE
17d0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f  LECT * FROM t5 O
17e0: 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54  RDER BY 1 COLLAT
17f0: 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d  E test_collate}]
1800: 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24  .  lappend res $
1810: 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65  ::test_collate_e
1820: 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68  nc.} {one two th
1830: 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55 54  ree four five UT
1840: 46 2d 31 36 42 45 7d 0a 0a 64 62 20 63 6c 6f 73  F-16BE}..db clos
1850: 65 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65  e.forcedelete te
1860: 73 74 2e 64 62 0a 73 71 6c 69 74 65 34 20 64 62  st.db.sqlite4 db
1870: 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44 42   test.db; set DB
1880: 20 5b 73 71 6c 69 74 65 34 5f 63 6f 6e 6e 65 63   [sqlite4_connec
1890: 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d  tion_pointer db]
18a0: 0a 65 78 65 63 73 71 6c 20 7b 70 72 61 67 6d 61  .execsql {pragma
18b0: 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46   encoding = 'UTF
18c0: 2d 31 36 4c 45 27 7d 0a 64 6f 5f 74 65 73 74 20  -16LE'}.do_test 
18d0: 65 6e 63 32 2d 35 2e 34 20 7b 0a 20 20 65 78 65  enc2-5.4 {.  exe
18e0: 63 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41 54  csql {.    CREAT
18f0: 45 20 54 41 42 4c 45 20 74 35 28 61 29 3b 0a 20  E TABLE t5(a);. 
1900: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1910: 35 20 56 41 4c 55 45 53 28 27 6f 6e 65 27 29 3b  5 VALUES('one');
1920: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
1930: 20 74 35 20 56 41 4c 55 45 53 28 27 74 77 6f 27   t5 VALUES('two'
1940: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
1950: 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27 66 69  TO t5 VALUES('fi
1960: 76 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  ve');.    INSERT
1970: 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28   INTO t5 VALUES(
1980: 27 74 68 72 65 65 27 29 3b 0a 20 20 20 20 49 4e  'three');.    IN
1990: 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c  SERT INTO t5 VAL
19a0: 55 45 53 28 27 66 6f 75 72 27 29 3b 0a 20 20 7d  UES('four');.  }
19b0: 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e  .} {}.do_test en
19c0: 63 32 2d 35 2e 35 20 7b 0a 20 20 61 64 64 5f 74  c2-5.5 {.  add_t
19d0: 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24 44 42 20  est_collate $DB 
19e0: 31 20 31 20 31 0a 20 20 73 65 74 20 72 65 73 20  1 1 1.  set res 
19f0: 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54  [execsql {SELECT
1a00: 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52 44 45 52   * FROM t5 ORDER
1a10: 20 42 59 20 31 20 43 4f 4c 4c 41 54 45 20 74 65   BY 1 COLLATE te
1a20: 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d 0a 20 20 6c  st_collate}].  l
1a30: 61 70 70 65 6e 64 20 72 65 73 20 24 3a 3a 74 65  append res $::te
1a40: 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63 0a 7d  st_collate_enc.}
1a50: 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20   {one two three 
1a60: 66 6f 75 72 20 66 69 76 65 20 55 54 46 2d 31 36  four five UTF-16
1a70: 4c 45 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32  LE}.do_test enc2
1a80: 2d 35 2e 36 20 7b 0a 20 20 61 64 64 5f 74 65 73  -5.6 {.  add_tes
1a90: 74 5f 63 6f 6c 6c 61 74 65 20 24 44 42 20 31 20  t_collate $DB 1 
1aa0: 30 20 31 0a 20 20 73 65 74 20 72 65 73 20 5b 65  0 1.  set res [e
1ab0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a  xecsql {SELECT *
1ac0: 20 46 52 4f 4d 20 74 35 20 4f 52 44 45 52 20 42   FROM t5 ORDER B
1ad0: 59 20 31 20 43 4f 4c 4c 41 54 45 20 74 65 73 74  Y 1 COLLATE test
1ae0: 5f 63 6f 6c 6c 61 74 65 7d 5d 0a 20 20 6c 61 70  _collate}].  lap
1af0: 70 65 6e 64 20 72 65 73 20 24 3a 3a 74 65 73 74  pend res $::test
1b00: 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b  _collate_enc.} {
1b10: 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20 66 6f  one two three fo
1b20: 75 72 20 66 69 76 65 20 55 54 46 2d 31 36 42 45  ur five UTF-16BE
1b30: 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35  }.do_test enc2-5
1b40: 2e 37 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f  .7 {.  add_test_
1b50: 63 6f 6c 6c 61 74 65 20 24 44 42 20 31 20 30 20  collate $DB 1 0 
1b60: 30 0a 20 20 73 65 74 20 72 65 73 20 5b 65 78 65  0.  set res [exe
1b70: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  csql {SELECT * F
1b80: 52 4f 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20  ROM t5 ORDER BY 
1b90: 31 20 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63  1 COLLATE test_c
1ba0: 6f 6c 6c 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65  ollate}].  lappe
1bb0: 6e 64 20 72 65 73 20 24 3a 3a 74 65 73 74 5f 63  nd res $::test_c
1bc0: 6f 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e  ollate_enc.} {on
1bd0: 65 20 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72  e two three four
1be0: 20 66 69 76 65 20 55 54 46 2d 38 7d 0a 0a 64 62   five UTF-8}..db
1bf0: 20 63 6c 6f 73 65 0a 66 6f 72 63 65 64 65 6c 65   close.forcedele
1c00: 74 65 20 74 65 73 74 2e 64 62 0a 73 71 6c 69 74  te test.db.sqlit
1c10: 65 34 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e4 db test.db; s
1c20: 65 74 20 44 42 20 5b 73 71 6c 69 74 65 34 5f 63  et DB [sqlite4_c
1c30: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
1c40: 72 20 64 62 5d 0a 65 78 65 63 73 71 6c 20 7b 70  r db].execsql {p
1c50: 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e 67 20 3d  ragma encoding =
1c60: 20 27 55 54 46 2d 31 36 42 45 27 7d 0a 64 6f 5f   'UTF-16BE'}.do_
1c70: 74 65 73 74 20 65 6e 63 32 2d 35 2e 38 20 7b 0a  test enc2-5.8 {.
1c80: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
1c90: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 35 28  CREATE TABLE t5(
1ca0: 61 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  a);.    INSERT I
1cb0: 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27 6f  NTO t5 VALUES('o
1cc0: 6e 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  ne');.    INSERT
1cd0: 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28   INTO t5 VALUES(
1ce0: 27 74 77 6f 27 29 3b 0a 20 20 20 20 49 4e 53 45  'two');.    INSE
1cf0: 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45  RT INTO t5 VALUE
1d00: 53 28 27 66 69 76 65 27 29 3b 0a 20 20 20 20 49  S('five');.    I
1d10: 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41  NSERT INTO t5 VA
1d20: 4c 55 45 53 28 27 74 68 72 65 65 27 29 3b 0a 20  LUES('three');. 
1d30: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1d40: 35 20 56 41 4c 55 45 53 28 27 66 6f 75 72 27 29  5 VALUES('four')
1d50: 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65  ;.  }.} {}.do_te
1d60: 73 74 20 65 6e 63 32 2d 35 2e 39 20 7b 0a 20 20  st enc2-5.9 {.  
1d70: 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65  add_test_collate
1d80: 20 24 44 42 20 31 20 31 20 31 0a 20 20 73 65 74   $DB 1 1 1.  set
1d90: 20 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53   res [execsql {S
1da0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20  ELECT * FROM t5 
1db0: 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41  ORDER BY 1 COLLA
1dc0: 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d  TE test_collate}
1dd0: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20  ].  lappend res 
1de0: 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f  $::test_collate_
1df0: 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74  enc.} {one two t
1e00: 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55  hree four five U
1e10: 54 46 2d 31 36 42 45 7d 0a 64 6f 5f 74 65 73 74  TF-16BE}.do_test
1e20: 20 65 6e 63 32 2d 35 2e 31 30 20 7b 0a 20 20 61   enc2-5.10 {.  a
1e30: 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20  dd_test_collate 
1e40: 24 44 42 20 31 20 31 20 30 0a 20 20 73 65 74 20  $DB 1 1 0.  set 
1e50: 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45  res [execsql {SE
1e60: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f  LECT * FROM t5 O
1e70: 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54  RDER BY 1 COLLAT
1e80: 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d  E test_collate}]
1e90: 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24  .  lappend res $
1ea0: 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65  ::test_collate_e
1eb0: 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68  nc.} {one two th
1ec0: 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55 54  ree four five UT
1ed0: 46 2d 31 36 4c 45 7d 0a 64 6f 5f 74 65 73 74 20  F-16LE}.do_test 
1ee0: 65 6e 63 32 2d 35 2e 31 31 20 7b 0a 20 20 61 64  enc2-5.11 {.  ad
1ef0: 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24  d_test_collate $
1f00: 44 42 20 31 20 30 20 30 0a 20 20 73 65 74 20 72  DB 1 0 0.  set r
1f10: 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c  es [execsql {SEL
1f20: 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52  ECT * FROM t5 OR
1f30: 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54 45  DER BY 1 COLLATE
1f40: 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d 0a   test_collate}].
1f50: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24 3a    lappend res $:
1f60: 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e  :test_collate_en
1f70: 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72  c.} {one two thr
1f80: 65 65 20 66 6f 75 72 20 66 69 76 65 20 55 54 46  ee four five UTF
1f90: 2d 38 7d 0a 0a 23 20 41 6c 73 6f 20 74 65 73 74  -8}..# Also test
1fa0: 20 74 68 61 74 20 61 20 55 54 46 2d 31 36 20 63   that a UTF-16 c
1fb0: 6f 6c 6c 61 74 69 6f 6e 20 66 61 63 74 6f 72 79  ollation factory
1fc0: 20 77 6f 72 6b 73 2e 0a 64 6f 5f 74 65 73 74 20   works..do_test 
1fd0: 65 6e 63 32 2d 35 2d 31 32 20 7b 0a 20 20 61 64  enc2-5-12 {.  ad
1fe0: 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24  d_test_collate $
1ff0: 44 42 20 30 20 30 20 30 0a 20 20 63 61 74 63 68  DB 0 0 0.  catch
2000: 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54  sql {.    SELECT
2010: 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52 44 45 52   * FROM t5 ORDER
2020: 20 42 59 20 31 20 43 4f 4c 4c 41 54 45 20 74 65   BY 1 COLLATE te
2030: 73 74 5f 63 6f 6c 6c 61 74 65 0a 20 20 7d 0a 7d  st_collate.  }.}
2040: 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20 63 6f 6c   {1 {no such col
2050: 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 3a  lation sequence:
2060: 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 7d 0a   test_collate}}.
2070: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31  do_test enc2-5.1
2080: 33 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63  3 {.  add_test_c
2090: 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 20 24 44  ollate_needed $D
20a0: 42 20 0a 20 20 73 65 74 20 72 65 73 20 5b 65 78  B .  set res [ex
20b0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20  ecsql {SELECT * 
20c0: 46 52 4f 4d 20 74 35 20 4f 52 44 45 52 20 42 59  FROM t5 ORDER BY
20d0: 20 31 20 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f   1 COLLATE test_
20e0: 63 6f 6c 6c 61 74 65 3b 20 7d 5d 0a 20 20 6c 61  collate; }].  la
20f0: 70 70 65 6e 64 20 72 65 73 20 24 3a 3a 74 65 73  ppend res $::tes
2100: 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20  t_collate_enc.} 
2110: 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20 66  {one two three f
2120: 6f 75 72 20 66 69 76 65 20 55 54 46 2d 31 36 42  our five UTF-16B
2130: 45 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  E}.do_test enc2-
2140: 35 2e 31 34 20 7b 0a 20 20 73 65 74 20 3a 3a 73  5.14 {.  set ::s
2150: 71 6c 69 74 65 5f 6c 61 73 74 5f 6e 65 65 64 65  qlite_last_neede
2160: 64 5f 63 6f 6c 6c 61 74 69 6f 6e 0a 7d 20 74 65  d_collation.} te
2170: 73 74 5f 63 6f 6c 6c 61 74 65 0a 0a 64 62 20 63  st_collate..db c
2180: 6c 6f 73 65 0a 66 6f 72 63 65 64 65 6c 65 74 65  lose.forcedelete
2190: 20 74 65 73 74 2e 64 62 0a 0a 64 6f 5f 74 65 73   test.db..do_tes
21a0: 74 20 65 6e 63 32 2d 35 2e 31 35 20 7b 0a 20 20  t enc2-5.15 {.  
21b0: 73 71 6c 69 74 65 34 20 64 62 20 74 65 73 74 2e  sqlite4 db test.
21c0: 64 62 3b 20 73 65 74 20 3a 3a 44 42 20 5b 73 71  db; set ::DB [sq
21d0: 6c 69 74 65 34 5f 63 6f 6e 6e 65 63 74 69 6f 6e  lite4_connection
21e0: 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 61  _pointer db].  a
21f0: 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f  dd_test_collate_
2200: 6e 65 65 64 65 64 20 24 3a 3a 44 42 0a 20 20 73  needed $::DB.  s
2210: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 6c 61 73 74  et ::sqlite_last
2220: 5f 6e 65 65 64 65 64 5f 63 6f 6c 6c 61 74 69 6f  _needed_collatio
2230: 6e 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65  n.} {}.do_test e
2240: 6e 63 32 2d 35 2e 31 36 20 7b 0a 20 20 65 78 65  nc2-5.16 {.  exe
2250: 63 73 71 6c 20 7b 43 52 45 41 54 45 20 54 41 42  csql {CREATE TAB
2260: 4c 45 20 74 31 28 61 20 76 61 72 63 68 61 72 20  LE t1(a varchar 
2270: 63 6f 6c 6c 61 74 65 20 74 65 73 74 5f 63 6f 6c  collate test_col
2280: 6c 61 74 65 29 3b 7d 0a 7d 20 7b 7d 0a 64 6f 5f  late);}.} {}.do_
2290: 74 65 73 74 20 65 6e 63 32 2d 35 2e 31 37 20 7b  test enc2-5.17 {
22a0: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f  .  set ::sqlite_
22b0: 6c 61 73 74 5f 6e 65 65 64 65 64 5f 63 6f 6c 6c  last_needed_coll
22c0: 61 74 69 6f 6e 0a 7d 20 7b 74 65 73 74 5f 63 6f  ation.} {test_co
22d0: 6c 6c 61 74 65 7d 0a 0a 23 20 54 68 65 20 66 6f  llate}..# The fo
22e0: 6c 6c 6f 77 69 6e 67 20 74 65 73 74 73 20 2d 20  llowing tests - 
22f0: 65 6e 63 32 2d 36 2e 2a 20 2d 20 74 65 73 74 20  enc2-6.* - test 
2300: 74 68 61 74 20 53 51 4c 69 74 65 20 73 65 6c 65  that SQLite sele
2310: 63 74 73 20 74 68 65 20 63 6f 72 72 65 63 74 0a  cts the correct.
2320: 23 20 75 73 65 72 20 66 75 6e 63 74 69 6f 6e 20  # user function 
2330: 77 68 65 6e 20 6d 6f 72 65 20 74 68 61 6e 20 6f  when more than o
2340: 6e 65 20 69 73 20 61 76 61 69 6c 61 62 6c 65 2e  ne is available.
2350: 0a 0a 70 72 6f 63 20 74 65 73 74 5f 66 75 6e 63  ..proc test_func
2360: 74 69 6f 6e 20 7b 65 6e 63 20 61 72 67 7d 20 7b  tion {enc arg} {
2370: 0a 20 20 72 65 74 75 72 6e 20 22 24 65 6e 63 20  .  return "$enc 
2380: 24 61 72 67 22 0a 7d 0a 0a 64 62 20 63 6c 6f 73  $arg".}..db clos
2390: 65 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65  e.forcedelete te
23a0: 73 74 2e 64 62 0a 73 71 6c 69 74 65 34 20 64 62  st.db.sqlite4 db
23b0: 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44 42   test.db; set DB
23c0: 20 5b 73 71 6c 69 74 65 34 5f 63 6f 6e 6e 65 63   [sqlite4_connec
23d0: 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d  tion_pointer db]
23e0: 0a 65 78 65 63 73 71 6c 20 7b 70 72 61 67 6d 61  .execsql {pragma
23f0: 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46   encoding = 'UTF
2400: 2d 38 27 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63  -8'}.do_test enc
2410: 32 2d 36 2e 30 20 7b 0a 20 20 65 78 65 63 73 71  2-6.0 {.  execsq
2420: 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54  l {.    CREATE T
2430: 41 42 4c 45 20 74 35 28 61 29 3b 0a 20 20 20 20  ABLE t5(a);.    
2440: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56  INSERT INTO t5 V
2450: 41 4c 55 45 53 28 27 6f 6e 65 27 29 3b 0a 20 20  ALUES('one');.  
2460: 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65  }.} {}.do_test e
2470: 6e 63 32 2d 36 2e 31 20 7b 0a 20 20 61 64 64 5f  nc2-6.1 {.  add_
2480: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44  test_function $D
2490: 42 20 31 20 31 20 31 0a 20 20 65 78 65 63 73 71  B 1 1 1.  execsq
24a0: 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74  l {.    SELECT t
24b0: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71  est_function('sq
24c0: 6c 69 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55  lite').  }.} {{U
24d0: 54 46 2d 38 20 73 71 6c 69 74 65 7d 7d 0a 64 62  TF-8 sqlite}}.db
24e0: 20 63 6c 6f 73 65 0a 73 71 6c 69 74 65 34 20 64   close.sqlite4 d
24f0: 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44  b test.db; set D
2500: 42 20 5b 73 71 6c 69 74 65 34 5f 63 6f 6e 6e 65  B [sqlite4_conne
2510: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
2520: 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36  ].do_test enc2-6
2530: 2e 32 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f  .2 {.  add_test_
2540: 66 75 6e 63 74 69 6f 6e 20 24 44 42 20 30 20 31  function $DB 0 1
2550: 20 30 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   0.  execsql {. 
2560: 20 20 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66     SELECT test_f
2570: 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27  unction('sqlite'
2580: 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36  ).  }.} {{UTF-16
2590: 4c 45 20 73 71 6c 69 74 65 7d 7d 0a 64 62 20 63  LE sqlite}}.db c
25a0: 6c 6f 73 65 0a 73 71 6c 69 74 65 34 20 64 62 20  lose.sqlite4 db 
25b0: 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44 42 20  test.db; set DB 
25c0: 5b 73 71 6c 69 74 65 34 5f 63 6f 6e 6e 65 63 74  [sqlite4_connect
25d0: 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a  ion_pointer db].
25e0: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 33  do_test enc2-6.3
25f0: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75   {.  add_test_fu
2600: 6e 63 74 69 6f 6e 20 24 44 42 20 30 20 30 20 31  nction $DB 0 0 1
2610: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
2620: 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e   SELECT test_fun
2630: 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a  ction('sqlite').
2640: 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 42 45    }.} {{UTF-16BE
2650: 20 73 71 6c 69 74 65 7d 7d 0a 0a 64 62 20 63 6c   sqlite}}..db cl
2660: 6f 73 65 0a 66 6f 72 63 65 64 65 6c 65 74 65 20  ose.forcedelete 
2670: 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65 34 20  test.db.sqlite4 
2680: 64 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20  db test.db; set 
2690: 44 42 20 5b 73 71 6c 69 74 65 34 5f 63 6f 6e 6e  DB [sqlite4_conn
26a0: 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64  ection_pointer d
26b0: 62 5d 0a 65 78 65 63 73 71 6c 20 7b 70 72 61 67  b].execsql {prag
26c0: 6d 61 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55  ma encoding = 'U
26d0: 54 46 2d 31 36 4c 45 27 7d 0a 64 6f 5f 74 65 73  TF-16LE'}.do_tes
26e0: 74 20 65 6e 63 32 2d 36 2e 33 20 7b 0a 20 20 65  t enc2-6.3 {.  e
26f0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52 45  xecsql {.    CRE
2700: 41 54 45 20 54 41 42 4c 45 20 74 35 28 61 29 3b  ATE TABLE t5(a);
2710: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
2720: 20 74 35 20 56 41 4c 55 45 53 28 27 73 71 6c 69   t5 VALUES('sqli
2730: 74 65 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64  te');.  }.} {}.d
2740: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 34 20  o_test enc2-6.4 
2750: 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75 6e  {.  add_test_fun
2760: 63 74 69 6f 6e 20 24 44 42 20 31 20 31 20 31 0a  ction $DB 1 1 1.
2770: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
2780: 53 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e 63  SELECT test_func
2790: 74 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a 20  tion('sqlite'). 
27a0: 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 4c 45 20   }.} {{UTF-16LE 
27b0: 73 71 6c 69 74 65 7d 7d 0a 64 62 20 63 6c 6f 73  sqlite}}.db clos
27c0: 65 0a 73 71 6c 69 74 65 34 20 64 62 20 74 65 73  e.sqlite4 db tes
27d0: 74 2e 64 62 3b 20 73 65 74 20 44 42 20 5b 73 71  t.db; set DB [sq
27e0: 6c 69 74 65 34 5f 63 6f 6e 6e 65 63 74 69 6f 6e  lite4_connection
27f0: 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 64 6f 5f  _pointer db].do_
2800: 74 65 73 74 20 65 6e 63 32 2d 36 2e 35 20 7b 0a  test enc2-6.5 {.
2810: 20 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74    add_test_funct
2820: 69 6f 6e 20 24 44 42 20 30 20 31 20 30 0a 20 20  ion $DB 0 1 0.  
2830: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45  execsql {.    SE
2840: 4c 45 43 54 20 74 65 73 74 5f 66 75 6e 63 74 69  LECT test_functi
2850: 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a 20 20 7d  on('sqlite').  }
2860: 0a 7d 20 7b 7b 55 54 46 2d 31 36 4c 45 20 73 71  .} {{UTF-16LE sq
2870: 6c 69 74 65 7d 7d 0a 64 62 20 63 6c 6f 73 65 0a  lite}}.db close.
2880: 73 71 6c 69 74 65 34 20 64 62 20 74 65 73 74 2e  sqlite4 db test.
2890: 64 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c 69  db; set DB [sqli
28a0: 74 65 34 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70  te4_connection_p
28b0: 6f 69 6e 74 65 72 20 64 62 5d 0a 64 6f 5f 74 65  ointer db].do_te
28c0: 73 74 20 65 6e 63 32 2d 36 2e 36 20 7b 0a 20 20  st enc2-6.6 {.  
28d0: 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f  add_test_functio
28e0: 6e 20 24 44 42 20 30 20 30 20 31 0a 20 20 65 78  n $DB 0 0 1.  ex
28f0: 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45  ecsql {.    SELE
2900: 43 54 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e  CT test_function
2910: 28 27 73 71 6c 69 74 65 27 29 0a 20 20 7d 0a 7d  ('sqlite').  }.}
2920: 20 7b 7b 55 54 46 2d 31 36 42 45 20 73 71 6c 69   {{UTF-16BE sqli
2930: 74 65 7d 7d 0a 0a 64 62 20 63 6c 6f 73 65 0a 66  te}}..db close.f
2940: 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e  orcedelete test.
2950: 64 62 0a 73 71 6c 69 74 65 34 20 64 62 20 74 65  db.sqlite4 db te
2960: 73 74 2e 64 62 3b 20 73 65 74 20 44 42 20 5b 73  st.db; set DB [s
2970: 71 6c 69 74 65 34 5f 63 6f 6e 6e 65 63 74 69 6f  qlite4_connectio
2980: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 65 78  n_pointer db].ex
2990: 65 63 73 71 6c 20 7b 70 72 61 67 6d 61 20 65 6e  ecsql {pragma en
29a0: 63 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 31 36  coding = 'UTF-16
29b0: 42 45 27 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63  BE'}.do_test enc
29c0: 32 2d 36 2e 37 20 7b 0a 20 20 65 78 65 63 73 71  2-6.7 {.  execsq
29d0: 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54  l {.    CREATE T
29e0: 41 42 4c 45 20 74 35 28 61 29 3b 0a 20 20 20 20  ABLE t5(a);.    
29f0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56  INSERT INTO t5 V
2a00: 41 4c 55 45 53 28 27 73 71 6c 69 74 65 27 29 3b  ALUES('sqlite');
2a10: 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73  .  }.} {}.do_tes
2a20: 74 20 65 6e 63 32 2d 36 2e 38 20 7b 0a 20 20 61  t enc2-6.8 {.  a
2a30: 64 64 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e  dd_test_function
2a40: 20 24 44 42 20 31 20 31 20 31 0a 20 20 65 78 65   $DB 1 1 1.  exe
2a50: 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43  csql {.    SELEC
2a60: 54 20 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28  T test_function(
2a70: 27 73 71 6c 69 74 65 27 29 0a 20 20 7d 0a 7d 20  'sqlite').  }.} 
2a80: 7b 7b 55 54 46 2d 31 36 42 45 20 73 71 6c 69 74  {{UTF-16BE sqlit
2a90: 65 7d 7d 0a 64 62 20 63 6c 6f 73 65 0a 73 71 6c  e}}.db close.sql
2aa0: 69 74 65 34 20 64 62 20 74 65 73 74 2e 64 62 3b  ite4 db test.db;
2ab0: 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 34   set DB [sqlite4
2ac0: 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e  _connection_poin
2ad0: 74 65 72 20 64 62 5d 0a 64 6f 5f 74 65 73 74 20  ter db].do_test 
2ae0: 65 6e 63 32 2d 36 2e 39 20 7b 0a 20 20 61 64 64  enc2-6.9 {.  add
2af0: 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24  _test_function $
2b00: 44 42 20 30 20 31 20 30 0a 20 20 65 78 65 63 73  DB 0 1 0.  execs
2b10: 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20  ql {.    SELECT 
2b20: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73  test_function('s
2b30: 71 6c 69 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b  qlite').  }.} {{
2b40: 55 54 46 2d 31 36 4c 45 20 73 71 6c 69 74 65 7d  UTF-16LE sqlite}
2b50: 7d 0a 64 62 20 63 6c 6f 73 65 0a 73 71 6c 69 74  }.db close.sqlit
2b60: 65 34 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e4 db test.db; s
2b70: 65 74 20 44 42 20 5b 73 71 6c 69 74 65 34 5f 63  et DB [sqlite4_c
2b80: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
2b90: 72 20 64 62 5d 0a 64 6f 5f 74 65 73 74 20 65 6e  r db].do_test en
2ba0: 63 32 2d 36 2e 31 30 20 7b 0a 20 20 61 64 64 5f  c2-6.10 {.  add_
2bb0: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44  test_function $D
2bc0: 42 20 30 20 30 20 31 0a 20 20 65 78 65 63 73 71  B 0 0 1.  execsq
2bd0: 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74  l {.    SELECT t
2be0: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71  est_function('sq
2bf0: 6c 69 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55  lite').  }.} {{U
2c00: 54 46 2d 31 36 42 45 20 73 71 6c 69 74 65 7d 7d  TF-16BE sqlite}}
2c10: 0a 0a 0a 64 62 20 63 6c 6f 73 65 0a 66 6f 72 63  ...db close.forc
2c20: 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 0a  edelete test.db.
2c30: 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67  .# The following
2c40: 20 74 65 73 74 73 20 2d 20 65 6e 63 32 2d 37 2e   tests - enc2-7.
2c50: 2a 20 2d 20 66 75 6e 63 74 69 6f 6e 20 61 73 20  * - function as 
2c60: 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20 31 3a 20  follows:.#.# 1: 
2c70: 4f 70 65 6e 20 61 6e 20 65 6d 70 74 79 20 64 61  Open an empty da
2c80: 74 61 62 61 73 65 20 66 69 6c 65 20 61 73 73 75  tabase file assu
2c90: 6d 69 6e 67 20 55 54 46 2d 31 36 20 65 6e 63 6f  ming UTF-16 enco
2ca0: 64 69 6e 67 2e 0a 23 20 32 3a 20 4f 70 65 6e 20  ding..# 2: Open 
2cb0: 74 68 65 20 73 61 6d 65 20 64 61 74 61 62 61 73  the same databas
2cc0: 65 20 77 69 74 68 20 61 20 64 69 66 66 65 72 65  e with a differe
2cd0: 6e 74 20 68 61 6e 64 6c 65 20 61 73 73 75 6d 69  nt handle assumi
2ce0: 6e 67 20 55 54 46 2d 38 2e 20 43 72 65 61 74 65  ng UTF-8. Create
2cf0: 0a 23 20 20 20 20 61 20 74 61 62 6c 65 20 75 73  .#    a table us
2d00: 69 6e 67 20 74 68 69 73 20 68 61 6e 64 6c 65 2e  ing this handle.
2d10: 0a 23 20 33 3a 20 52 65 61 64 20 74 68 65 20 73  .# 3: Read the s
2d20: 71 6c 69 74 65 5f 6d 61 73 74 65 72 20 74 61 62  qlite_master tab
2d30: 6c 65 20 66 72 6f 6d 20 74 68 65 20 66 69 72 73  le from the firs
2d40: 74 20 68 61 6e 64 6c 65 2e 20 0a 23 20 34 3a 20  t handle. .# 4: 
2d50: 45 6e 73 75 72 65 20 74 68 65 20 66 69 72 73 74  Ensure the first
2d60: 20 68 61 6e 64 6c 65 20 72 65 63 6f 67 6e 69 73   handle recognis
2d70: 65 73 20 74 68 65 20 64 61 74 61 62 61 73 65 20  es the database 
2d80: 65 6e 63 6f 64 69 6e 67 20 69 73 20 55 54 46 2d  encoding is UTF-
2d90: 38 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 65 6e 63  8..#.do_test enc
2da0: 32 2d 37 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65  2-7.1 {.  sqlite
2db0: 34 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20 65  4 db test.db.  e
2dc0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41  xecsql {.    PRA
2dd0: 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27  GMA encoding = '
2de0: 55 54 46 2d 31 36 27 3b 0a 20 20 20 20 53 45 4c  UTF-16';.    SEL
2df0: 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74  ECT * FROM sqlit
2e00: 65 5f 6d 61 73 74 65 72 3b 0a 20 20 7d 0a 7d 20  e_master;.  }.} 
2e10: 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  {}.do_test enc2-
2e20: 37 2e 32 20 7b 0a 20 20 73 65 74 20 65 6e 63 20  7.2 {.  set enc 
2e30: 5b 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50  [execsql {.    P
2e40: 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3b 0a  RAGMA encoding;.
2e50: 20 20 7d 5d 0a 20 20 73 74 72 69 6e 67 20 72 61    }].  string ra
2e60: 6e 67 65 20 24 65 6e 63 20 30 20 65 6e 64 2d 32  nge $enc 0 end-2
2e70: 20 3b 23 20 43 68 6f 70 20 6f 66 66 20 74 68 65   ;# Chop off the
2e80: 20 22 6c 65 22 20 6f 72 20 22 62 65 22 0a 7d 20   "le" or "be".} 
2e90: 7b 55 54 46 2d 31 36 7d 0a 64 6f 5f 74 65 73 74  {UTF-16}.do_test
2ea0: 20 65 6e 63 32 2d 37 2e 33 20 7b 0a 20 20 73 71   enc2-7.3 {.  sq
2eb0: 6c 69 74 65 34 20 64 62 32 20 74 65 73 74 2e 64  lite4 db2 test.d
2ec0: 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  b.  execsql {.  
2ed0: 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e    PRAGMA encodin
2ee0: 67 20 3d 20 27 55 54 46 2d 38 27 3b 0a 20 20 20  g = 'UTF-8';.   
2ef0: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 62   CREATE TABLE ab
2f00: 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20 20 7d 20  c(a, b, c);.  } 
2f10: 64 62 32 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74  db2.} {}.do_test
2f20: 20 65 6e 63 32 2d 37 2e 34 20 7b 0a 20 20 65 78   enc2-7.4 {.  ex
2f30: 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45  ecsql {.    SELE
2f40: 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65  CT * FROM sqlite
2f50: 5f 6d 61 73 74 65 72 3b 0a 20 20 7d 0a 7d 20 22  _master;.  }.} "
2f60: 74 61 62 6c 65 20 61 62 63 20 61 62 63 20 5b 65  table abc abc [e
2f70: 78 70 72 20 24 41 55 54 4f 56 41 43 55 55 4d 3f  xpr $AUTOVACUUM?
2f80: 33 3a 32 5d 20 7b 43 52 45 41 54 45 20 54 41 42  3:2] {CREATE TAB
2f90: 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29 7d  LE abc(a, b, c)}
2fa0: 22 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 37  ".do_test enc2-7
2fb0: 2e 35 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .5 {.  execsql {
2fc0: 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f  .    PRAGMA enco
2fd0: 64 69 6e 67 3b 0a 20 20 7d 0a 7d 20 7b 55 54 46  ding;.  }.} {UTF
2fe0: 2d 38 7d 0a 0a 64 62 20 63 6c 6f 73 65 0a 64 62  -8}..db close.db
2ff0: 32 20 63 6c 6f 73 65 0a 0a 70 72 6f 63 20 75 74  2 close..proc ut
3000: 66 31 36 20 7b 75 74 66 38 7d 20 7b 0a 20 20 73  f16 {utf8} {.  s
3010: 65 74 20 75 74 66 31 36 20 5b 65 6e 63 6f 64 69  et utf16 [encodi
3020: 6e 67 20 63 6f 6e 76 65 72 74 74 6f 20 75 6e 69  ng convertto uni
3030: 63 6f 64 65 20 24 75 74 66 38 5d 0a 20 20 61 70  code $utf8].  ap
3040: 70 65 6e 64 20 75 74 66 31 36 20 22 5c 78 30 30  pend utf16 "\x00
3050: 5c 78 30 30 22 0a 20 20 72 65 74 75 72 6e 20 24  \x00".  return $
3060: 75 74 66 31 36 0a 7d 0a 69 66 63 61 70 61 62 6c  utf16.}.ifcapabl
3070: 65 20 7b 63 6f 6d 70 6c 65 74 65 7d 20 7b 0a 20  e {complete} {. 
3080: 20 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 38 2e   do_test enc2-8.
3090: 31 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 34 5f  1 {.    sqlite4_
30a0: 63 6f 6d 70 6c 65 74 65 31 36 20 5b 75 74 66 31  complete16 [utf1
30b0: 36 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  6 "SELECT * FROM
30c0: 20 74 31 3b 22 5d 0a 20 20 7d 20 7b 31 7d 0a 20   t1;"].  } {1}. 
30d0: 20 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 38 2e   do_test enc2-8.
30e0: 32 20 7b 0a 20 20 20 20 73 71 6c 69 74 65 34 5f  2 {.    sqlite4_
30f0: 63 6f 6d 70 6c 65 74 65 31 36 20 5b 75 74 66 31  complete16 [utf1
3100: 36 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  6 "SELECT * FROM
3110: 22 5d 0a 20 20 7d 20 7b 30 7d 0a 7d 0a 0a 23 20  "].  } {0}.}..# 
3120: 54 65 73 74 20 74 68 61 74 20 74 68 65 20 65 6e  Test that the en
3130: 63 6f 64 69 6e 67 20 6f 66 20 61 6e 20 65 6d 70  coding of an emp
3140: 74 79 20 64 61 74 61 62 61 73 65 20 6d 61 79 20  ty database may 
3150: 73 74 69 6c 6c 20 62 65 20 73 65 74 20 61 66 74  still be set aft
3160: 65 72 20 74 68 65 0a 23 20 28 65 6d 70 74 79 29  er the.# (empty)
3170: 20 73 63 68 65 6d 61 20 68 61 73 20 62 65 65 6e   schema has been
3180: 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e 0a 66 6f   initialized..fo
3190: 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64  rcedelete test.d
31a0: 62 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 39  b.do_test enc2-9
31b0: 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65 34 20 64  .1 {.  sqlite4 d
31c0: 62 20 74 65 73 74 2e 64 62 0a 20 20 65 78 65 63  b test.db.  exec
31d0: 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41  sql {.    PRAGMA
31e0: 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46   encoding = 'UTF
31f0: 2d 38 27 3b 0a 20 20 20 20 50 52 41 47 4d 41 20  -8';.    PRAGMA 
3200: 65 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d 20  encoding;.  }.} 
3210: 7b 55 54 46 2d 38 7d 0a 64 6f 5f 74 65 73 74 20  {UTF-8}.do_test 
3220: 65 6e 63 32 2d 39 2e 32 20 7b 0a 20 20 73 71 6c  enc2-9.2 {.  sql
3230: 69 74 65 34 20 64 62 20 74 65 73 74 2e 64 62 0a  ite4 db test.db.
3240: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
3250: 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20  PRAGMA encoding 
3260: 3d 20 27 55 54 46 2d 31 36 6c 65 27 3b 0a 20 20  = 'UTF-16le';.  
3270: 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e    PRAGMA encodin
3280: 67 3b 0a 20 20 7d 0a 7d 20 7b 55 54 46 2d 31 36  g;.  }.} {UTF-16
3290: 6c 65 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32  le}.do_test enc2
32a0: 2d 39 2e 33 20 7b 0a 20 20 73 71 6c 69 74 65 34  -9.3 {.  sqlite4
32b0: 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20 65 78   db test.db.  ex
32c0: 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45  ecsql {.    SELE
32d0: 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65  CT * FROM sqlite
32e0: 5f 6d 61 73 74 65 72 3b 0a 20 20 20 20 50 52 41  _master;.    PRA
32f0: 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27  GMA encoding = '
3300: 55 54 46 2d 38 27 3b 0a 20 20 20 20 50 52 41 47  UTF-8';.    PRAG
3310: 4d 41 20 65 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d  MA encoding;.  }
3320: 0a 7d 20 7b 55 54 46 2d 38 7d 0a 64 6f 5f 74 65  .} {UTF-8}.do_te
3330: 73 74 20 65 6e 63 32 2d 39 2e 34 20 7b 0a 20 20  st enc2-9.4 {.  
3340: 73 71 6c 69 74 65 34 20 64 62 20 74 65 73 74 2e  sqlite4 db test.
3350: 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  db.  execsql {. 
3360: 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69     PRAGMA encodi
3370: 6e 67 20 3d 20 27 55 54 46 2d 31 36 6c 65 27 3b  ng = 'UTF-16le';
3380: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
3390: 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b 0a  E abc(a, b, c);.
33a0: 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64      PRAGMA encod
33b0: 69 6e 67 3b 0a 20 20 7d 0a 7d 20 7b 55 54 46 2d  ing;.  }.} {UTF-
33c0: 31 36 6c 65 7d 0a 64 6f 5f 74 65 73 74 20 65 6e  16le}.do_test en
33d0: 63 32 2d 39 2e 35 20 7b 0a 20 20 73 71 6c 69 74  c2-9.5 {.  sqlit
33e0: 65 34 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20  e4 db test.db.  
33f0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50 52  execsql {.    PR
3400: 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d 20  AGMA encoding = 
3410: 27 55 54 46 2d 38 27 3b 0a 20 20 20 20 50 52 41  'UTF-8';.    PRA
3420: 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3b 0a 20 20  GMA encoding;.  
3430: 7d 0a 7d 20 7b 55 54 46 2d 31 36 6c 65 7d 0a 0a  }.} {UTF-16le}..
3440: 23 20 54 69 63 6b 65 74 20 23 31 39 38 37 2e 0a  # Ticket #1987..
3450: 23 20 44 69 73 61 6c 6c 6f 77 20 65 6e 63 6f 64  # Disallow encod
3460: 69 6e 67 20 63 68 61 6e 67 65 73 20 6f 6e 63 65  ing changes once
3470: 20 74 68 65 20 65 6e 63 6f 64 69 6e 67 20 68 61   the encoding ha
3480: 73 20 62 65 65 6e 20 73 65 74 2e 0a 23 0a 64 6f  s been set..#.do
3490: 5f 74 65 73 74 20 65 6e 63 32 2d 31 30 2e 31 20  _test enc2-10.1 
34a0: 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 66  {.  db close.  f
34b0: 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e  orcedelete test.
34c0: 64 62 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72 6e  db test.db-journ
34d0: 61 6c 0a 20 20 73 71 6c 69 74 65 34 20 64 62 20  al.  sqlite4 db 
34e0: 74 65 73 74 2e 64 62 0a 20 20 64 62 20 65 76 61  test.db.  db eva
34f0: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 65  l {.    PRAGMA e
3500: 6e 63 6f 64 69 6e 67 3d 55 54 46 31 36 3b 0a 20  ncoding=UTF16;. 
3510: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
3520: 74 31 28 61 29 3b 0a 20 20 20 20 50 52 41 47 4d  t1(a);.    PRAGM
3530: 41 20 65 6e 63 6f 64 69 6e 67 3d 55 54 46 38 3b  A encoding=UTF8;
3540: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
3550: 45 20 74 32 28 62 29 3b 0a 20 20 7d 0a 20 20 64  E t2(b);.  }.  d
3560: 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74 65  b close.  sqlite
3570: 34 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20 64  4 db test.db.  d
3580: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 53 45 4c  b eval {.    SEL
3590: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
35a0: 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20 20 7d 0a  lite_master.  }.
35b0: 7d 20 7b 74 31 20 74 32 7d 0a 0a 66 69 6e 69 73  } {t1 t2}..finis
35c0: 68 5f 74 65 73 74 0a                             h_test.