/ Hex Artifact Content
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Artifact 6d91a5286f59add0cfcbb2d0da913b76f2242398:


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 33 5f 63 6f 6d 70 6c 65  t sqlite3_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 33 20 64 62 20 74 65 73 74 2e  sqlite3 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 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70  te3_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 6f   * FROM t1}.} {o
0b00: 6e 65 20 49 20 31 20 74 77 6f 20 49 49 20 32 20  ne I 1 two II 2 
0b10: 74 68 72 65 65 20 49 49 49 20 33 20 66 6f 75 72  three III 3 four
0b20: 20 49 56 20 34 20 66 69 76 65 20 56 20 35 7d 0a   IV 4 five V 5}.
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 33 5f 70 72  STMT [sqlite3_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 33 5f 73 74 65 70 20  .  sqlite3_step 
0d10: 24 53 54 4d 54 0a 20 20 73 71 6c 69 74 65 33 5f  $STMT.  sqlite3_
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 6f 75 72 7d 0a 0a 64 6f  T 0.} {four}..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 33 5f 73 74 65 70 20 24 53 54 4d  qlite3_step $STM
0d60: 54 0a 20 20 75 74 66 38 20 5b 73 71 6c 69 74 65  T.  utf8 [sqlite
0d70: 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 31 36 20  3_column_text16 
0d80: 24 53 54 4d 54 20 30 5d 0a 7d 20 7b 66 69 76 65  $STMT 0].} {five
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 33 5f 66 69 6e 61  {.  sqlite3_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 5f 4f 4b 0a 0a 69 66 63 61 70 61 62 6c  ITE_OK..ifcapabl
0dd0: 65 20 76 61 63 75 75 6d 20 7b 0a 20 20 65 78 65  e vacuum {.  exe
0de0: 63 73 71 6c 20 56 41 43 55 55 4d 0a 7d 0a 0a 64  csql VACUUM.}..d
0df0: 6f 5f 74 65 73 74 20 24 74 2e 31 30 20 7b 0a 20  o_test $t.10 {. 
0e00: 20 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41   db eval {PRAGMA
0e10: 20 65 6e 63 6f 64 69 6e 67 7d 0a 7d 20 24 65 6e   encoding}.} $en
0e20: 63 0a 0a 7d 0a 0a 23 20 54 68 65 20 74 68 72 65  c..}..# The thre
0e30: 65 20 75 6e 69 63 6f 64 65 20 65 6e 63 6f 64 69  e unicode encodi
0e40: 6e 67 73 20 75 6e 64 65 72 73 74 6f 6f 64 20 62  ngs understood b
0e50: 79 20 53 51 4c 69 74 65 2e 0a 73 65 74 20 65 6e  y SQLite..set en
0e60: 63 6f 64 69 6e 67 73 20 5b 6c 69 73 74 20 55 54  codings [list UT
0e70: 46 2d 38 20 55 54 46 2d 31 36 6c 65 20 55 54 46  F-8 UTF-16le UTF
0e80: 2d 31 36 62 65 5d 0a 0a 73 65 74 20 73 71 6c 69  -16be]..set sqli
0e90: 74 65 5f 6f 73 5f 74 72 61 63 65 20 30 0a 73 65  te_os_trace 0.se
0ea0: 74 20 69 20 31 0a 66 6f 72 65 61 63 68 20 65 6e  t i 1.foreach en
0eb0: 63 20 24 65 6e 63 6f 64 69 6e 67 73 20 7b 0a 20  c $encodings {. 
0ec0: 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f   file delete -fo
0ed0: 72 63 65 20 74 65 73 74 2e 64 62 0a 20 20 73 71  rce test.db.  sq
0ee0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
0ef0: 0a 20 20 64 62 20 65 76 61 6c 20 22 50 52 41 47  .  db eval "PRAG
0f00: 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d 20 5c 22  MA encoding = \"
0f10: 24 65 6e 63 5c 22 22 0a 20 20 65 78 65 63 73 71  $enc\"".  execsq
0f20: 6c 20 24 64 62 63 6f 6e 74 65 6e 74 73 0a 20 20  l $dbcontents.  
0f30: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 24 69 2e  do_test enc2-$i.
0f40: 30 2e 31 20 7b 0a 20 20 20 20 64 62 20 65 76 61  0.1 {.    db eva
0f50: 6c 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64 69  l {PRAGMA encodi
0f60: 6e 67 7d 0a 20 20 7d 20 24 65 6e 63 0a 20 20 64  ng}.  } $enc.  d
0f70: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 24 69 2e 30  o_test enc2-$i.0
0f80: 2e 32 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c  .2 {.    db eval
0f90: 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e   {PRAGMA encodin
0fa0: 67 3d 55 54 46 38 7d 0a 20 20 20 20 64 62 20 65  g=UTF8}.    db e
0fb0: 76 61 6c 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f  val {PRAGMA enco
0fc0: 64 69 6e 67 7d 0a 20 20 7d 20 24 65 6e 63 0a 20  ding}.  } $enc. 
0fd0: 20 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 24 69   do_test enc2-$i
0fe0: 2e 30 2e 33 20 7b 0a 20 20 20 20 64 62 20 65 76  .0.3 {.    db ev
0ff0: 61 6c 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64  al {PRAGMA encod
1000: 69 6e 67 3d 55 54 46 31 36 6c 65 7d 0a 20 20 20  ing=UTF16le}.   
1010: 20 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41   db eval {PRAGMA
1020: 20 65 6e 63 6f 64 69 6e 67 7d 0a 20 20 7d 20 24   encoding}.  } $
1030: 65 6e 63 0a 20 20 64 6f 5f 74 65 73 74 20 65 6e  enc.  do_test en
1040: 63 32 2d 24 69 2e 30 2e 34 20 7b 0a 20 20 20 20  c2-$i.0.4 {.    
1050: 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20  db eval {PRAGMA 
1060: 65 6e 63 6f 64 69 6e 67 3d 55 54 46 31 36 62 65  encoding=UTF16be
1070: 7d 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b 50  }.    db eval {P
1080: 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 7d 0a  RAGMA encoding}.
1090: 20 20 7d 20 24 65 6e 63 0a 0a 20 20 64 62 20 63    } $enc..  db c
10a0: 6c 6f 73 65 0a 20 20 72 75 6e 5f 74 65 73 74 5f  lose.  run_test_
10b0: 73 63 72 69 70 74 20 65 6e 63 32 2d 24 69 20 24  script enc2-$i $
10c0: 65 6e 63 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20  enc.  db close. 
10d0: 20 69 6e 63 72 20 69 0a 7d 0a 0a 23 20 54 65 73   incr i.}..# Tes
10e0: 74 20 74 68 61 74 20 69 74 20 69 73 20 61 6e 20  t that it is an 
10f0: 65 72 72 6f 72 20 74 6f 20 74 72 79 20 74 6f 20  error to try to 
1100: 61 74 74 61 63 68 20 61 20 64 61 74 61 62 61 73  attach a databas
1110: 65 20 77 69 74 68 20 61 20 64 69 66 66 65 72 65  e with a differe
1120: 6e 74 0a 23 20 65 6e 63 6f 64 69 6e 67 20 74 6f  nt.# encoding to
1130: 20 74 68 65 20 6d 61 69 6e 20 64 61 74 61 62 61   the main databa
1140: 73 65 2e 0a 69 66 63 61 70 61 62 6c 65 20 61 74  se..ifcapable at
1150: 74 61 63 68 20 7b 0a 20 20 64 6f 5f 74 65 73 74  tach {.  do_test
1160: 20 65 6e 63 32 2d 34 2e 31 20 7b 0a 20 20 20 20   enc2-4.1 {.    
1170: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
1180: 63 65 20 74 65 73 74 2e 64 62 0a 20 20 20 20 73  ce test.db.    s
1190: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
11a0: 62 0a 20 20 20 20 64 62 20 65 76 61 6c 20 22 50  b.    db eval "P
11b0: 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d  RAGMA encoding =
11c0: 20 27 55 54 46 2d 38 27 22 0a 20 20 20 20 64 62   'UTF-8'".    db
11d0: 20 65 76 61 6c 20 22 43 52 45 41 54 45 20 54 41   eval "CREATE TA
11e0: 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29  BLE abc(a, b, c)
11f0: 3b 22 0a 20 20 7d 20 7b 7d 0a 20 20 64 6f 5f 74  ;".  } {}.  do_t
1200: 65 73 74 20 65 6e 63 32 2d 34 2e 32 20 7b 0a 20  est enc2-4.2 {. 
1210: 20 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d     file delete -
1220: 66 6f 72 63 65 20 74 65 73 74 32 2e 64 62 0a 20  force test2.db. 
1230: 20 20 20 73 71 6c 69 74 65 33 20 64 62 32 20 74     sqlite3 db2 t
1240: 65 73 74 32 2e 64 62 0a 20 20 20 20 64 62 32 20  est2.db.    db2 
1250: 65 76 61 6c 20 22 50 52 41 47 4d 41 20 65 6e 63  eval "PRAGMA enc
1260: 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 31 36 27  oding = 'UTF-16'
1270: 22 0a 20 20 20 20 64 62 32 20 65 76 61 6c 20 22  ".    db2 eval "
1280: 43 52 45 41 54 45 20 54 41 42 4c 45 20 61 62 63  CREATE TABLE abc
1290: 28 61 2c 20 62 2c 20 63 29 3b 22 0a 20 20 7d 20  (a, b, c);".  } 
12a0: 7b 7d 0a 20 20 64 6f 5f 74 65 73 74 20 65 6e 63  {}.  do_test enc
12b0: 32 2d 34 2e 33 20 7b 0a 20 20 20 20 63 61 74 63  2-4.3 {.    catc
12c0: 68 73 71 6c 20 7b 0a 20 20 20 20 20 20 41 54 54  hsql {.      ATT
12d0: 41 43 48 20 27 74 65 73 74 32 2e 64 62 27 20 61  ACH 'test2.db' a
12e0: 73 20 61 75 78 3b 0a 20 20 20 20 7d 0a 20 20 7d  s aux;.    }.  }
12f0: 20 7b 31 20 7b 61 74 74 61 63 68 65 64 20 64 61   {1 {attached da
1300: 74 61 62 61 73 65 73 20 6d 75 73 74 20 75 73 65  tabases must use
1310: 20 74 68 65 20 73 61 6d 65 20 74 65 78 74 20 65   the same text e
1320: 6e 63 6f 64 69 6e 67 20 61 73 20 6d 61 69 6e 20  ncoding as main 
1330: 64 61 74 61 62 61 73 65 7d 7d 0a 20 20 64 62 32  database}}.  db2
1340: 20 63 6c 6f 73 65 0a 20 20 64 62 20 63 6c 6f 73   close.  db clos
1350: 65 0a 7d 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f  e.}..# The follo
1360: 77 69 6e 67 20 74 65 73 74 73 20 2d 20 65 6e 63  wing tests - enc
1370: 32 2d 35 2e 2a 20 2d 20 74 65 73 74 20 74 68 61  2-5.* - test tha
1380: 74 20 53 51 4c 69 74 65 20 73 65 6c 65 63 74 73  t SQLite selects
1390: 20 74 68 65 20 63 6f 72 72 65 63 74 0a 23 20 63   the correct.# c
13a0: 6f 6c 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63  ollation sequenc
13b0: 65 20 77 68 65 6e 20 6d 6f 72 65 20 74 68 61 6e  e when more than
13c0: 20 6f 6e 65 20 69 73 20 61 76 61 69 6c 61 62 6c   one is availabl
13d0: 65 2e 0a 0a 73 65 74 20 3a 3a 76 61 6c 75 65 73  e...set ::values
13e0: 20 5b 6c 69 73 74 20 6f 6e 65 20 74 77 6f 20 74   [list one two t
13f0: 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 5d 0a  hree four five].
1400: 73 65 74 20 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61  set ::test_colla
1410: 74 65 5f 65 6e 63 20 49 4e 56 41 4c 49 44 0a 70  te_enc INVALID.p
1420: 72 6f 63 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65  roc test_collate
1430: 20 7b 65 6e 63 20 6c 68 73 20 72 68 73 7d 20 7b   {enc lhs rhs} {
1440: 0a 20 20 73 65 74 20 3a 3a 74 65 73 74 5f 63 6f  .  set ::test_co
1450: 6c 6c 61 74 65 5f 65 6e 63 20 24 65 6e 63 0a 20  llate_enc $enc. 
1460: 20 73 65 74 20 6c 20 5b 6c 73 65 61 72 63 68 20   set l [lsearch 
1470: 2d 65 78 61 63 74 20 24 3a 3a 76 61 6c 75 65 73  -exact $::values
1480: 20 24 6c 68 73 5d 0a 20 20 73 65 74 20 72 20 5b   $lhs].  set r [
1490: 6c 73 65 61 72 63 68 20 2d 65 78 61 63 74 20 24  lsearch -exact $
14a0: 3a 3a 76 61 6c 75 65 73 20 24 72 68 73 5d 0a 20  ::values $rhs]. 
14b0: 20 73 65 74 20 72 65 73 20 5b 65 78 70 72 20 24   set res [expr $
14c0: 6c 20 2d 20 24 72 5d 0a 20 20 23 20 70 75 74 73  l - $r].  # puts
14d0: 20 22 65 6e 63 3d 24 65 6e 63 20 6c 68 73 3d 24   "enc=$enc lhs=$
14e0: 6c 68 73 2f 24 6c 20 72 68 73 3d 24 72 68 73 2f  lhs/$l rhs=$rhs/
14f0: 24 72 20 72 65 73 3d 24 72 65 73 22 0a 20 20 72  $r res=$res".  r
1500: 65 74 75 72 6e 20 24 72 65 73 0a 7d 0a 0a 66 69  eturn $res.}..fi
1510: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
1520: 20 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65 33   test.db.sqlite3
1530: 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74   db test.db; set
1540: 20 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e   DB [sqlite3_con
1550: 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20  nection_pointer 
1560: 64 62 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32  db].do_test enc2
1570: 2d 35 2e 30 20 7b 0a 20 20 65 78 65 63 73 71 6c  -5.0 {.  execsql
1580: 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41   {.    CREATE TA
1590: 42 4c 45 20 74 35 28 61 29 3b 0a 20 20 20 20 49  BLE t5(a);.    I
15a0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41  NSERT INTO t5 VA
15b0: 4c 55 45 53 28 27 6f 6e 65 27 29 3b 0a 20 20 20  LUES('one');.   
15c0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20   INSERT INTO t5 
15d0: 56 41 4c 55 45 53 28 27 74 77 6f 27 29 3b 0a 20  VALUES('two');. 
15e0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
15f0: 35 20 56 41 4c 55 45 53 28 27 66 69 76 65 27 29  5 VALUES('five')
1600: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
1610: 4f 20 74 35 20 56 41 4c 55 45 53 28 27 74 68 72  O t5 VALUES('thr
1620: 65 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  ee');.    INSERT
1630: 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28   INTO t5 VALUES(
1640: 27 66 6f 75 72 27 29 3b 0a 20 20 7d 0a 7d 20 7b  'four');.  }.} {
1650: 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35  }.do_test enc2-5
1660: 2e 31 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f  .1 {.  add_test_
1670: 63 6f 6c 6c 61 74 65 20 24 44 42 20 31 20 31 20  collate $DB 1 1 
1680: 31 0a 20 20 73 65 74 20 72 65 73 20 5b 65 78 65  1.  set res [exe
1690: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  csql {SELECT * F
16a0: 52 4f 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20  ROM t5 ORDER BY 
16b0: 31 20 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63  1 COLLATE test_c
16c0: 6f 6c 6c 61 74 65 3b 7d 5d 0a 20 20 6c 61 70 70  ollate;}].  lapp
16d0: 65 6e 64 20 72 65 73 20 24 3a 3a 74 65 73 74 5f  end res $::test_
16e0: 63 6f 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f  collate_enc.} {o
16f0: 6e 65 20 74 77 6f 20 74 68 72 65 65 20 66 6f 75  ne two three fou
1700: 72 20 66 69 76 65 20 55 54 46 2d 38 7d 0a 64 6f  r five UTF-8}.do
1710: 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 32 20 7b  _test enc2-5.2 {
1720: 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c  .  add_test_coll
1730: 61 74 65 20 24 44 42 20 30 20 31 20 30 0a 20 20  ate $DB 0 1 0.  
1740: 73 65 74 20 72 65 73 20 5b 65 78 65 63 73 71 6c  set res [execsql
1750: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
1760: 74 35 20 4f 52 44 45 52 20 42 59 20 31 20 43 4f  t5 ORDER BY 1 CO
1770: 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61  LLATE test_colla
1780: 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72  te}].  lappend r
1790: 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61  es $::test_colla
17a0: 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77  te_enc.} {one tw
17b0: 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66 69 76  o three four fiv
17c0: 65 20 55 54 46 2d 31 36 4c 45 7d 0a 64 6f 5f 74  e UTF-16LE}.do_t
17d0: 65 73 74 20 65 6e 63 32 2d 35 2e 33 20 7b 0a 20  est enc2-5.3 {. 
17e0: 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74   add_test_collat
17f0: 65 20 24 44 42 20 30 20 30 20 31 0a 20 20 73 65  e $DB 0 0 1.  se
1800: 74 20 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b  t res [execsql {
1810: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35  SELECT * FROM t5
1820: 20 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c   ORDER BY 1 COLL
1830: 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65  ATE test_collate
1840: 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73  }].  lappend res
1850: 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65   $::test_collate
1860: 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20  _enc.} {one two 
1870: 74 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 20  three four five 
1880: 55 54 46 2d 31 36 42 45 7d 0a 0a 64 62 20 63 6c  UTF-16BE}..db cl
1890: 6f 73 65 0a 66 69 6c 65 20 64 65 6c 65 74 65 20  ose.file delete 
18a0: 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 0a 73  -force test.db.s
18b0: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
18c0: 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74  b; set DB [sqlit
18d0: 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f  e3_connection_po
18e0: 69 6e 74 65 72 20 64 62 5d 0a 65 78 65 63 73 71  inter db].execsq
18f0: 6c 20 7b 70 72 61 67 6d 61 20 65 6e 63 6f 64 69  l {pragma encodi
1900: 6e 67 20 3d 20 27 55 54 46 2d 31 36 4c 45 27 7d  ng = 'UTF-16LE'}
1910: 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e  .do_test enc2-5.
1920: 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  4 {.  execsql {.
1930: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
1940: 20 74 35 28 61 29 3b 0a 20 20 20 20 49 4e 53 45   t5(a);.    INSE
1950: 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45  RT INTO t5 VALUE
1960: 53 28 27 6f 6e 65 27 29 3b 0a 20 20 20 20 49 4e  S('one');.    IN
1970: 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c  SERT INTO t5 VAL
1980: 55 45 53 28 27 74 77 6f 27 29 3b 0a 20 20 20 20  UES('two');.    
1990: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56  INSERT INTO t5 V
19a0: 41 4c 55 45 53 28 27 66 69 76 65 27 29 3b 0a 20  ALUES('five');. 
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 74 68 72 65 65 27  5 VALUES('three'
19d0: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
19e0: 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27 66 6f  TO t5 VALUES('fo
19f0: 75 72 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64  ur');.  }.} {}.d
1a00: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 35 20  o_test enc2-5.5 
1a10: 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c  {.  add_test_col
1a20: 6c 61 74 65 20 24 44 42 20 31 20 31 20 31 0a 20  late $DB 1 1 1. 
1a30: 20 73 65 74 20 72 65 73 20 5b 65 78 65 63 73 71   set res [execsq
1a40: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
1a50: 20 74 35 20 4f 52 44 45 52 20 42 59 20 31 20 43   t5 ORDER BY 1 C
1a60: 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c  OLLATE test_coll
1a70: 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20  ate}].  lappend 
1a80: 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c  res $::test_coll
1a90: 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74  ate_enc.} {one t
1aa0: 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66 69  wo three four fi
1ab0: 76 65 20 55 54 46 2d 31 36 4c 45 7d 0a 64 6f 5f  ve UTF-16LE}.do_
1ac0: 74 65 73 74 20 65 6e 63 32 2d 35 2e 36 20 7b 0a  test enc2-5.6 {.
1ad0: 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61    add_test_colla
1ae0: 74 65 20 24 44 42 20 31 20 30 20 31 0a 20 20 73  te $DB 1 0 1.  s
1af0: 65 74 20 72 65 73 20 5b 65 78 65 63 73 71 6c 20  et res [execsql 
1b00: 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74  {SELECT * FROM t
1b10: 35 20 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c  5 ORDER BY 1 COL
1b20: 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74  LATE test_collat
1b30: 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65  e}].  lappend re
1b40: 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74  s $::test_collat
1b50: 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f  e_enc.} {one two
1b60: 20 74 68 72 65 65 20 66 6f 75 72 20 66 69 76 65   three four five
1b70: 20 55 54 46 2d 31 36 42 45 7d 0a 64 6f 5f 74 65   UTF-16BE}.do_te
1b80: 73 74 20 65 6e 63 32 2d 35 2e 37 20 7b 0a 20 20  st enc2-5.7 {.  
1b90: 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65  add_test_collate
1ba0: 20 24 44 42 20 31 20 30 20 30 0a 20 20 73 65 74   $DB 1 0 0.  set
1bb0: 20 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53   res [execsql {S
1bc0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20  ELECT * FROM t5 
1bd0: 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41  ORDER BY 1 COLLA
1be0: 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d  TE test_collate}
1bf0: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20  ].  lappend res 
1c00: 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f  $::test_collate_
1c10: 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74  enc.} {one two t
1c20: 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55  hree four five U
1c30: 54 46 2d 38 7d 0a 0a 64 62 20 63 6c 6f 73 65 0a  TF-8}..db close.
1c40: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
1c50: 63 65 20 74 65 73 74 2e 64 62 0a 73 71 6c 69 74  ce test.db.sqlit
1c60: 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e3 db test.db; s
1c70: 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f 63  et DB [sqlite3_c
1c80: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
1c90: 72 20 64 62 5d 0a 65 78 65 63 73 71 6c 20 7b 70  r db].execsql {p
1ca0: 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e 67 20 3d  ragma encoding =
1cb0: 20 27 55 54 46 2d 31 36 42 45 27 7d 0a 64 6f 5f   'UTF-16BE'}.do_
1cc0: 74 65 73 74 20 65 6e 63 32 2d 35 2e 38 20 7b 0a  test enc2-5.8 {.
1cd0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
1ce0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 35 28  CREATE TABLE t5(
1cf0: 61 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  a);.    INSERT I
1d00: 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27 6f  NTO t5 VALUES('o
1d10: 6e 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  ne');.    INSERT
1d20: 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28   INTO t5 VALUES(
1d30: 27 74 77 6f 27 29 3b 0a 20 20 20 20 49 4e 53 45  'two');.    INSE
1d40: 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45  RT INTO t5 VALUE
1d50: 53 28 27 66 69 76 65 27 29 3b 0a 20 20 20 20 49  S('five');.    I
1d60: 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41  NSERT INTO t5 VA
1d70: 4c 55 45 53 28 27 74 68 72 65 65 27 29 3b 0a 20  LUES('three');. 
1d80: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1d90: 35 20 56 41 4c 55 45 53 28 27 66 6f 75 72 27 29  5 VALUES('four')
1da0: 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65  ;.  }.} {}.do_te
1db0: 73 74 20 65 6e 63 32 2d 35 2e 39 20 7b 0a 20 20  st enc2-5.9 {.  
1dc0: 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65  add_test_collate
1dd0: 20 24 44 42 20 31 20 31 20 31 0a 20 20 73 65 74   $DB 1 1 1.  set
1de0: 20 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53   res [execsql {S
1df0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20  ELECT * FROM t5 
1e00: 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41  ORDER BY 1 COLLA
1e10: 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d  TE test_collate}
1e20: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20  ].  lappend res 
1e30: 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f  $::test_collate_
1e40: 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74  enc.} {one two t
1e50: 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55  hree four five U
1e60: 54 46 2d 31 36 42 45 7d 0a 64 6f 5f 74 65 73 74  TF-16BE}.do_test
1e70: 20 65 6e 63 32 2d 35 2e 31 30 20 7b 0a 20 20 61   enc2-5.10 {.  a
1e80: 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20  dd_test_collate 
1e90: 24 44 42 20 31 20 31 20 30 0a 20 20 73 65 74 20  $DB 1 1 0.  set 
1ea0: 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45  res [execsql {SE
1eb0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f  LECT * FROM t5 O
1ec0: 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54  RDER BY 1 COLLAT
1ed0: 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d  E test_collate}]
1ee0: 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24  .  lappend res $
1ef0: 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65  ::test_collate_e
1f00: 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68  nc.} {one two th
1f10: 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55 54  ree four five UT
1f20: 46 2d 31 36 4c 45 7d 0a 64 6f 5f 74 65 73 74 20  F-16LE}.do_test 
1f30: 65 6e 63 32 2d 35 2e 31 31 20 7b 0a 20 20 61 64  enc2-5.11 {.  ad
1f40: 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24  d_test_collate $
1f50: 44 42 20 31 20 30 20 30 0a 20 20 73 65 74 20 72  DB 1 0 0.  set r
1f60: 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c  es [execsql {SEL
1f70: 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52  ECT * FROM t5 OR
1f80: 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54 45  DER BY 1 COLLATE
1f90: 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d 0a   test_collate}].
1fa0: 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24 3a    lappend res $:
1fb0: 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e  :test_collate_en
1fc0: 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72  c.} {one two thr
1fd0: 65 65 20 66 6f 75 72 20 66 69 76 65 20 55 54 46  ee four five UTF
1fe0: 2d 38 7d 0a 0a 23 20 41 6c 73 6f 20 74 65 73 74  -8}..# Also test
1ff0: 20 74 68 61 74 20 61 20 55 54 46 2d 31 36 20 63   that a UTF-16 c
2000: 6f 6c 6c 61 74 69 6f 6e 20 66 61 63 74 6f 72 79  ollation factory
2010: 20 77 6f 72 6b 73 2e 0a 64 6f 5f 74 65 73 74 20   works..do_test 
2020: 65 6e 63 32 2d 35 2d 31 32 20 7b 0a 20 20 61 64  enc2-5-12 {.  ad
2030: 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24  d_test_collate $
2040: 44 42 20 30 20 30 20 30 0a 20 20 63 61 74 63 68  DB 0 0 0.  catch
2050: 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54  sql {.    SELECT
2060: 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52 44 45 52   * FROM t5 ORDER
2070: 20 42 59 20 31 20 43 4f 4c 4c 41 54 45 20 74 65   BY 1 COLLATE te
2080: 73 74 5f 63 6f 6c 6c 61 74 65 0a 20 20 7d 0a 7d  st_collate.  }.}
2090: 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20 63 6f 6c   {1 {no such col
20a0: 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 3a  lation sequence:
20b0: 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 7d 0a   test_collate}}.
20c0: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31  do_test enc2-5.1
20d0: 33 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63  3 {.  add_test_c
20e0: 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 20 24 44  ollate_needed $D
20f0: 42 20 0a 20 20 73 65 74 20 72 65 73 20 5b 65 78  B .  set res [ex
2100: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20  ecsql {SELECT * 
2110: 46 52 4f 4d 20 74 35 20 4f 52 44 45 52 20 42 59  FROM t5 ORDER BY
2120: 20 31 20 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f   1 COLLATE test_
2130: 63 6f 6c 6c 61 74 65 3b 20 7d 5d 0a 20 20 6c 61  collate; }].  la
2140: 70 70 65 6e 64 20 72 65 73 20 24 3a 3a 74 65 73  ppend res $::tes
2150: 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20  t_collate_enc.} 
2160: 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20 66  {one two three f
2170: 6f 75 72 20 66 69 76 65 20 55 54 46 2d 31 36 42  our five UTF-16B
2180: 45 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  E}.do_test enc2-
2190: 35 2e 31 34 20 7b 0a 20 20 73 65 74 20 3a 3a 73  5.14 {.  set ::s
21a0: 71 6c 69 74 65 5f 6c 61 73 74 5f 6e 65 65 64 65  qlite_last_neede
21b0: 64 5f 63 6f 6c 6c 61 74 69 6f 6e 0a 7d 20 74 65  d_collation.} te
21c0: 73 74 5f 63 6f 6c 6c 61 74 65 0a 0a 64 62 20 63  st_collate..db c
21d0: 6c 6f 73 65 0a 66 69 6c 65 20 64 65 6c 65 74 65  lose.file delete
21e0: 20 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 0a   -force test.db.
21f0: 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e  .do_test enc2-5.
2200: 31 35 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64  15 {.  sqlite3 d
2210: 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 3a  b test.db; set :
2220: 3a 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e  :DB [sqlite3_con
2230: 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20  nection_pointer 
2240: 64 62 5d 0a 20 20 61 64 64 5f 74 65 73 74 5f 63  db].  add_test_c
2250: 6f 6c 6c 61 74 65 5f 6e 65 65 64 65 64 20 24 3a  ollate_needed $:
2260: 3a 44 42 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69  :DB.  set ::sqli
2270: 74 65 5f 6c 61 73 74 5f 6e 65 65 64 65 64 5f 63  te_last_needed_c
2280: 6f 6c 6c 61 74 69 6f 6e 0a 7d 20 7b 7d 0a 64 6f  ollation.} {}.do
2290: 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31 36 20  _test enc2-5.16 
22a0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 43 52 45  {.  execsql {CRE
22b0: 41 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 76  ATE TABLE t1(a v
22c0: 61 72 63 68 61 72 20 63 6f 6c 6c 61 74 65 20 74  archar collate t
22d0: 65 73 74 5f 63 6f 6c 6c 61 74 65 29 3b 7d 0a 7d  est_collate);}.}
22e0: 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32   {}.do_test enc2
22f0: 2d 35 2e 31 37 20 7b 0a 20 20 73 65 74 20 3a 3a  -5.17 {.  set ::
2300: 73 71 6c 69 74 65 5f 6c 61 73 74 5f 6e 65 65 64  sqlite_last_need
2310: 65 64 5f 63 6f 6c 6c 61 74 69 6f 6e 0a 7d 20 7b  ed_collation.} {
2320: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 0a 0a 23  test_collate}..#
2330: 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74   The following t
2340: 65 73 74 73 20 2d 20 65 6e 63 32 2d 36 2e 2a 20  ests - enc2-6.* 
2350: 2d 20 74 65 73 74 20 74 68 61 74 20 53 51 4c 69  - test that SQLi
2360: 74 65 20 73 65 6c 65 63 74 73 20 74 68 65 20 63  te selects the c
2370: 6f 72 72 65 63 74 0a 23 20 75 73 65 72 20 66 75  orrect.# user fu
2380: 6e 63 74 69 6f 6e 20 77 68 65 6e 20 6d 6f 72 65  nction when more
2390: 20 74 68 61 6e 20 6f 6e 65 20 69 73 20 61 76 61   than one is ava
23a0: 69 6c 61 62 6c 65 2e 0a 0a 70 72 6f 63 20 74 65  ilable...proc te
23b0: 73 74 5f 66 75 6e 63 74 69 6f 6e 20 7b 65 6e 63  st_function {enc
23c0: 20 61 72 67 7d 20 7b 0a 20 20 72 65 74 75 72 6e   arg} {.  return
23d0: 20 22 24 65 6e 63 20 24 61 72 67 22 0a 7d 0a 0a   "$enc $arg".}..
23e0: 64 62 20 63 6c 6f 73 65 0a 66 69 6c 65 20 64 65  db close.file de
23f0: 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74  lete -force test
2400: 2e 64 62 0a 73 71 6c 69 74 65 33 20 64 62 20 74  .db.sqlite3 db t
2410: 65 73 74 2e 64 62 3b 20 73 65 74 20 44 42 20 5b  est.db; set DB [
2420: 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69  sqlite3_connecti
2430: 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 65  on_pointer db].e
2440: 78 65 63 73 71 6c 20 7b 70 72 61 67 6d 61 20 65  xecsql {pragma e
2450: 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 38  ncoding = 'UTF-8
2460: 27 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  '}.do_test enc2-
2470: 36 2e 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  6.0 {.  execsql 
2480: 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  {.    CREATE TAB
2490: 4c 45 20 74 35 28 61 29 3b 0a 20 20 20 20 49 4e  LE t5(a);.    IN
24a0: 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c  SERT INTO t5 VAL
24b0: 55 45 53 28 27 6f 6e 65 27 29 3b 0a 20 20 7d 0a  UES('one');.  }.
24c0: 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63  } {}.do_test enc
24d0: 32 2d 36 2e 31 20 7b 0a 20 20 61 64 64 5f 74 65  2-6.1 {.  add_te
24e0: 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42 20  st_function $DB 
24f0: 31 20 31 20 31 0a 20 20 65 78 65 63 73 71 6c 20  1 1 1.  execsql 
2500: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74 65 73  {.    SELECT tes
2510: 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69  t_function('sqli
2520: 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46  te').  }.} {{UTF
2530: 2d 38 20 73 71 6c 69 74 65 7d 7d 0a 64 62 20 63  -8 sqlite}}.db c
2540: 6c 6f 73 65 0a 73 71 6c 69 74 65 33 20 64 62 20  lose.sqlite3 db 
2550: 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44 42 20  test.db; set DB 
2560: 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74  [sqlite3_connect
2570: 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a  ion_pointer db].
2580: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 32  do_test enc2-6.2
2590: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75   {.  add_test_fu
25a0: 6e 63 74 69 6f 6e 20 24 44 42 20 30 20 31 20 30  nction $DB 0 1 0
25b0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
25c0: 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e   SELECT test_fun
25d0: 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a  ction('sqlite').
25e0: 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 4c 45    }.} {{UTF-16LE
25f0: 20 73 71 6c 69 74 65 7d 7d 0a 64 62 20 63 6c 6f   sqlite}}.db clo
2600: 73 65 0a 73 71 6c 69 74 65 33 20 64 62 20 74 65  se.sqlite3 db te
2610: 73 74 2e 64 62 3b 20 73 65 74 20 44 42 20 5b 73  st.db; set DB [s
2620: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
2630: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 64 6f  n_pointer db].do
2640: 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 33 20 7b  _test enc2-6.3 {
2650: 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63  .  add_test_func
2660: 74 69 6f 6e 20 24 44 42 20 30 20 30 20 31 0a 20  tion $DB 0 0 1. 
2670: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53   execsql {.    S
2680: 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e 63 74  ELECT test_funct
2690: 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a 20 20  ion('sqlite').  
26a0: 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 42 45 20 73  }.} {{UTF-16BE s
26b0: 71 6c 69 74 65 7d 7d 0a 0a 64 62 20 63 6c 6f 73  qlite}}..db clos
26c0: 65 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66  e.file delete -f
26d0: 6f 72 63 65 20 74 65 73 74 2e 64 62 0a 73 71 6c  orce test.db.sql
26e0: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b  ite3 db test.db;
26f0: 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33   set DB [sqlite3
2700: 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e  _connection_poin
2710: 74 65 72 20 64 62 5d 0a 65 78 65 63 73 71 6c 20  ter db].execsql 
2720: 7b 70 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e 67  {pragma encoding
2730: 20 3d 20 27 55 54 46 2d 31 36 4c 45 27 7d 0a 64   = 'UTF-16LE'}.d
2740: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 33 20  o_test enc2-6.3 
2750: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  {.  execsql {.  
2760: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
2770: 35 28 61 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  5(a);.    INSERT
2780: 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28   INTO t5 VALUES(
2790: 27 73 71 6c 69 74 65 27 29 3b 0a 20 20 7d 0a 7d  'sqlite');.  }.}
27a0: 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32   {}.do_test enc2
27b0: 2d 36 2e 34 20 7b 0a 20 20 61 64 64 5f 74 65 73  -6.4 {.  add_tes
27c0: 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42 20 31  t_function $DB 1
27d0: 20 31 20 31 0a 20 20 65 78 65 63 73 71 6c 20 7b   1 1.  execsql {
27e0: 0a 20 20 20 20 53 45 4c 45 43 54 20 74 65 73 74  .    SELECT test
27f0: 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74  _function('sqlit
2800: 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d  e').  }.} {{UTF-
2810: 31 36 4c 45 20 73 71 6c 69 74 65 7d 7d 0a 64 62  16LE sqlite}}.db
2820: 20 63 6c 6f 73 65 0a 73 71 6c 69 74 65 33 20 64   close.sqlite3 d
2830: 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44  b test.db; set D
2840: 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  B [sqlite3_conne
2850: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
2860: 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36  ].do_test enc2-6
2870: 2e 35 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f  .5 {.  add_test_
2880: 66 75 6e 63 74 69 6f 6e 20 24 44 42 20 30 20 31  function $DB 0 1
2890: 20 30 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   0.  execsql {. 
28a0: 20 20 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66     SELECT test_f
28b0: 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27  unction('sqlite'
28c0: 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36  ).  }.} {{UTF-16
28d0: 4c 45 20 73 71 6c 69 74 65 7d 7d 0a 64 62 20 63  LE sqlite}}.db c
28e0: 6c 6f 73 65 0a 73 71 6c 69 74 65 33 20 64 62 20  lose.sqlite3 db 
28f0: 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44 42 20  test.db; set DB 
2900: 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74  [sqlite3_connect
2910: 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a  ion_pointer db].
2920: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 36  do_test enc2-6.6
2930: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75   {.  add_test_fu
2940: 6e 63 74 69 6f 6e 20 24 44 42 20 30 20 30 20 31  nction $DB 0 0 1
2950: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
2960: 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e   SELECT test_fun
2970: 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a  ction('sqlite').
2980: 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 42 45    }.} {{UTF-16BE
2990: 20 73 71 6c 69 74 65 7d 7d 0a 0a 64 62 20 63 6c   sqlite}}..db cl
29a0: 6f 73 65 0a 66 69 6c 65 20 64 65 6c 65 74 65 20  ose.file delete 
29b0: 2d 66 6f 72 63 65 20 74 65 73 74 2e 64 62 0a 73  -force test.db.s
29c0: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
29d0: 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74  b; set DB [sqlit
29e0: 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f  e3_connection_po
29f0: 69 6e 74 65 72 20 64 62 5d 0a 65 78 65 63 73 71  inter db].execsq
2a00: 6c 20 7b 70 72 61 67 6d 61 20 65 6e 63 6f 64 69  l {pragma encodi
2a10: 6e 67 20 3d 20 27 55 54 46 2d 31 36 42 45 27 7d  ng = 'UTF-16BE'}
2a20: 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e  .do_test enc2-6.
2a30: 37 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  7 {.  execsql {.
2a40: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
2a50: 20 74 35 28 61 29 3b 0a 20 20 20 20 49 4e 53 45   t5(a);.    INSE
2a60: 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45  RT INTO t5 VALUE
2a70: 53 28 27 73 71 6c 69 74 65 27 29 3b 0a 20 20 7d  S('sqlite');.  }
2a80: 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e  .} {}.do_test en
2a90: 63 32 2d 36 2e 38 20 7b 0a 20 20 61 64 64 5f 74  c2-6.8 {.  add_t
2aa0: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42  est_function $DB
2ab0: 20 31 20 31 20 31 0a 20 20 65 78 65 63 73 71 6c   1 1 1.  execsql
2ac0: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74 65   {.    SELECT te
2ad0: 73 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c  st_function('sql
2ae0: 69 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54  ite').  }.} {{UT
2af0: 46 2d 31 36 42 45 20 73 71 6c 69 74 65 7d 7d 0a  F-16BE sqlite}}.
2b00: 64 62 20 63 6c 6f 73 65 0a 73 71 6c 69 74 65 33  db close.sqlite3
2b10: 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74   db test.db; set
2b20: 20 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e   DB [sqlite3_con
2b30: 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20  nection_pointer 
2b40: 64 62 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32  db].do_test enc2
2b50: 2d 36 2e 39 20 7b 0a 20 20 61 64 64 5f 74 65 73  -6.9 {.  add_tes
2b60: 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42 20 30  t_function $DB 0
2b70: 20 31 20 30 0a 20 20 65 78 65 63 73 71 6c 20 7b   1 0.  execsql {
2b80: 0a 20 20 20 20 53 45 4c 45 43 54 20 74 65 73 74  .    SELECT test
2b90: 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74  _function('sqlit
2ba0: 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d  e').  }.} {{UTF-
2bb0: 31 36 4c 45 20 73 71 6c 69 74 65 7d 7d 0a 64 62  16LE sqlite}}.db
2bc0: 20 63 6c 6f 73 65 0a 73 71 6c 69 74 65 33 20 64   close.sqlite3 d
2bd0: 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44  b test.db; set D
2be0: 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  B [sqlite3_conne
2bf0: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
2c00: 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36  ].do_test enc2-6
2c10: 2e 31 30 20 7b 0a 20 20 61 64 64 5f 74 65 73 74  .10 {.  add_test
2c20: 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42 20 30 20  _function $DB 0 
2c30: 30 20 31 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  0 1.  execsql {.
2c40: 20 20 20 20 53 45 4c 45 43 54 20 74 65 73 74 5f      SELECT test_
2c50: 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74 65  function('sqlite
2c60: 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31  ').  }.} {{UTF-1
2c70: 36 42 45 20 73 71 6c 69 74 65 7d 7d 0a 0a 0a 64  6BE sqlite}}...d
2c80: 62 20 63 6c 6f 73 65 0a 66 69 6c 65 20 64 65 6c  b close.file del
2c90: 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e  ete -force test.
2ca0: 64 62 0a 0a 23 20 54 68 65 20 66 6f 6c 6c 6f 77  db..# The follow
2cb0: 69 6e 67 20 74 65 73 74 73 20 2d 20 65 6e 63 32  ing tests - enc2
2cc0: 2d 37 2e 2a 20 2d 20 66 75 6e 63 74 69 6f 6e 20  -7.* - function 
2cd0: 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23 0a 23 20  as follows:.#.# 
2ce0: 31 3a 20 4f 70 65 6e 20 61 6e 20 65 6d 70 74 79  1: Open an empty
2cf0: 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 20 61   database file a
2d00: 73 73 75 6d 69 6e 67 20 55 54 46 2d 31 36 20 65  ssuming UTF-16 e
2d10: 6e 63 6f 64 69 6e 67 2e 0a 23 20 32 3a 20 4f 70  ncoding..# 2: Op
2d20: 65 6e 20 74 68 65 20 73 61 6d 65 20 64 61 74 61  en the same data
2d30: 62 61 73 65 20 77 69 74 68 20 61 20 64 69 66 66  base with a diff
2d40: 65 72 65 6e 74 20 68 61 6e 64 6c 65 20 61 73 73  erent handle ass
2d50: 75 6d 69 6e 67 20 55 54 46 2d 38 2e 20 43 72 65  uming UTF-8. Cre
2d60: 61 74 65 0a 23 20 20 20 20 61 20 74 61 62 6c 65  ate.#    a table
2d70: 20 75 73 69 6e 67 20 74 68 69 73 20 68 61 6e 64   using this hand
2d80: 6c 65 2e 0a 23 20 33 3a 20 52 65 61 64 20 74 68  le..# 3: Read th
2d90: 65 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 20  e sqlite_master 
2da0: 74 61 62 6c 65 20 66 72 6f 6d 20 74 68 65 20 66  table from the f
2db0: 69 72 73 74 20 68 61 6e 64 6c 65 2e 20 0a 23 20  irst handle. .# 
2dc0: 34 3a 20 45 6e 73 75 72 65 20 74 68 65 20 66 69  4: Ensure the fi
2dd0: 72 73 74 20 68 61 6e 64 6c 65 20 72 65 63 6f 67  rst handle recog
2de0: 6e 69 73 65 73 20 74 68 65 20 64 61 74 61 62 61  nises the databa
2df0: 73 65 20 65 6e 63 6f 64 69 6e 67 20 69 73 20 55  se encoding is U
2e00: 54 46 2d 38 2e 0a 23 0a 64 6f 5f 74 65 73 74 20  TF-8..#.do_test 
2e10: 65 6e 63 32 2d 37 2e 31 20 7b 0a 20 20 73 71 6c  enc2-7.1 {.  sql
2e20: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a  ite3 db test.db.
2e30: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
2e40: 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20  PRAGMA encoding 
2e50: 3d 20 27 55 54 46 2d 31 36 27 3b 0a 20 20 20 20  = 'UTF-16';.    
2e60: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71  SELECT * FROM sq
2e70: 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20 7d  lite_master;.  }
2e80: 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e  .} {}.do_test en
2e90: 63 32 2d 37 2e 32 20 7b 0a 20 20 73 65 74 20 65  c2-7.2 {.  set e
2ea0: 6e 63 20 5b 65 78 65 63 73 71 6c 20 7b 0a 20 20  nc [execsql {.  
2eb0: 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e    PRAGMA encodin
2ec0: 67 3b 0a 20 20 7d 5d 0a 20 20 73 74 72 69 6e 67  g;.  }].  string
2ed0: 20 72 61 6e 67 65 20 24 65 6e 63 20 30 20 65 6e   range $enc 0 en
2ee0: 64 2d 32 20 3b 23 20 43 68 6f 70 20 6f 66 66 20  d-2 ;# Chop off 
2ef0: 74 68 65 20 22 6c 65 22 20 6f 72 20 22 62 65 22  the "le" or "be"
2f00: 0a 7d 20 7b 55 54 46 2d 31 36 7d 0a 64 6f 5f 74  .} {UTF-16}.do_t
2f10: 65 73 74 20 65 6e 63 32 2d 37 2e 33 20 7b 0a 20  est enc2-7.3 {. 
2f20: 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73   sqlite3 db2 tes
2f30: 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b  t.db.  execsql {
2f40: 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f  .    PRAGMA enco
2f50: 64 69 6e 67 20 3d 20 27 55 54 46 2d 38 27 3b 0a  ding = 'UTF-8';.
2f60: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
2f70: 20 61 62 63 28 61 2c 20 62 2c 20 63 29 3b 0a 20   abc(a, b, c);. 
2f80: 20 7d 20 64 62 32 0a 7d 20 7b 7d 0a 64 6f 5f 74   } db2.} {}.do_t
2f90: 65 73 74 20 65 6e 63 32 2d 37 2e 34 20 7b 0a 20  est enc2-7.4 {. 
2fa0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53   execsql {.    S
2fb0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
2fc0: 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20 20 7d 0a  ite_master;.  }.
2fd0: 7d 20 22 74 61 62 6c 65 20 61 62 63 20 61 62 63  } "table abc abc
2fe0: 20 5b 65 78 70 72 20 24 41 55 54 4f 56 41 43 55   [expr $AUTOVACU
2ff0: 55 4d 3f 33 3a 32 5d 20 7b 43 52 45 41 54 45 20  UM?3:2] {CREATE 
3000: 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20  TABLE abc(a, b, 
3010: 63 29 7d 22 0a 64 6f 5f 74 65 73 74 20 65 6e 63  c)}".do_test enc
3020: 32 2d 37 2e 35 20 7b 0a 20 20 65 78 65 63 73 71  2-7.5 {.  execsq
3030: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 65  l {.    PRAGMA e
3040: 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d 20 7b  ncoding;.  }.} {
3050: 55 54 46 2d 38 7d 0a 0a 64 62 20 63 6c 6f 73 65  UTF-8}..db close
3060: 0a 64 62 32 20 63 6c 6f 73 65 0a 0a 70 72 6f 63  .db2 close..proc
3070: 20 75 74 66 31 36 20 7b 75 74 66 38 7d 20 7b 0a   utf16 {utf8} {.
3080: 20 20 73 65 74 20 75 74 66 31 36 20 5b 65 6e 63    set utf16 [enc
3090: 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74 74 6f 20  oding convertto 
30a0: 75 6e 69 63 6f 64 65 20 24 75 74 66 38 5d 0a 20  unicode $utf8]. 
30b0: 20 61 70 70 65 6e 64 20 75 74 66 31 36 20 22 5c   append utf16 "\
30c0: 78 30 30 5c 78 30 30 22 0a 20 20 72 65 74 75 72  x00\x00".  retur
30d0: 6e 20 24 75 74 66 31 36 0a 7d 0a 69 66 63 61 70  n $utf16.}.ifcap
30e0: 61 62 6c 65 20 7b 63 6f 6d 70 6c 65 74 65 7d 20  able {complete} 
30f0: 7b 0a 20 20 64 6f 5f 74 65 73 74 20 65 6e 63 32  {.  do_test enc2
3100: 2d 38 2e 31 20 7b 0a 20 20 20 20 73 71 6c 69 74  -8.1 {.    sqlit
3110: 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36 20 5b 75  e3_complete16 [u
3120: 74 66 31 36 20 22 53 45 4c 45 43 54 20 2a 20 46  tf16 "SELECT * F
3130: 52 4f 4d 20 74 31 3b 22 5d 0a 20 20 7d 20 7b 31  ROM t1;"].  } {1
3140: 7d 0a 20 20 64 6f 5f 74 65 73 74 20 65 6e 63 32  }.  do_test enc2
3150: 2d 38 2e 32 20 7b 0a 20 20 20 20 73 71 6c 69 74  -8.2 {.    sqlit
3160: 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36 20 5b 75  e3_complete16 [u
3170: 74 66 31 36 20 22 53 45 4c 45 43 54 20 2a 20 46  tf16 "SELECT * F
3180: 52 4f 4d 22 5d 0a 20 20 7d 20 7b 30 7d 0a 7d 0a  ROM"].  } {0}.}.
3190: 0a 23 20 54 65 73 74 20 74 68 61 74 20 74 68 65  .# Test that the
31a0: 20 65 6e 63 6f 64 69 6e 67 20 6f 66 20 61 6e 20   encoding of an 
31b0: 65 6d 70 74 79 20 64 61 74 61 62 61 73 65 20 6d  empty database m
31c0: 61 79 20 73 74 69 6c 6c 20 62 65 20 73 65 74 20  ay still be set 
31d0: 61 66 74 65 72 20 74 68 65 0a 23 20 28 65 6d 70  after the.# (emp
31e0: 74 79 29 20 73 63 68 65 6d 61 20 68 61 73 20 62  ty) schema has b
31f0: 65 65 6e 20 69 6e 69 74 69 61 6c 69 7a 65 64 2e  een initialized.
3200: 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f  .file delete -fo
3210: 72 63 65 20 74 65 73 74 2e 64 62 0a 64 6f 5f 74  rce test.db.do_t
3220: 65 73 74 20 65 6e 63 32 2d 39 2e 31 20 7b 0a 20  est enc2-9.1 {. 
3230: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
3240: 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  .db.  execsql {.
3250: 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64      PRAGMA encod
3260: 69 6e 67 20 3d 20 27 55 54 46 2d 38 27 3b 0a 20  ing = 'UTF-8';. 
3270: 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69     PRAGMA encodi
3280: 6e 67 3b 0a 20 20 7d 0a 7d 20 7b 55 54 46 2d 38  ng;.  }.} {UTF-8
3290: 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 39  }.do_test enc2-9
32a0: 2e 32 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64  .2 {.  sqlite3 d
32b0: 62 20 74 65 73 74 2e 64 62 0a 20 20 65 78 65 63  b test.db.  exec
32c0: 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41  sql {.    PRAGMA
32d0: 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46   encoding = 'UTF
32e0: 2d 31 36 6c 65 27 3b 0a 20 20 20 20 50 52 41 47  -16le';.    PRAG
32f0: 4d 41 20 65 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d  MA encoding;.  }
3300: 0a 7d 20 7b 55 54 46 2d 31 36 6c 65 7d 0a 64 6f  .} {UTF-16le}.do
3310: 5f 74 65 73 74 20 65 6e 63 32 2d 39 2e 33 20 7b  _test enc2-9.3 {
3320: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65  .  sqlite3 db te
3330: 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20  st.db.  execsql 
3340: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46  {.    SELECT * F
3350: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
3360: 72 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e  r;.    PRAGMA en
3370: 63 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 38 27  coding = 'UTF-8'
3380: 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63  ;.    PRAGMA enc
3390: 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d 20 7b 55 54  oding;.  }.} {UT
33a0: 46 2d 38 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63  F-8}.do_test enc
33b0: 32 2d 39 2e 34 20 7b 0a 20 20 73 71 6c 69 74 65  2-9.4 {.  sqlite
33c0: 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20 65  3 db test.db.  e
33d0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41  xecsql {.    PRA
33e0: 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27  GMA encoding = '
33f0: 55 54 46 2d 31 36 6c 65 27 3b 0a 20 20 20 20 43  UTF-16le';.    C
3400: 52 45 41 54 45 20 54 41 42 4c 45 20 61 62 63 28  REATE TABLE abc(
3410: 61 2c 20 62 2c 20 63 29 3b 0a 20 20 20 20 50 52  a, b, c);.    PR
3420: 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3b 0a 20  AGMA encoding;. 
3430: 20 7d 0a 7d 20 7b 55 54 46 2d 31 36 6c 65 7d 0a   }.} {UTF-16le}.
3440: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 39 2e 35  do_test enc2-9.5
3450: 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20   {.  sqlite3 db 
3460: 74 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71  test.db.  execsq
3470: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 65  l {.    PRAGMA e
3480: 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 38  ncoding = 'UTF-8
3490: 27 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e  ';.    PRAGMA en
34a0: 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d 20 7b 55  coding;.  }.} {U
34b0: 54 46 2d 31 36 6c 65 7d 0a 0a 23 20 54 69 63 6b  TF-16le}..# Tick
34c0: 65 74 20 23 31 39 38 37 2e 0a 23 20 44 69 73 61  et #1987..# Disa
34d0: 6c 6c 6f 77 20 65 6e 63 6f 64 69 6e 67 20 63 68  llow encoding ch
34e0: 61 6e 67 65 73 20 6f 6e 63 65 20 74 68 65 20 65  anges once the e
34f0: 6e 63 6f 64 69 6e 67 20 68 61 73 20 62 65 65 6e  ncoding has been
3500: 20 73 65 74 2e 0a 23 0a 64 6f 5f 74 65 73 74 20   set..#.do_test 
3510: 65 6e 63 32 2d 31 30 2e 31 20 7b 0a 20 20 64 62  enc2-10.1 {.  db
3520: 20 63 6c 6f 73 65 0a 20 20 66 69 6c 65 20 64 65   close.  file de
3530: 6c 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74  lete -force test
3540: 2e 64 62 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  .db test.db-jour
3550: 6e 61 6c 0a 20 20 73 71 6c 69 74 65 33 20 64 62  nal.  sqlite3 db
3560: 20 74 65 73 74 2e 64 62 0a 20 20 64 62 20 65 76   test.db.  db ev
3570: 61 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20  al {.    PRAGMA 
3580: 65 6e 63 6f 64 69 6e 67 3d 55 54 46 31 36 3b 0a  encoding=UTF16;.
3590: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
35a0: 20 74 31 28 61 29 3b 0a 20 20 20 20 50 52 41 47   t1(a);.    PRAG
35b0: 4d 41 20 65 6e 63 6f 64 69 6e 67 3d 55 54 46 38  MA encoding=UTF8
35c0: 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  ;.    CREATE TAB
35d0: 4c 45 20 74 32 28 62 29 3b 0a 20 20 7d 0a 20 20  LE t2(b);.  }.  
35e0: 64 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74  db close.  sqlit
35f0: 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20  e3 db test.db.  
3600: 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 53 45  db eval {.    SE
3610: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
3620: 71 6c 69 74 65 5f 6d 61 73 74 65 72 0a 20 20 7d  qlite_master.  }
3630: 0a 7d 20 7b 74 31 20 74 32 7d 0a 0a 66 69 6e 69  .} {t1 t2}..fini
3640: 73 68 5f 74 65 73 74 0a                          sh_test.