/ Hex Artifact Content
Login

Artifact 796c59832e2b9a52842f382ffda8f3e989db03ad:


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 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73   forcedelete tes
0ed0: 74 2e 64 62 0a 20 20 73 71 6c 69 74 65 33 20 64  t.db.  sqlite3 d
0ee0: 62 20 74 65 73 74 2e 64 62 0a 20 20 64 62 20 65  b test.db.  db e
0ef0: 76 61 6c 20 22 50 52 41 47 4d 41 20 65 6e 63 6f  val "PRAGMA enco
0f00: 64 69 6e 67 20 3d 20 5c 22 24 65 6e 63 5c 22 22  ding = \"$enc\""
0f10: 0a 20 20 65 78 65 63 73 71 6c 20 24 64 62 63 6f  .  execsql $dbco
0f20: 6e 74 65 6e 74 73 0a 20 20 64 6f 5f 74 65 73 74  ntents.  do_test
0f30: 20 65 6e 63 32 2d 24 69 2e 30 2e 31 20 7b 0a 20   enc2-$i.0.1 {. 
0f40: 20 20 20 64 62 20 65 76 61 6c 20 7b 50 52 41 47     db eval {PRAG
0f50: 4d 41 20 65 6e 63 6f 64 69 6e 67 7d 0a 20 20 7d  MA encoding}.  }
0f60: 20 24 65 6e 63 0a 20 20 64 6f 5f 74 65 73 74 20   $enc.  do_test 
0f70: 65 6e 63 32 2d 24 69 2e 30 2e 32 20 7b 0a 20 20  enc2-$i.0.2 {.  
0f80: 20 20 64 62 20 65 76 61 6c 20 7b 50 52 41 47 4d    db eval {PRAGM
0f90: 41 20 65 6e 63 6f 64 69 6e 67 3d 55 54 46 38 7d  A encoding=UTF8}
0fa0: 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b 50 52  .    db eval {PR
0fb0: 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 7d 0a 20  AGMA encoding}. 
0fc0: 20 7d 20 24 65 6e 63 0a 20 20 64 6f 5f 74 65 73   } $enc.  do_tes
0fd0: 74 20 65 6e 63 32 2d 24 69 2e 30 2e 33 20 7b 0a  t enc2-$i.0.3 {.
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 3d 55 54 46  GMA encoding=UTF
1000: 31 36 6c 65 7d 0a 20 20 20 20 64 62 20 65 76 61  16le}.    db eva
1010: 6c 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64 69  l {PRAGMA encodi
1020: 6e 67 7d 0a 20 20 7d 20 24 65 6e 63 0a 20 20 64  ng}.  } $enc.  d
1030: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 24 69 2e 30  o_test enc2-$i.0
1040: 2e 34 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c  .4 {.    db eval
1050: 20 7b 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e   {PRAGMA encodin
1060: 67 3d 55 54 46 31 36 62 65 7d 0a 20 20 20 20 64  g=UTF16be}.    d
1070: 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20 65  b eval {PRAGMA e
1080: 6e 63 6f 64 69 6e 67 7d 0a 20 20 7d 20 24 65 6e  ncoding}.  } $en
1090: 63 0a 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20  c..  db close.  
10a0: 72 75 6e 5f 74 65 73 74 5f 73 63 72 69 70 74 20  run_test_script 
10b0: 65 6e 63 32 2d 24 69 20 24 65 6e 63 0a 20 20 64  enc2-$i $enc.  d
10c0: 62 20 63 6c 6f 73 65 0a 20 20 69 6e 63 72 20 69  b close.  incr i
10d0: 0a 7d 0a 0a 23 20 54 65 73 74 20 74 68 61 74 20  .}..# Test that 
10e0: 69 74 20 69 73 20 61 6e 20 65 72 72 6f 72 20 74  it is an error t
10f0: 6f 20 74 72 79 20 74 6f 20 61 74 74 61 63 68 20  o try to attach 
1100: 61 20 64 61 74 61 62 61 73 65 20 77 69 74 68 20  a database with 
1110: 61 20 64 69 66 66 65 72 65 6e 74 0a 23 20 65 6e  a different.# en
1120: 63 6f 64 69 6e 67 20 74 6f 20 74 68 65 20 6d 61  coding to the ma
1130: 69 6e 20 64 61 74 61 62 61 73 65 2e 0a 69 66 63  in database..ifc
1140: 61 70 61 62 6c 65 20 61 74 74 61 63 68 20 7b 0a  apable attach {.
1150: 20 20 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 34    do_test enc2-4
1160: 2e 31 20 7b 0a 20 20 20 20 66 6f 72 63 65 64 65  .1 {.    forcede
1170: 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 20 20 20  lete test.db.   
1180: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
1190: 2e 64 62 0a 20 20 20 20 64 62 20 65 76 61 6c 20  .db.    db eval 
11a0: 22 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67  "PRAGMA encoding
11b0: 20 3d 20 27 55 54 46 2d 38 27 22 0a 20 20 20 20   = 'UTF-8'".    
11c0: 64 62 20 65 76 61 6c 20 22 43 52 45 41 54 45 20  db eval "CREATE 
11d0: 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20  TABLE abc(a, b, 
11e0: 63 29 3b 22 0a 20 20 7d 20 7b 7d 0a 20 20 64 6f  c);".  } {}.  do
11f0: 5f 74 65 73 74 20 65 6e 63 32 2d 34 2e 32 20 7b  _test enc2-4.2 {
1200: 0a 20 20 20 20 66 6f 72 63 65 64 65 6c 65 74 65  .    forcedelete
1210: 20 74 65 73 74 32 2e 64 62 0a 20 20 20 20 73 71   test2.db.    sq
1220: 6c 69 74 65 33 20 64 62 32 20 74 65 73 74 32 2e  lite3 db2 test2.
1230: 64 62 0a 20 20 20 20 64 62 32 20 65 76 61 6c 20  db.    db2 eval 
1240: 22 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67  "PRAGMA encoding
1250: 20 3d 20 27 55 54 46 2d 31 36 27 22 0a 20 20 20   = 'UTF-16'".   
1260: 20 64 62 32 20 65 76 61 6c 20 22 43 52 45 41 54   db2 eval "CREAT
1270: 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62  E TABLE abc(a, b
1280: 2c 20 63 29 3b 22 0a 20 20 7d 20 7b 7d 0a 20 20  , c);".  } {}.  
1290: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 34 2e 33  do_test enc2-4.3
12a0: 20 7b 0a 20 20 20 20 63 61 74 63 68 73 71 6c 20   {.    catchsql 
12b0: 7b 0a 20 20 20 20 20 20 41 54 54 41 43 48 20 27  {.      ATTACH '
12c0: 74 65 73 74 32 2e 64 62 27 20 61 73 20 61 75 78  test2.db' as aux
12d0: 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 31 20 7b  ;.    }.  } {1 {
12e0: 61 74 74 61 63 68 65 64 20 64 61 74 61 62 61 73  attached databas
12f0: 65 73 20 6d 75 73 74 20 75 73 65 20 74 68 65 20  es must use the 
1300: 73 61 6d 65 20 74 65 78 74 20 65 6e 63 6f 64 69  same text encodi
1310: 6e 67 20 61 73 20 6d 61 69 6e 20 64 61 74 61 62  ng as main datab
1320: 61 73 65 7d 7d 0a 20 20 64 62 32 20 63 6c 6f 73  ase}}.  db2 clos
1330: 65 0a 20 20 64 62 20 63 6c 6f 73 65 0a 7d 0a 0a  e.  db close.}..
1340: 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20  # The following 
1350: 74 65 73 74 73 20 2d 20 65 6e 63 32 2d 35 2e 2a  tests - enc2-5.*
1360: 20 2d 20 74 65 73 74 20 74 68 61 74 20 53 51 4c   - test that SQL
1370: 69 74 65 20 73 65 6c 65 63 74 73 20 74 68 65 20  ite selects the 
1380: 63 6f 72 72 65 63 74 0a 23 20 63 6f 6c 6c 61 74  correct.# collat
1390: 69 6f 6e 20 73 65 71 75 65 6e 63 65 20 77 68 65  ion sequence whe
13a0: 6e 20 6d 6f 72 65 20 74 68 61 6e 20 6f 6e 65 20  n more than one 
13b0: 69 73 20 61 76 61 69 6c 61 62 6c 65 2e 0a 0a 73  is available...s
13c0: 65 74 20 3a 3a 76 61 6c 75 65 73 20 5b 6c 69 73  et ::values [lis
13d0: 74 20 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20  t one two three 
13e0: 66 6f 75 72 20 66 69 76 65 5d 0a 73 65 74 20 3a  four five].set :
13f0: 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e  :test_collate_en
1400: 63 20 49 4e 56 41 4c 49 44 0a 70 72 6f 63 20 74  c INVALID.proc t
1410: 65 73 74 5f 63 6f 6c 6c 61 74 65 20 7b 65 6e 63  est_collate {enc
1420: 20 6c 68 73 20 72 68 73 7d 20 7b 0a 20 20 73 65   lhs rhs} {.  se
1430: 74 20 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65  t ::test_collate
1440: 5f 65 6e 63 20 24 65 6e 63 0a 20 20 73 65 74 20  _enc $enc.  set 
1450: 6c 20 5b 6c 73 65 61 72 63 68 20 2d 65 78 61 63  l [lsearch -exac
1460: 74 20 24 3a 3a 76 61 6c 75 65 73 20 24 6c 68 73  t $::values $lhs
1470: 5d 0a 20 20 73 65 74 20 72 20 5b 6c 73 65 61 72  ].  set r [lsear
1480: 63 68 20 2d 65 78 61 63 74 20 24 3a 3a 76 61 6c  ch -exact $::val
1490: 75 65 73 20 24 72 68 73 5d 0a 20 20 73 65 74 20  ues $rhs].  set 
14a0: 72 65 73 20 5b 65 78 70 72 20 24 6c 20 2d 20 24  res [expr $l - $
14b0: 72 5d 0a 20 20 23 20 70 75 74 73 20 22 65 6e 63  r].  # puts "enc
14c0: 3d 24 65 6e 63 20 6c 68 73 3d 24 6c 68 73 2f 24  =$enc lhs=$lhs/$
14d0: 6c 20 72 68 73 3d 24 72 68 73 2f 24 72 20 72 65  l rhs=$rhs/$r re
14e0: 73 3d 24 72 65 73 22 0a 20 20 72 65 74 75 72 6e  s=$res".  return
14f0: 20 24 72 65 73 0a 7d 0a 0a 66 6f 72 63 65 64 65   $res.}..forcede
1500: 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 73 71 6c  lete test.db.sql
1510: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b  ite3 db test.db;
1520: 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33   set DB [sqlite3
1530: 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e  _connection_poin
1540: 74 65 72 20 64 62 5d 0a 64 6f 5f 74 65 73 74 20  ter db].do_test 
1550: 65 6e 63 32 2d 35 2e 30 20 7b 0a 20 20 65 78 65  enc2-5.0 {.  exe
1560: 63 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41 54  csql {.    CREAT
1570: 45 20 54 41 42 4c 45 20 74 35 28 61 29 3b 0a 20  E TABLE t5(a);. 
1580: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1590: 35 20 56 41 4c 55 45 53 28 27 6f 6e 65 27 29 3b  5 VALUES('one');
15a0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
15b0: 20 74 35 20 56 41 4c 55 45 53 28 27 74 77 6f 27   t5 VALUES('two'
15c0: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
15d0: 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27 66 69  TO t5 VALUES('fi
15e0: 76 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  ve');.    INSERT
15f0: 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28   INTO t5 VALUES(
1600: 27 74 68 72 65 65 27 29 3b 0a 20 20 20 20 49 4e  'three');.    IN
1610: 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c  SERT INTO t5 VAL
1620: 55 45 53 28 27 66 6f 75 72 27 29 3b 0a 20 20 7d  UES('four');.  }
1630: 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e  .} {}.do_test en
1640: 63 32 2d 35 2e 31 20 7b 0a 20 20 61 64 64 5f 74  c2-5.1 {.  add_t
1650: 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24 44 42 20  est_collate $DB 
1660: 31 20 31 20 31 0a 20 20 73 65 74 20 72 65 73 20  1 1 1.  set res 
1670: 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54  [execsql {SELECT
1680: 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52 44 45 52   * FROM t5 ORDER
1690: 20 42 59 20 31 20 43 4f 4c 4c 41 54 45 20 74 65   BY 1 COLLATE te
16a0: 73 74 5f 63 6f 6c 6c 61 74 65 3b 7d 5d 0a 20 20  st_collate;}].  
16b0: 6c 61 70 70 65 6e 64 20 72 65 73 20 24 3a 3a 74  lappend res $::t
16c0: 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63 0a  est_collate_enc.
16d0: 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65 65  } {one two three
16e0: 20 66 6f 75 72 20 66 69 76 65 20 55 54 46 2d 38   four five UTF-8
16f0: 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35  }.do_test enc2-5
1700: 2e 32 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f  .2 {.  add_test_
1710: 63 6f 6c 6c 61 74 65 20 24 44 42 20 30 20 31 20  collate $DB 0 1 
1720: 30 0a 20 20 73 65 74 20 72 65 73 20 5b 65 78 65  0.  set res [exe
1730: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  csql {SELECT * F
1740: 52 4f 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20  ROM t5 ORDER BY 
1750: 31 20 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63  1 COLLATE test_c
1760: 6f 6c 6c 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65  ollate}].  lappe
1770: 6e 64 20 72 65 73 20 24 3a 3a 74 65 73 74 5f 63  nd res $::test_c
1780: 6f 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e  ollate_enc.} {on
1790: 65 20 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72  e two three four
17a0: 20 66 69 76 65 20 55 54 46 2d 31 36 4c 45 7d 0a   five UTF-16LE}.
17b0: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 33  do_test enc2-5.3
17c0: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f   {.  add_test_co
17d0: 6c 6c 61 74 65 20 24 44 42 20 30 20 30 20 31 0a  llate $DB 0 0 1.
17e0: 20 20 73 65 74 20 72 65 73 20 5b 65 78 65 63 73    set res [execs
17f0: 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  ql {SELECT * FRO
1800: 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20 31 20  M t5 ORDER BY 1 
1810: 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c  COLLATE test_col
1820: 6c 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64  late}].  lappend
1830: 20 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c   res $::test_col
1840: 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20  late_enc.} {one 
1850: 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66  two three four f
1860: 69 76 65 20 55 54 46 2d 31 36 42 45 7d 0a 0a 64  ive UTF-16BE}..d
1870: 62 20 63 6c 6f 73 65 0a 66 6f 72 63 65 64 65 6c  b close.forcedel
1880: 65 74 65 20 74 65 73 74 2e 64 62 0a 73 71 6c 69  ete test.db.sqli
1890: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20  te3 db test.db; 
18a0: 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f  set DB [sqlite3_
18b0: 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74  connection_point
18c0: 65 72 20 64 62 5d 0a 65 78 65 63 73 71 6c 20 7b  er db].execsql {
18d0: 70 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e 67 20  pragma encoding 
18e0: 3d 20 27 55 54 46 2d 31 36 4c 45 27 7d 0a 64 6f  = 'UTF-16LE'}.do
18f0: 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 34 20 7b  _test enc2-5.4 {
1900: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
1910: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 35   CREATE TABLE t5
1920: 28 61 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  (a);.    INSERT 
1930: 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27  INTO t5 VALUES('
1940: 6f 6e 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52  one');.    INSER
1950: 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53  T INTO t5 VALUES
1960: 28 27 74 77 6f 27 29 3b 0a 20 20 20 20 49 4e 53  ('two');.    INS
1970: 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55  ERT INTO t5 VALU
1980: 45 53 28 27 66 69 76 65 27 29 3b 0a 20 20 20 20  ES('five');.    
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 74 68 72 65 65 27 29 3b 0a  ALUES('three');.
19b0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
19c0: 74 35 20 56 41 4c 55 45 53 28 27 66 6f 75 72 27  t5 VALUES('four'
19d0: 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74  );.  }.} {}.do_t
19e0: 65 73 74 20 65 6e 63 32 2d 35 2e 35 20 7b 0a 20  est enc2-5.5 {. 
19f0: 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74   add_test_collat
1a00: 65 20 24 44 42 20 31 20 31 20 31 0a 20 20 73 65  e $DB 1 1 1.  se
1a10: 74 20 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b  t res [execsql {
1a20: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35  SELECT * FROM t5
1a30: 20 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c   ORDER BY 1 COLL
1a40: 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65  ATE test_collate
1a50: 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73  }].  lappend res
1a60: 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65   $::test_collate
1a70: 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20  _enc.} {one two 
1a80: 74 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 20  three four five 
1a90: 55 54 46 2d 31 36 4c 45 7d 0a 64 6f 5f 74 65 73  UTF-16LE}.do_tes
1aa0: 74 20 65 6e 63 32 2d 35 2e 36 20 7b 0a 20 20 61  t enc2-5.6 {.  a
1ab0: 64 64 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20  dd_test_collate 
1ac0: 24 44 42 20 31 20 30 20 31 0a 20 20 73 65 74 20  $DB 1 0 1.  set 
1ad0: 72 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45  res [execsql {SE
1ae0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f  LECT * FROM t5 O
1af0: 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54  RDER BY 1 COLLAT
1b00: 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d  E test_collate}]
1b10: 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24  .  lappend res $
1b20: 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65  ::test_collate_e
1b30: 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68  nc.} {one two th
1b40: 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55 54  ree four five UT
1b50: 46 2d 31 36 42 45 7d 0a 64 6f 5f 74 65 73 74 20  F-16BE}.do_test 
1b60: 65 6e 63 32 2d 35 2e 37 20 7b 0a 20 20 61 64 64  enc2-5.7 {.  add
1b70: 5f 74 65 73 74 5f 63 6f 6c 6c 61 74 65 20 24 44  _test_collate $D
1b80: 42 20 31 20 30 20 30 0a 20 20 73 65 74 20 72 65  B 1 0 0.  set re
1b90: 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  s [execsql {SELE
1ba0: 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52 44  CT * FROM t5 ORD
1bb0: 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54 45 20  ER BY 1 COLLATE 
1bc0: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 5d 0a 20  test_collate}]. 
1bd0: 20 6c 61 70 70 65 6e 64 20 72 65 73 20 24 3a 3a   lappend res $::
1be0: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 65 6e 63  test_collate_enc
1bf0: 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65  .} {one two thre
1c00: 65 20 66 6f 75 72 20 66 69 76 65 20 55 54 46 2d  e four five UTF-
1c10: 38 7d 0a 0a 64 62 20 63 6c 6f 73 65 0a 66 6f 72  8}..db close.for
1c20: 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62  cedelete test.db
1c30: 0a 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74  .sqlite3 db test
1c40: 2e 64 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c  .db; set DB [sql
1c50: 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f  ite3_connection_
1c60: 70 6f 69 6e 74 65 72 20 64 62 5d 0a 65 78 65 63  pointer db].exec
1c70: 73 71 6c 20 7b 70 72 61 67 6d 61 20 65 6e 63 6f  sql {pragma enco
1c80: 64 69 6e 67 20 3d 20 27 55 54 46 2d 31 36 42 45  ding = 'UTF-16BE
1c90: 27 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  '}.do_test enc2-
1ca0: 35 2e 38 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  5.8 {.  execsql 
1cb0: 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42  {.    CREATE TAB
1cc0: 4c 45 20 74 35 28 61 29 3b 0a 20 20 20 20 49 4e  LE t5(a);.    IN
1cd0: 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c  SERT INTO t5 VAL
1ce0: 55 45 53 28 27 6f 6e 65 27 29 3b 0a 20 20 20 20  UES('one');.    
1cf0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 20 56  INSERT INTO t5 V
1d00: 41 4c 55 45 53 28 27 74 77 6f 27 29 3b 0a 20 20  ALUES('two');.  
1d10: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35    INSERT INTO t5
1d20: 20 56 41 4c 55 45 53 28 27 66 69 76 65 27 29 3b   VALUES('five');
1d30: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
1d40: 20 74 35 20 56 41 4c 55 45 53 28 27 74 68 72 65   t5 VALUES('thre
1d50: 65 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20  e');.    INSERT 
1d60: 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 27  INTO t5 VALUES('
1d70: 66 6f 75 72 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d  four');.  }.} {}
1d80: 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e  .do_test enc2-5.
1d90: 39 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63  9 {.  add_test_c
1da0: 6f 6c 6c 61 74 65 20 24 44 42 20 31 20 31 20 31  ollate $DB 1 1 1
1db0: 0a 20 20 73 65 74 20 72 65 73 20 5b 65 78 65 63  .  set res [exec
1dc0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  sql {SELECT * FR
1dd0: 4f 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20 31  OM t5 ORDER BY 1
1de0: 20 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f   COLLATE test_co
1df0: 6c 6c 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e  llate}].  lappen
1e00: 64 20 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f  d res $::test_co
1e10: 6c 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65  llate_enc.} {one
1e20: 20 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20   two three four 
1e30: 66 69 76 65 20 55 54 46 2d 31 36 42 45 7d 0a 64  five UTF-16BE}.d
1e40: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31 30  o_test enc2-5.10
1e50: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f   {.  add_test_co
1e60: 6c 6c 61 74 65 20 24 44 42 20 31 20 31 20 30 0a  llate $DB 1 1 0.
1e70: 20 20 73 65 74 20 72 65 73 20 5b 65 78 65 63 73    set res [execs
1e80: 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  ql {SELECT * FRO
1e90: 4d 20 74 35 20 4f 52 44 45 52 20 42 59 20 31 20  M t5 ORDER BY 1 
1ea0: 43 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c  COLLATE test_col
1eb0: 6c 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64  late}].  lappend
1ec0: 20 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c   res $::test_col
1ed0: 6c 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20  late_enc.} {one 
1ee0: 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66  two three four f
1ef0: 69 76 65 20 55 54 46 2d 31 36 4c 45 7d 0a 64 6f  ive UTF-16LE}.do
1f00: 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31 31 20  _test enc2-5.11 
1f10: 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c  {.  add_test_col
1f20: 6c 61 74 65 20 24 44 42 20 31 20 30 20 30 0a 20  late $DB 1 0 0. 
1f30: 20 73 65 74 20 72 65 73 20 5b 65 78 65 63 73 71   set res [execsq
1f40: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
1f50: 20 74 35 20 4f 52 44 45 52 20 42 59 20 31 20 43   t5 ORDER BY 1 C
1f60: 4f 4c 4c 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c  OLLATE test_coll
1f70: 61 74 65 7d 5d 0a 20 20 6c 61 70 70 65 6e 64 20  ate}].  lappend 
1f80: 72 65 73 20 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c  res $::test_coll
1f90: 61 74 65 5f 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74  ate_enc.} {one t
1fa0: 77 6f 20 74 68 72 65 65 20 66 6f 75 72 20 66 69  wo three four fi
1fb0: 76 65 20 55 54 46 2d 38 7d 0a 0a 23 20 41 6c 73  ve UTF-8}..# Als
1fc0: 6f 20 74 65 73 74 20 74 68 61 74 20 61 20 55 54  o test that a UT
1fd0: 46 2d 31 36 20 63 6f 6c 6c 61 74 69 6f 6e 20 66  F-16 collation f
1fe0: 61 63 74 6f 72 79 20 77 6f 72 6b 73 2e 0a 64 6f  actory works..do
1ff0: 5f 74 65 73 74 20 65 6e 63 32 2d 35 2d 31 32 20  _test enc2-5-12 
2000: 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f 6c  {.  add_test_col
2010: 6c 61 74 65 20 24 44 42 20 30 20 30 20 30 0a 20  late $DB 0 0 0. 
2020: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
2030: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 35  SELECT * FROM t5
2040: 20 4f 52 44 45 52 20 42 59 20 31 20 43 4f 4c 4c   ORDER BY 1 COLL
2050: 41 54 45 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65  ATE test_collate
2060: 0a 20 20 7d 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75  .  }.} {1 {no su
2070: 63 68 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65 71  ch collation seq
2080: 75 65 6e 63 65 3a 20 74 65 73 74 5f 63 6f 6c 6c  uence: test_coll
2090: 61 74 65 7d 7d 0a 64 6f 5f 74 65 73 74 20 65 6e  ate}}.do_test en
20a0: 63 32 2d 35 2e 31 33 20 7b 0a 20 20 61 64 64 5f  c2-5.13 {.  add_
20b0: 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f 6e 65 65  test_collate_nee
20c0: 64 65 64 20 24 44 42 20 0a 20 20 73 65 74 20 72  ded $DB .  set r
20d0: 65 73 20 5b 65 78 65 63 73 71 6c 20 7b 53 45 4c  es [execsql {SEL
20e0: 45 43 54 20 2a 20 46 52 4f 4d 20 74 35 20 4f 52  ECT * FROM t5 OR
20f0: 44 45 52 20 42 59 20 31 20 43 4f 4c 4c 41 54 45  DER BY 1 COLLATE
2100: 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65 3b 20 7d   test_collate; }
2110: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 65 73 20  ].  lappend res 
2120: 24 3a 3a 74 65 73 74 5f 63 6f 6c 6c 61 74 65 5f  $::test_collate_
2130: 65 6e 63 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74  enc.} {one two t
2140: 68 72 65 65 20 66 6f 75 72 20 66 69 76 65 20 55  hree four five U
2150: 54 46 2d 31 36 42 45 7d 0a 64 6f 5f 74 65 73 74  TF-16BE}.do_test
2160: 20 65 6e 63 32 2d 35 2e 31 34 20 7b 0a 20 20 73   enc2-5.14 {.  s
2170: 65 74 20 3a 3a 73 71 6c 69 74 65 5f 6c 61 73 74  et ::sqlite_last
2180: 5f 6e 65 65 64 65 64 5f 63 6f 6c 6c 61 74 69 6f  _needed_collatio
2190: 6e 0a 7d 20 74 65 73 74 5f 63 6f 6c 6c 61 74 65  n.} test_collate
21a0: 0a 0a 64 62 20 63 6c 6f 73 65 0a 66 6f 72 63 65  ..db close.force
21b0: 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 0a  delete test.db..
21c0: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 35 2e 31  do_test enc2-5.1
21d0: 35 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62  5 {.  sqlite3 db
21e0: 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 3a 3a   test.db; set ::
21f0: 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e  DB [sqlite3_conn
2200: 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64  ection_pointer d
2210: 62 5d 0a 20 20 61 64 64 5f 74 65 73 74 5f 63 6f  b].  add_test_co
2220: 6c 6c 61 74 65 5f 6e 65 65 64 65 64 20 24 3a 3a  llate_needed $::
2230: 44 42 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74  DB.  set ::sqlit
2240: 65 5f 6c 61 73 74 5f 6e 65 65 64 65 64 5f 63 6f  e_last_needed_co
2250: 6c 6c 61 74 69 6f 6e 0a 7d 20 7b 7d 0a 64 6f 5f  llation.} {}.do_
2260: 74 65 73 74 20 65 6e 63 32 2d 35 2e 31 36 20 7b  test enc2-5.16 {
2270: 0a 20 20 65 78 65 63 73 71 6c 20 7b 43 52 45 41  .  execsql {CREA
2280: 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 76 61  TE TABLE t1(a va
2290: 72 63 68 61 72 20 63 6f 6c 6c 61 74 65 20 74 65  rchar collate te
22a0: 73 74 5f 63 6f 6c 6c 61 74 65 29 3b 7d 0a 7d 20  st_collate);}.} 
22b0: 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  {}.do_test enc2-
22c0: 35 2e 31 37 20 7b 0a 20 20 73 65 74 20 3a 3a 73  5.17 {.  set ::s
22d0: 71 6c 69 74 65 5f 6c 61 73 74 5f 6e 65 65 64 65  qlite_last_neede
22e0: 64 5f 63 6f 6c 6c 61 74 69 6f 6e 0a 7d 20 7b 74  d_collation.} {t
22f0: 65 73 74 5f 63 6f 6c 6c 61 74 65 7d 0a 0a 23 20  est_collate}..# 
2300: 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 65  The following te
2310: 73 74 73 20 2d 20 65 6e 63 32 2d 36 2e 2a 20 2d  sts - enc2-6.* -
2320: 20 74 65 73 74 20 74 68 61 74 20 53 51 4c 69 74   test that SQLit
2330: 65 20 73 65 6c 65 63 74 73 20 74 68 65 20 63 6f  e selects the co
2340: 72 72 65 63 74 0a 23 20 75 73 65 72 20 66 75 6e  rrect.# user fun
2350: 63 74 69 6f 6e 20 77 68 65 6e 20 6d 6f 72 65 20  ction when more 
2360: 74 68 61 6e 20 6f 6e 65 20 69 73 20 61 76 61 69  than one is avai
2370: 6c 61 62 6c 65 2e 0a 0a 70 72 6f 63 20 74 65 73  lable...proc tes
2380: 74 5f 66 75 6e 63 74 69 6f 6e 20 7b 65 6e 63 20  t_function {enc 
2390: 61 72 67 7d 20 7b 0a 20 20 72 65 74 75 72 6e 20  arg} {.  return 
23a0: 22 24 65 6e 63 20 24 61 72 67 22 0a 7d 0a 0a 64  "$enc $arg".}..d
23b0: 62 20 63 6c 6f 73 65 0a 66 6f 72 63 65 64 65 6c  b close.forcedel
23c0: 65 74 65 20 74 65 73 74 2e 64 62 0a 73 71 6c 69  ete test.db.sqli
23d0: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20  te3 db test.db; 
23e0: 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f  set DB [sqlite3_
23f0: 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74  connection_point
2400: 65 72 20 64 62 5d 0a 65 78 65 63 73 71 6c 20 7b  er db].execsql {
2410: 70 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e 67 20  pragma encoding 
2420: 3d 20 27 55 54 46 2d 38 27 7d 0a 64 6f 5f 74 65  = 'UTF-8'}.do_te
2430: 73 74 20 65 6e 63 32 2d 36 2e 30 20 7b 0a 20 20  st enc2-6.0 {.  
2440: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52  execsql {.    CR
2450: 45 41 54 45 20 54 41 42 4c 45 20 74 35 28 61 29  EATE TABLE t5(a)
2460: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
2470: 4f 20 74 35 20 56 41 4c 55 45 53 28 27 6f 6e 65  O t5 VALUES('one
2480: 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f  ');.  }.} {}.do_
2490: 74 65 73 74 20 65 6e 63 32 2d 36 2e 31 20 7b 0a  test enc2-6.1 {.
24a0: 20 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74    add_test_funct
24b0: 69 6f 6e 20 24 44 42 20 31 20 31 20 31 0a 20 20  ion $DB 1 1 1.  
24c0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45  execsql {.    SE
24d0: 4c 45 43 54 20 74 65 73 74 5f 66 75 6e 63 74 69  LECT test_functi
24e0: 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a 20 20 7d  on('sqlite').  }
24f0: 0a 7d 20 7b 7b 55 54 46 2d 38 20 73 71 6c 69 74  .} {{UTF-8 sqlit
2500: 65 7d 7d 0a 64 62 20 63 6c 6f 73 65 0a 73 71 6c  e}}.db close.sql
2510: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b  ite3 db test.db;
2520: 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33   set DB [sqlite3
2530: 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e  _connection_poin
2540: 74 65 72 20 64 62 5d 0a 64 6f 5f 74 65 73 74 20  ter db].do_test 
2550: 65 6e 63 32 2d 36 2e 32 20 7b 0a 20 20 61 64 64  enc2-6.2 {.  add
2560: 5f 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24  _test_function $
2570: 44 42 20 30 20 31 20 30 0a 20 20 65 78 65 63 73  DB 0 1 0.  execs
2580: 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20  ql {.    SELECT 
2590: 74 65 73 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73  test_function('s
25a0: 71 6c 69 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b  qlite').  }.} {{
25b0: 55 54 46 2d 31 36 4c 45 20 73 71 6c 69 74 65 7d  UTF-16LE sqlite}
25c0: 7d 0a 64 62 20 63 6c 6f 73 65 0a 73 71 6c 69 74  }.db close.sqlit
25d0: 65 33 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73  e3 db test.db; s
25e0: 65 74 20 44 42 20 5b 73 71 6c 69 74 65 33 5f 63  et DB [sqlite3_c
25f0: 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65  onnection_pointe
2600: 72 20 64 62 5d 0a 64 6f 5f 74 65 73 74 20 65 6e  r db].do_test en
2610: 63 32 2d 36 2e 33 20 7b 0a 20 20 61 64 64 5f 74  c2-6.3 {.  add_t
2620: 65 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42  est_function $DB
2630: 20 30 20 30 20 31 0a 20 20 65 78 65 63 73 71 6c   0 0 1.  execsql
2640: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74 65   {.    SELECT te
2650: 73 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c  st_function('sql
2660: 69 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54  ite').  }.} {{UT
2670: 46 2d 31 36 42 45 20 73 71 6c 69 74 65 7d 7d 0a  F-16BE sqlite}}.
2680: 0a 64 62 20 63 6c 6f 73 65 0a 66 6f 72 63 65 64  .db close.forced
2690: 65 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 73 71  elete test.db.sq
26a0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
26b0: 3b 20 73 65 74 20 44 42 20 5b 73 71 6c 69 74 65  ; set DB [sqlite
26c0: 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f 69  3_connection_poi
26d0: 6e 74 65 72 20 64 62 5d 0a 65 78 65 63 73 71 6c  nter db].execsql
26e0: 20 7b 70 72 61 67 6d 61 20 65 6e 63 6f 64 69 6e   {pragma encodin
26f0: 67 20 3d 20 27 55 54 46 2d 31 36 4c 45 27 7d 0a  g = 'UTF-16LE'}.
2700: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 33  do_test enc2-6.3
2710: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20   {.  execsql {. 
2720: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
2730: 74 35 28 61 29 3b 0a 20 20 20 20 49 4e 53 45 52  t5(a);.    INSER
2740: 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53  T INTO t5 VALUES
2750: 28 27 73 71 6c 69 74 65 27 29 3b 0a 20 20 7d 0a  ('sqlite');.  }.
2760: 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 65 6e 63  } {}.do_test enc
2770: 32 2d 36 2e 34 20 7b 0a 20 20 61 64 64 5f 74 65  2-6.4 {.  add_te
2780: 73 74 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42 20  st_function $DB 
2790: 31 20 31 20 31 0a 20 20 65 78 65 63 73 71 6c 20  1 1 1.  execsql 
27a0: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 74 65 73  {.    SELECT tes
27b0: 74 5f 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69  t_function('sqli
27c0: 74 65 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46  te').  }.} {{UTF
27d0: 2d 31 36 4c 45 20 73 71 6c 69 74 65 7d 7d 0a 64  -16LE sqlite}}.d
27e0: 62 20 63 6c 6f 73 65 0a 73 71 6c 69 74 65 33 20  b close.sqlite3 
27f0: 64 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20  db test.db; set 
2800: 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e  DB [sqlite3_conn
2810: 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64  ection_pointer d
2820: 62 5d 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d  b].do_test enc2-
2830: 36 2e 35 20 7b 0a 20 20 61 64 64 5f 74 65 73 74  6.5 {.  add_test
2840: 5f 66 75 6e 63 74 69 6f 6e 20 24 44 42 20 30 20  _function $DB 0 
2850: 31 20 30 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  1 0.  execsql {.
2860: 20 20 20 20 53 45 4c 45 43 54 20 74 65 73 74 5f      SELECT test_
2870: 66 75 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74 65  function('sqlite
2880: 27 29 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31  ').  }.} {{UTF-1
2890: 36 4c 45 20 73 71 6c 69 74 65 7d 7d 0a 64 62 20  6LE sqlite}}.db 
28a0: 63 6c 6f 73 65 0a 73 71 6c 69 74 65 33 20 64 62  close.sqlite3 db
28b0: 20 74 65 73 74 2e 64 62 3b 20 73 65 74 20 44 42   test.db; set DB
28c0: 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63   [sqlite3_connec
28d0: 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d  tion_pointer db]
28e0: 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e  .do_test enc2-6.
28f0: 36 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 66  6 {.  add_test_f
2900: 75 6e 63 74 69 6f 6e 20 24 44 42 20 30 20 30 20  unction $DB 0 0 
2910: 31 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  1.  execsql {.  
2920: 20 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66 75    SELECT test_fu
2930: 6e 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27 29  nction('sqlite')
2940: 0a 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 42  .  }.} {{UTF-16B
2950: 45 20 73 71 6c 69 74 65 7d 7d 0a 0a 64 62 20 63  E sqlite}}..db c
2960: 6c 6f 73 65 0a 66 6f 72 63 65 64 65 6c 65 74 65  lose.forcedelete
2970: 20 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65 33   test.db.sqlite3
2980: 20 64 62 20 74 65 73 74 2e 64 62 3b 20 73 65 74   db test.db; set
2990: 20 44 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e   DB [sqlite3_con
29a0: 6e 65 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20  nection_pointer 
29b0: 64 62 5d 0a 65 78 65 63 73 71 6c 20 7b 70 72 61  db].execsql {pra
29c0: 67 6d 61 20 65 6e 63 6f 64 69 6e 67 20 3d 20 27  gma encoding = '
29d0: 55 54 46 2d 31 36 42 45 27 7d 0a 64 6f 5f 74 65  UTF-16BE'}.do_te
29e0: 73 74 20 65 6e 63 32 2d 36 2e 37 20 7b 0a 20 20  st enc2-6.7 {.  
29f0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 43 52  execsql {.    CR
2a00: 45 41 54 45 20 54 41 42 4c 45 20 74 35 28 61 29  EATE TABLE t5(a)
2a10: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
2a20: 4f 20 74 35 20 56 41 4c 55 45 53 28 27 73 71 6c  O t5 VALUES('sql
2a30: 69 74 65 27 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a  ite');.  }.} {}.
2a40: 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 38  do_test enc2-6.8
2a50: 20 7b 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75   {.  add_test_fu
2a60: 6e 63 74 69 6f 6e 20 24 44 42 20 31 20 31 20 31  nction $DB 1 1 1
2a70: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
2a80: 20 53 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e   SELECT test_fun
2a90: 63 74 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a  ction('sqlite').
2aa0: 20 20 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 42 45    }.} {{UTF-16BE
2ab0: 20 73 71 6c 69 74 65 7d 7d 0a 64 62 20 63 6c 6f   sqlite}}.db clo
2ac0: 73 65 0a 73 71 6c 69 74 65 33 20 64 62 20 74 65  se.sqlite3 db te
2ad0: 73 74 2e 64 62 3b 20 73 65 74 20 44 42 20 5b 73  st.db; set DB [s
2ae0: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
2af0: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 64 6f  n_pointer db].do
2b00: 5f 74 65 73 74 20 65 6e 63 32 2d 36 2e 39 20 7b  _test enc2-6.9 {
2b10: 0a 20 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63  .  add_test_func
2b20: 74 69 6f 6e 20 24 44 42 20 30 20 31 20 30 0a 20  tion $DB 0 1 0. 
2b30: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53   execsql {.    S
2b40: 45 4c 45 43 54 20 74 65 73 74 5f 66 75 6e 63 74  ELECT test_funct
2b50: 69 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a 20 20  ion('sqlite').  
2b60: 7d 0a 7d 20 7b 7b 55 54 46 2d 31 36 4c 45 20 73  }.} {{UTF-16LE s
2b70: 71 6c 69 74 65 7d 7d 0a 64 62 20 63 6c 6f 73 65  qlite}}.db close
2b80: 0a 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74  .sqlite3 db test
2b90: 2e 64 62 3b 20 73 65 74 20 44 42 20 5b 73 71 6c  .db; set DB [sql
2ba0: 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f  ite3_connection_
2bb0: 70 6f 69 6e 74 65 72 20 64 62 5d 0a 64 6f 5f 74  pointer db].do_t
2bc0: 65 73 74 20 65 6e 63 32 2d 36 2e 31 30 20 7b 0a  est enc2-6.10 {.
2bd0: 20 20 61 64 64 5f 74 65 73 74 5f 66 75 6e 63 74    add_test_funct
2be0: 69 6f 6e 20 24 44 42 20 30 20 30 20 31 0a 20 20  ion $DB 0 0 1.  
2bf0: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45  execsql {.    SE
2c00: 4c 45 43 54 20 74 65 73 74 5f 66 75 6e 63 74 69  LECT test_functi
2c10: 6f 6e 28 27 73 71 6c 69 74 65 27 29 0a 20 20 7d  on('sqlite').  }
2c20: 0a 7d 20 7b 7b 55 54 46 2d 31 36 42 45 20 73 71  .} {{UTF-16BE sq
2c30: 6c 69 74 65 7d 7d 0a 0a 0a 64 62 20 63 6c 6f 73  lite}}...db clos
2c40: 65 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65  e.forcedelete te
2c50: 73 74 2e 64 62 0a 0a 23 20 54 68 65 20 66 6f 6c  st.db..# The fol
2c60: 6c 6f 77 69 6e 67 20 74 65 73 74 73 20 2d 20 65  lowing tests - e
2c70: 6e 63 32 2d 37 2e 2a 20 2d 20 66 75 6e 63 74 69  nc2-7.* - functi
2c80: 6f 6e 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 23  on as follows:.#
2c90: 0a 23 20 31 3a 20 4f 70 65 6e 20 61 6e 20 65 6d  .# 1: Open an em
2ca0: 70 74 79 20 64 61 74 61 62 61 73 65 20 66 69 6c  pty database fil
2cb0: 65 20 61 73 73 75 6d 69 6e 67 20 55 54 46 2d 31  e assuming UTF-1
2cc0: 36 20 65 6e 63 6f 64 69 6e 67 2e 0a 23 20 32 3a  6 encoding..# 2:
2cd0: 20 4f 70 65 6e 20 74 68 65 20 73 61 6d 65 20 64   Open the same d
2ce0: 61 74 61 62 61 73 65 20 77 69 74 68 20 61 20 64  atabase with a d
2cf0: 69 66 66 65 72 65 6e 74 20 68 61 6e 64 6c 65 20  ifferent handle 
2d00: 61 73 73 75 6d 69 6e 67 20 55 54 46 2d 38 2e 20  assuming UTF-8. 
2d10: 43 72 65 61 74 65 0a 23 20 20 20 20 61 20 74 61  Create.#    a ta
2d20: 62 6c 65 20 75 73 69 6e 67 20 74 68 69 73 20 68  ble using this h
2d30: 61 6e 64 6c 65 2e 0a 23 20 33 3a 20 52 65 61 64  andle..# 3: Read
2d40: 20 74 68 65 20 73 71 6c 69 74 65 5f 6d 61 73 74   the sqlite_mast
2d50: 65 72 20 74 61 62 6c 65 20 66 72 6f 6d 20 74 68  er table from th
2d60: 65 20 66 69 72 73 74 20 68 61 6e 64 6c 65 2e 20  e first handle. 
2d70: 0a 23 20 34 3a 20 45 6e 73 75 72 65 20 74 68 65  .# 4: Ensure the
2d80: 20 66 69 72 73 74 20 68 61 6e 64 6c 65 20 72 65   first handle re
2d90: 63 6f 67 6e 69 73 65 73 20 74 68 65 20 64 61 74  cognises the dat
2da0: 61 62 61 73 65 20 65 6e 63 6f 64 69 6e 67 20 69  abase encoding i
2db0: 73 20 55 54 46 2d 38 2e 0a 23 0a 64 6f 5f 74 65  s UTF-8..#.do_te
2dc0: 73 74 20 65 6e 63 32 2d 37 2e 31 20 7b 0a 20 20  st enc2-7.1 {.  
2dd0: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
2de0: 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  db.  execsql {. 
2df0: 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69     PRAGMA encodi
2e00: 6e 67 20 3d 20 27 55 54 46 2d 31 36 27 3b 0a 20  ng = 'UTF-16';. 
2e10: 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d     SELECT * FROM
2e20: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a   sqlite_master;.
2e30: 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74    }.} {}.do_test
2e40: 20 65 6e 63 32 2d 37 2e 32 20 7b 0a 20 20 73 65   enc2-7.2 {.  se
2e50: 74 20 65 6e 63 20 5b 65 78 65 63 73 71 6c 20 7b  t enc [execsql {
2e60: 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f  .    PRAGMA enco
2e70: 64 69 6e 67 3b 0a 20 20 7d 5d 0a 20 20 73 74 72  ding;.  }].  str
2e80: 69 6e 67 20 72 61 6e 67 65 20 24 65 6e 63 20 30  ing range $enc 0
2e90: 20 65 6e 64 2d 32 20 3b 23 20 43 68 6f 70 20 6f   end-2 ;# Chop o
2ea0: 66 66 20 74 68 65 20 22 6c 65 22 20 6f 72 20 22  ff the "le" or "
2eb0: 62 65 22 0a 7d 20 7b 55 54 46 2d 31 36 7d 0a 64  be".} {UTF-16}.d
2ec0: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 37 2e 33 20  o_test enc2-7.3 
2ed0: 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32 20  {.  sqlite3 db2 
2ee0: 74 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71  test.db.  execsq
2ef0: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 65  l {.    PRAGMA e
2f00: 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 38  ncoding = 'UTF-8
2f10: 27 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  ';.    CREATE TA
2f20: 42 4c 45 20 61 62 63 28 61 2c 20 62 2c 20 63 29  BLE abc(a, b, c)
2f30: 3b 0a 20 20 7d 20 64 62 32 0a 7d 20 7b 7d 0a 64  ;.  } db2.} {}.d
2f40: 6f 5f 74 65 73 74 20 65 6e 63 32 2d 37 2e 34 20  o_test enc2-7.4 
2f50: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  {.  execsql {.  
2f60: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
2f70: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20  sqlite_master;. 
2f80: 20 7d 0a 7d 20 22 74 61 62 6c 65 20 61 62 63 20   }.} "table abc 
2f90: 61 62 63 20 5b 65 78 70 72 20 24 41 55 54 4f 56  abc [expr $AUTOV
2fa0: 41 43 55 55 4d 3f 33 3a 32 5d 20 7b 43 52 45 41  ACUUM?3:2] {CREA
2fb0: 54 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20  TE TABLE abc(a, 
2fc0: 62 2c 20 63 29 7d 22 0a 64 6f 5f 74 65 73 74 20  b, c)}".do_test 
2fd0: 65 6e 63 32 2d 37 2e 35 20 7b 0a 20 20 65 78 65  enc2-7.5 {.  exe
2fe0: 63 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d  csql {.    PRAGM
2ff0: 41 20 65 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a  A encoding;.  }.
3000: 7d 20 7b 55 54 46 2d 38 7d 0a 0a 64 62 20 63 6c  } {UTF-8}..db cl
3010: 6f 73 65 0a 64 62 32 20 63 6c 6f 73 65 0a 0a 70  ose.db2 close..p
3020: 72 6f 63 20 75 74 66 31 36 20 7b 75 74 66 38 7d  roc utf16 {utf8}
3030: 20 7b 0a 20 20 73 65 74 20 75 74 66 31 36 20 5b   {.  set utf16 [
3040: 65 6e 63 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74  encoding convert
3050: 74 6f 20 75 6e 69 63 6f 64 65 20 24 75 74 66 38  to unicode $utf8
3060: 5d 0a 20 20 61 70 70 65 6e 64 20 75 74 66 31 36  ].  append utf16
3070: 20 22 5c 78 30 30 5c 78 30 30 22 0a 20 20 72 65   "\x00\x00".  re
3080: 74 75 72 6e 20 24 75 74 66 31 36 0a 7d 0a 69 66  turn $utf16.}.if
3090: 63 61 70 61 62 6c 65 20 7b 63 6f 6d 70 6c 65 74  capable {complet
30a0: 65 7d 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 65  e} {.  do_test e
30b0: 6e 63 32 2d 38 2e 31 20 7b 0a 20 20 20 20 73 71  nc2-8.1 {.    sq
30c0: 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36  lite3_complete16
30d0: 20 5b 75 74 66 31 36 20 22 53 45 4c 45 43 54 20   [utf16 "SELECT 
30e0: 2a 20 46 52 4f 4d 20 74 31 3b 22 5d 0a 20 20 7d  * FROM t1;"].  }
30f0: 20 7b 31 7d 0a 20 20 64 6f 5f 74 65 73 74 20 65   {1}.  do_test e
3100: 6e 63 32 2d 38 2e 32 20 7b 0a 20 20 20 20 73 71  nc2-8.2 {.    sq
3110: 6c 69 74 65 33 5f 63 6f 6d 70 6c 65 74 65 31 36  lite3_complete16
3120: 20 5b 75 74 66 31 36 20 22 53 45 4c 45 43 54 20   [utf16 "SELECT 
3130: 2a 20 46 52 4f 4d 22 5d 0a 20 20 7d 20 7b 30 7d  * FROM"].  } {0}
3140: 0a 7d 0a 0a 23 20 54 65 73 74 20 74 68 61 74 20  .}..# Test that 
3150: 74 68 65 20 65 6e 63 6f 64 69 6e 67 20 6f 66 20  the encoding of 
3160: 61 6e 20 65 6d 70 74 79 20 64 61 74 61 62 61 73  an empty databas
3170: 65 20 6d 61 79 20 73 74 69 6c 6c 20 62 65 20 73  e may still be s
3180: 65 74 20 61 66 74 65 72 20 74 68 65 0a 23 20 28  et after the.# (
3190: 65 6d 70 74 79 29 20 73 63 68 65 6d 61 20 68 61  empty) schema ha
31a0: 73 20 62 65 65 6e 20 69 6e 69 74 69 61 6c 69 7a  s been initializ
31b0: 65 64 2e 0a 66 6f 72 63 65 64 65 6c 65 74 65 20  ed..forcedelete 
31c0: 74 65 73 74 2e 64 62 0a 64 6f 5f 74 65 73 74 20  test.db.do_test 
31d0: 65 6e 63 32 2d 39 2e 31 20 7b 0a 20 20 73 71 6c  enc2-9.1 {.  sql
31e0: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a  ite3 db test.db.
31f0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
3200: 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 20  PRAGMA encoding 
3210: 3d 20 27 55 54 46 2d 38 27 3b 0a 20 20 20 20 50  = 'UTF-8';.    P
3220: 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3b 0a  RAGMA encoding;.
3230: 20 20 7d 0a 7d 20 7b 55 54 46 2d 38 7d 0a 64 6f    }.} {UTF-8}.do
3240: 5f 74 65 73 74 20 65 6e 63 32 2d 39 2e 32 20 7b  _test enc2-9.2 {
3250: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65  .  sqlite3 db te
3260: 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20  st.db.  execsql 
3270: 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63  {.    PRAGMA enc
3280: 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d 31 36 6c  oding = 'UTF-16l
3290: 65 27 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 65  e';.    PRAGMA e
32a0: 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d 20 7b  ncoding;.  }.} {
32b0: 55 54 46 2d 31 36 6c 65 7d 0a 64 6f 5f 74 65 73  UTF-16le}.do_tes
32c0: 74 20 65 6e 63 32 2d 39 2e 33 20 7b 0a 20 20 73  t enc2-9.3 {.  s
32d0: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
32e0: 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  b.  execsql {.  
32f0: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
3300: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 3b 0a 20  sqlite_master;. 
3310: 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69     PRAGMA encodi
3320: 6e 67 20 3d 20 27 55 54 46 2d 38 27 3b 0a 20 20  ng = 'UTF-8';.  
3330: 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e    PRAGMA encodin
3340: 67 3b 0a 20 20 7d 0a 7d 20 7b 55 54 46 2d 38 7d  g;.  }.} {UTF-8}
3350: 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32 2d 39 2e  .do_test enc2-9.
3360: 34 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62  4 {.  sqlite3 db
3370: 20 74 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73   test.db.  execs
3380: 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20  ql {.    PRAGMA 
3390: 65 6e 63 6f 64 69 6e 67 20 3d 20 27 55 54 46 2d  encoding = 'UTF-
33a0: 31 36 6c 65 27 3b 0a 20 20 20 20 43 52 45 41 54  16le';.    CREAT
33b0: 45 20 54 41 42 4c 45 20 61 62 63 28 61 2c 20 62  E TABLE abc(a, b
33c0: 2c 20 63 29 3b 0a 20 20 20 20 50 52 41 47 4d 41  , c);.    PRAGMA
33d0: 20 65 6e 63 6f 64 69 6e 67 3b 0a 20 20 7d 0a 7d   encoding;.  }.}
33e0: 20 7b 55 54 46 2d 31 36 6c 65 7d 0a 64 6f 5f 74   {UTF-16le}.do_t
33f0: 65 73 74 20 65 6e 63 32 2d 39 2e 35 20 7b 0a 20  est enc2-9.5 {. 
3400: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
3410: 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  .db.  execsql {.
3420: 20 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64      PRAGMA encod
3430: 69 6e 67 20 3d 20 27 55 54 46 2d 38 27 3b 0a 20  ing = 'UTF-8';. 
3440: 20 20 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69     PRAGMA encodi
3450: 6e 67 3b 0a 20 20 7d 0a 7d 20 7b 55 54 46 2d 31  ng;.  }.} {UTF-1
3460: 36 6c 65 7d 0a 0a 23 20 54 69 63 6b 65 74 20 23  6le}..# Ticket #
3470: 31 39 38 37 2e 0a 23 20 44 69 73 61 6c 6c 6f 77  1987..# Disallow
3480: 20 65 6e 63 6f 64 69 6e 67 20 63 68 61 6e 67 65   encoding change
3490: 73 20 6f 6e 63 65 20 74 68 65 20 65 6e 63 6f 64  s once the encod
34a0: 69 6e 67 20 68 61 73 20 62 65 65 6e 20 73 65 74  ing has been set
34b0: 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 65 6e 63 32  ..#.do_test enc2
34c0: 2d 31 30 2e 31 20 7b 0a 20 20 64 62 20 63 6c 6f  -10.1 {.  db clo
34d0: 73 65 0a 20 20 66 6f 72 63 65 64 65 6c 65 74 65  se.  forcedelete
34e0: 20 74 65 73 74 2e 64 62 20 74 65 73 74 2e 64 62   test.db test.db
34f0: 2d 6a 6f 75 72 6e 61 6c 0a 20 20 73 71 6c 69 74  -journal.  sqlit
3500: 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20 20  e3 db test.db.  
3510: 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 50 52  db eval {.    PR
3520: 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67 3d 55 54  AGMA encoding=UT
3530: 46 31 36 3b 0a 20 20 20 20 43 52 45 41 54 45 20  F16;.    CREATE 
3540: 54 41 42 4c 45 20 74 31 28 61 29 3b 0a 20 20 20  TABLE t1(a);.   
3550: 20 50 52 41 47 4d 41 20 65 6e 63 6f 64 69 6e 67   PRAGMA encoding
3560: 3d 55 54 46 38 3b 0a 20 20 20 20 43 52 45 41 54  =UTF8;.    CREAT
3570: 45 20 54 41 42 4c 45 20 74 32 28 62 29 3b 0a 20  E TABLE t2(b);. 
3580: 20 7d 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20   }.  db close.  
3590: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
35a0: 64 62 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20  db.  db eval {. 
35b0: 20 20 20 53 45 4c 45 43 54 20 6e 61 6d 65 20 46     SELECT name F
35c0: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
35d0: 72 0a 20 20 7d 0a 7d 20 7b 74 31 20 74 32 7d 0a  r.  }.} {t1 t2}.
35e0: 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a           .finish_test.