/ Hex Artifact Content
Login

Artifact 3adcc799229545940df2f25308dd1ad65869145a:


0000: 23 0a 23 20 32 30 30 37 20 4e 6f 76 65 6d 62 65  #.# 2007 Novembe
0010: 72 20 31 32 0a 23 0a 23 20 54 68 65 20 61 75 74  r 12.#.# The aut
0020: 68 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f  hor disclaims co
0030: 70 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20  pyright to this 
0040: 73 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e  source code.  In
0050: 20 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65   place of.# a le
0060: 67 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65  gal notice, here
0070: 20 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a   is a blessing:.
0080: 23 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64  #.#    May you d
0090: 6f 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65  o good and not e
00a0: 76 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f  vil..#    May yo
00b0: 75 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65  u find forgivene
00c0: 73 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20  ss for yourself 
00d0: 61 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65  and forgive othe
00e0: 72 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  rs..#    May you
00f0: 20 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e   share freely, n
0100: 65 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65  ever taking more
0110: 20 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a   than you give..
0120: 23 0a 23 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 2a 2a 2a 2a 2a 2a 2a 0a 23 20 54 68 69  **********.# Thi
0170: 73 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74  s file implement
0180: 73 20 72 65 67 72 65 73 73 69 6f 6e 20 74 65 73  s regression tes
0190: 74 73 20 66 6f 72 20 53 51 4c 69 74 65 20 6c 69  ts for SQLite li
01a0: 62 72 61 72 79 2e 20 20 54 68 65 0a 23 20 66 6f  brary.  The.# fo
01b0: 63 75 73 20 6f 66 20 74 68 69 73 20 73 63 72 69  cus of this scri
01c0: 70 74 20 69 73 20 6d 61 6b 69 6e 67 20 73 75 72  pt is making sur
01d0: 65 20 74 68 61 74 20 74 68 65 20 6e 61 6d 65 73  e that the names
01e0: 20 6f 66 20 63 6f 6c 6c 61 74 69 6f 6e 0a 23 20   of collation.# 
01f0: 73 65 71 75 65 6e 63 65 73 20 6d 61 79 20 62 65  sequences may be
0200: 20 71 75 6f 74 65 64 20 75 73 69 6e 67 20 64 6f   quoted using do
0210: 75 62 6c 65 20 71 75 6f 74 65 73 20 69 6e 20 53  uble quotes in S
0220: 51 4c 20 73 74 61 74 65 6d 65 6e 74 73 2e 0a 23  QL statements..#
0230: 0a 23 20 24 49 64 3a 20 63 6f 6c 6c 61 74 65 39  .# $Id: collate9
0240: 2e 74 65 73 74 2c 76 20 31 2e 32 20 32 30 30 38  .test,v 1.2 2008
0250: 2f 30 37 2f 31 30 20 30 30 3a 33 32 3a 34 32 20  /07/10 00:32:42 
0260: 64 72 68 20 45 78 70 20 24 0a 0a 73 65 74 20 74  drh Exp $..set t
0270: 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72  estdir [file dir
0280: 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f 75  name $argv0].sou
0290: 72 63 65 20 24 74 65 73 74 64 69 72 2f 74 65 73  rce $testdir/tes
02a0: 74 65 72 2e 74 63 6c 0a 0a 70 72 6f 63 20 72 65  ter.tcl..proc re
02b0: 76 65 72 73 65 5f 73 6f 72 74 20 7b 6c 68 73 20  verse_sort {lhs 
02c0: 72 68 73 7d 20 7b 0a 20 20 72 65 74 75 72 6e 20  rhs} {.  return 
02d0: 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 20  [string compare 
02e0: 24 72 68 73 20 24 6c 68 73 5d 0a 7d 0a 64 62 20  $rhs $lhs].}.db 
02f0: 63 6f 6c 6c 61 74 65 20 22 72 65 76 65 72 73 65  collate "reverse
0300: 20 73 6f 72 74 22 20 72 65 76 65 72 73 65 5f 73   sort" reverse_s
0310: 6f 72 74 0a 0a 23 20 54 68 69 73 20 70 72 6f 63  ort..# This proc
0320: 65 64 75 72 65 20 65 78 65 63 75 74 65 73 20 74  edure executes t
0330: 68 65 20 53 51 4c 2e 20 20 54 68 65 6e 20 69 74  he SQL.  Then it
0340: 20 63 68 65 63 6b 73 20 74 6f 20 73 65 65 20 69   checks to see i
0350: 66 20 74 68 65 20 4f 50 5f 53 6f 72 74 0a 23 20  f the OP_Sort.# 
0360: 6f 70 63 6f 64 65 20 77 61 73 20 65 78 65 63 75  opcode was execu
0370: 74 65 64 2e 20 20 49 66 20 61 6e 20 4f 50 5f 53  ted.  If an OP_S
0380: 6f 72 74 20 64 69 64 20 6f 63 63 75 72 2c 20 74  ort did occur, t
0390: 68 65 6e 20 22 73 6f 72 74 22 20 69 73 20 61 70  hen "sort" is ap
03a0: 70 65 6e 64 65 64 0a 23 20 74 6f 20 74 68 65 20  pended.# to the 
03b0: 72 65 73 75 6c 74 2e 20 20 49 66 20 6e 6f 20 4f  result.  If no O
03c0: 50 5f 53 6f 72 74 20 68 61 70 70 65 6e 65 64 2c  P_Sort happened,
03d0: 20 74 68 65 6e 20 22 6e 6f 73 6f 72 74 22 20 69   then "nosort" i
03e0: 73 20 61 70 70 65 6e 64 65 64 2e 0a 23 0a 23 20  s appended..#.# 
03f0: 54 68 69 73 20 70 72 6f 63 65 64 75 72 65 20 69  This procedure i
0400: 73 20 75 73 65 64 20 74 6f 20 63 68 65 63 6b 20  s used to check 
0410: 74 6f 20 6d 61 6b 65 20 73 75 72 65 20 73 6f 72  to make sure sor
0420: 74 69 6e 67 20 69 73 20 6f 72 20 69 73 20 6e 6f  ting is or is no
0430: 74 0a 23 20 6f 63 63 75 72 72 69 6e 67 20 61 73  t.# occurring as
0440: 20 65 78 70 65 63 74 65 64 2e 0a 23 0a 70 72 6f   expected..#.pro
0450: 63 20 63 6b 73 6f 72 74 20 7b 73 71 6c 7d 20 7b  c cksort {sql} {
0460: 0a 20 20 73 65 74 20 3a 3a 73 71 6c 69 74 65 5f  .  set ::sqlite_
0470: 73 6f 72 74 5f 63 6f 75 6e 74 20 30 0a 20 20 73  sort_count 0.  s
0480: 65 74 20 64 61 74 61 20 5b 65 78 65 63 73 71 6c  et data [execsql
0490: 20 24 73 71 6c 5d 0a 20 20 69 66 20 7b 24 3a 3a   $sql].  if {$::
04a0: 73 71 6c 69 74 65 5f 73 6f 72 74 5f 63 6f 75 6e  sqlite_sort_coun
04b0: 74 7d 20 7b 73 65 74 20 78 20 73 6f 72 74 7d 20  t} {set x sort} 
04c0: 7b 73 65 74 20 78 20 6e 6f 73 6f 72 74 7d 0a 20  {set x nosort}. 
04d0: 20 6c 61 70 70 65 6e 64 20 64 61 74 61 20 24 78   lappend data $x
04e0: 0a 20 20 72 65 74 75 72 6e 20 24 64 61 74 61 0a  .  return $data.
04f0: 7d 0a 0a 23 20 54 65 73 74 20 70 6c 61 6e 3a 0a  }..# Test plan:.
0500: 23 0a 23 20 20 20 20 20 63 6f 6c 6c 61 74 65 39  #.#     collate9
0510: 2d 31 2e 2a 20 2d 20 54 65 73 74 20 63 6f 6c 6c  -1.* - Test coll
0520: 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 73 20  ation sequences 
0530: 61 74 74 61 63 68 65 64 20 74 6f 20 74 61 62 6c  attached to tabl
0540: 65 20 63 6f 6c 75 6d 6e 73 0a 23 20 20 20 20 20  e columns.#     
0550: 63 6f 6c 6c 61 74 65 39 2d 32 2e 2a 20 2d 20 54  collate9-2.* - T
0560: 65 73 74 20 63 6f 6c 6c 61 74 69 6f 6e 20 73 65  est collation se
0570: 71 75 65 6e 63 65 73 20 61 74 74 61 63 68 65 64  quences attached
0580: 20 74 6f 20 65 78 70 72 65 73 73 69 6f 6e 73 0a   to expressions.
0590: 23 20 20 20 20 20 63 6f 6c 6c 61 74 65 39 2d 33  #     collate9-3
05a0: 2e 2a 20 2d 20 54 65 73 74 20 63 6f 6c 6c 61 74  .* - Test collat
05b0: 69 6f 6e 20 73 65 71 75 65 6e 63 65 73 20 61 74  ion sequences at
05c0: 74 61 63 68 65 64 20 74 6f 20 61 6e 20 69 6e 64  tached to an ind
05d0: 65 78 0a 23 20 20 20 20 20 63 6f 6c 6c 61 74 65  ex.#     collate
05e0: 39 2d 34 2e 2a 20 2d 20 54 65 73 74 20 63 6f 6c  9-4.* - Test col
05f0: 6c 61 74 69 6f 6e 20 73 65 71 75 65 6e 63 65 73  lation sequences
0600: 20 61 73 20 61 6e 20 61 72 67 75 6d 65 6e 74 20   as an argument 
0610: 74 6f 20 52 45 49 4e 44 45 58 0a 23 0a 0a 64 6f  to REINDEX.#..do
0620: 5f 74 65 73 74 20 63 6f 6c 6c 61 74 65 39 2d 31  _test collate9-1
0630: 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .1 {.  execsql {
0640: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
0650: 45 20 78 79 28 78 20 43 4f 4c 4c 41 54 45 20 22  E xy(x COLLATE "
0660: 72 65 76 65 72 73 65 20 73 6f 72 74 22 2c 20 79  reverse sort", y
0670: 20 43 4f 4c 4c 41 54 45 20 62 69 6e 61 72 79 29   COLLATE binary)
0680: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
0690: 4f 20 78 79 20 56 41 4c 55 45 53 28 27 6f 6e 65  O xy VALUES('one
06a0: 27 2c 20 27 6f 6e 65 27 29 3b 0a 20 20 20 20 49  ', 'one');.    I
06b0: 4e 53 45 52 54 20 49 4e 54 4f 20 78 79 20 56 41  NSERT INTO xy VA
06c0: 4c 55 45 53 28 27 74 77 6f 27 2c 20 27 74 77 6f  LUES('two', 'two
06d0: 27 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49  ');.    INSERT I
06e0: 4e 54 4f 20 78 79 20 56 41 4c 55 45 53 28 27 74  NTO xy VALUES('t
06f0: 68 72 65 65 27 2c 20 27 74 68 72 65 65 27 29 3b  hree', 'three');
0700: 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73  .  }.} {}.do_tes
0710: 74 20 63 6f 6c 6c 61 74 65 39 2d 31 2e 32 20 7b  t collate9-1.2 {
0720: 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 0a 20 20  .  execsql { .  
0730: 20 20 53 45 4c 45 43 54 20 78 20 46 52 4f 4d 20    SELECT x FROM 
0740: 78 79 20 4f 52 44 45 52 20 42 59 20 78 0a 20 20  xy ORDER BY x.  
0750: 7d 0a 7d 20 7b 74 77 6f 20 74 68 72 65 65 20 6f  }.} {two three o
0760: 6e 65 7d 0a 64 6f 5f 74 65 73 74 20 63 6f 6c 6c  ne}.do_test coll
0770: 61 74 65 39 2d 31 2e 33 20 7b 0a 20 20 65 78 65  ate9-1.3 {.  exe
0780: 63 73 71 6c 20 7b 20 0a 20 20 20 20 53 45 4c 45  csql { .    SELE
0790: 43 54 20 79 20 46 52 4f 4d 20 78 79 20 4f 52 44  CT y FROM xy ORD
07a0: 45 52 20 42 59 20 79 0a 20 20 7d 0a 7d 20 7b 6f  ER BY y.  }.} {o
07b0: 6e 65 20 74 68 72 65 65 20 74 77 6f 7d 0a 64 6f  ne three two}.do
07c0: 5f 74 65 73 74 20 63 6f 6c 6c 61 74 65 39 2d 31  _test collate9-1
07d0: 2e 34 20 7b 0a 20 20 63 6b 73 6f 72 74 20 7b 20  .4 {.  cksort { 
07e0: 0a 20 20 20 20 53 45 4c 45 43 54 20 78 20 46 52  .    SELECT x FR
07f0: 4f 4d 20 78 79 20 4f 52 44 45 52 20 42 59 20 78  OM xy ORDER BY x
0800: 0a 20 20 7d 0a 7d 20 7b 74 77 6f 20 74 68 72 65  .  }.} {two thre
0810: 65 20 6f 6e 65 20 73 6f 72 74 7d 0a 64 6f 5f 74  e one sort}.do_t
0820: 65 73 74 20 63 6f 6c 6c 61 74 65 39 2d 31 2e 35  est collate9-1.5
0830: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 0a   {.  execsql { .
0840: 20 20 20 20 43 52 45 41 54 45 20 49 4e 44 45 58      CREATE INDEX
0850: 20 78 79 5f 69 20 4f 4e 20 78 79 28 78 29 0a 20   xy_i ON xy(x). 
0860: 20 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20   }.} {}.do_test 
0870: 63 6f 6c 6c 61 74 65 39 2d 31 2e 36 20 7b 0a 20  collate9-1.6 {. 
0880: 20 63 6b 73 6f 72 74 20 7b 20 0a 20 20 20 20 53   cksort { .    S
0890: 45 4c 45 43 54 20 78 20 46 52 4f 4d 20 78 79 20  ELECT x FROM xy 
08a0: 4f 52 44 45 52 20 42 59 20 78 0a 20 20 7d 0a 7d  ORDER BY x.  }.}
08b0: 20 7b 74 77 6f 20 74 68 72 65 65 20 6f 6e 65 20   {two three one 
08c0: 6e 6f 73 6f 72 74 7d 0a 0a 64 6f 5f 74 65 73 74  nosort}..do_test
08d0: 20 63 6f 6c 6c 61 74 65 39 2d 32 2e 31 20 7b 0a   collate9-2.1 {.
08e0: 20 20 65 78 65 63 73 71 6c 20 7b 20 0a 20 20 20    execsql { .   
08f0: 20 53 45 4c 45 43 54 20 78 2c 20 78 20 3c 20 27   SELECT x, x < '
0900: 73 65 76 65 6e 27 20 46 52 4f 4d 20 78 79 20 4f  seven' FROM xy O
0910: 52 44 45 52 20 42 59 20 78 0a 20 20 7d 0a 7d 20  RDER BY x.  }.} 
0920: 7b 74 77 6f 20 31 20 74 68 72 65 65 20 31 20 6f  {two 1 three 1 o
0930: 6e 65 20 30 7d 0a 64 6f 5f 74 65 73 74 20 63 6f  ne 0}.do_test co
0940: 6c 6c 61 74 65 39 2d 32 2e 32 20 7b 0a 20 20 65  llate9-2.2 {.  e
0950: 78 65 63 73 71 6c 20 7b 20 0a 20 20 20 20 53 45  xecsql { .    SE
0960: 4c 45 43 54 20 79 2c 20 79 20 3c 20 27 73 65 76  LECT y, y < 'sev
0970: 65 6e 27 20 46 52 4f 4d 20 78 79 20 4f 52 44 45  en' FROM xy ORDE
0980: 52 20 42 59 20 78 0a 20 20 7d 0a 7d 20 7b 74 77  R BY x.  }.} {tw
0990: 6f 20 30 20 74 68 72 65 65 20 30 20 6f 6e 65 20  o 0 three 0 one 
09a0: 31 7d 0a 64 6f 5f 74 65 73 74 20 63 6f 6c 6c 61  1}.do_test colla
09b0: 74 65 39 2d 32 2e 33 20 7b 0a 20 20 65 78 65 63  te9-2.3 {.  exec
09c0: 73 71 6c 20 7b 20 0a 20 20 20 20 53 45 4c 45 43  sql { .    SELEC
09d0: 54 20 79 2c 20 79 20 43 4f 4c 4c 41 54 45 20 22  T y, y COLLATE "
09e0: 72 65 76 65 72 73 65 20 73 6f 72 74 22 20 3c 20  reverse sort" < 
09f0: 27 73 65 76 65 6e 27 20 46 52 4f 4d 20 78 79 20  'seven' FROM xy 
0a00: 4f 52 44 45 52 20 42 59 20 78 0a 20 20 7d 0a 7d  ORDER BY x.  }.}
0a10: 20 7b 74 77 6f 20 31 20 74 68 72 65 65 20 31 20   {two 1 three 1 
0a20: 6f 6e 65 20 30 7d 0a 64 6f 5f 74 65 73 74 20 63  one 0}.do_test c
0a30: 6f 6c 6c 61 74 65 39 2d 32 2e 34 20 7b 0a 20 20  ollate9-2.4 {.  
0a40: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45  execsql {.    SE
0a50: 4c 45 43 54 20 79 20 46 52 4f 4d 20 78 79 20 4f  LECT y FROM xy O
0a60: 52 44 45 52 20 42 59 20 79 0a 20 20 7d 0a 7d 20  RDER BY y.  }.} 
0a70: 7b 6f 6e 65 20 74 68 72 65 65 20 74 77 6f 7d 0a  {one three two}.
0a80: 64 6f 5f 74 65 73 74 20 63 6f 6c 6c 61 74 65 39  do_test collate9
0a90: 2d 32 2e 35 20 7b 0a 20 20 65 78 65 63 73 71 6c  -2.5 {.  execsql
0aa0: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 79 20   {.    SELECT y 
0ab0: 46 52 4f 4d 20 78 79 20 4f 52 44 45 52 20 42 59  FROM xy ORDER BY
0ac0: 20 79 20 43 4f 4c 4c 41 54 45 20 22 72 65 76 65   y COLLATE "reve
0ad0: 72 73 65 20 73 6f 72 74 22 0a 20 20 7d 0a 7d 20  rse sort".  }.} 
0ae0: 7b 74 77 6f 20 74 68 72 65 65 20 6f 6e 65 7d 0a  {two three one}.
0af0: 64 6f 5f 74 65 73 74 20 63 6f 6c 6c 61 74 65 39  do_test collate9
0b00: 2d 32 2e 36 20 7b 0a 20 20 65 78 65 63 73 71 6c  -2.6 {.  execsql
0b10: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 79 20   {.    SELECT y 
0b20: 43 4f 4c 4c 41 54 45 20 22 72 65 76 65 72 73 65  COLLATE "reverse
0b30: 20 73 6f 72 74 22 20 41 53 20 61 61 61 20 46 52   sort" AS aaa FR
0b40: 4f 4d 20 78 79 20 4f 52 44 45 52 20 42 59 20 61  OM xy ORDER BY a
0b50: 61 61 0a 20 20 7d 0a 7d 20 7b 74 77 6f 20 74 68  aa.  }.} {two th
0b60: 72 65 65 20 6f 6e 65 7d 0a 0a 64 6f 5f 74 65 73  ree one}..do_tes
0b70: 74 20 63 6f 6c 6c 61 74 65 39 2d 33 2e 31 20 7b  t collate9-3.1 {
0b80: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
0b90: 20 43 52 45 41 54 45 20 49 4e 44 45 58 20 78 79   CREATE INDEX xy
0ba0: 5f 69 32 20 4f 4e 20 78 79 28 79 20 43 4f 4c 4c  _i2 ON xy(y COLL
0bb0: 41 54 45 20 22 72 65 76 65 72 73 65 20 73 6f 72  ATE "reverse sor
0bc0: 74 22 29 3b 0a 20 20 7d 0a 7d 20 7b 7d 0a 64 6f  t");.  }.} {}.do
0bd0: 5f 74 65 73 74 20 63 6f 6c 6c 61 74 65 39 2d 33  _test collate9-3
0be0: 2e 32 20 7b 0a 20 20 63 6b 73 6f 72 74 20 7b 20  .2 {.  cksort { 
0bf0: 0a 20 20 20 20 53 45 4c 45 43 54 20 79 20 46 52  .    SELECT y FR
0c00: 4f 4d 20 78 79 20 4f 52 44 45 52 20 42 59 20 79  OM xy ORDER BY y
0c10: 20 0a 20 20 7d 0a 7d 20 7b 6f 6e 65 20 74 68 72   .  }.} {one thr
0c20: 65 65 20 74 77 6f 20 73 6f 72 74 7d 0a 64 6f 5f  ee two sort}.do_
0c30: 74 65 73 74 20 63 6f 6c 6c 61 74 65 39 2d 33 2e  test collate9-3.
0c40: 33 20 7b 0a 20 20 63 6b 73 6f 72 74 20 7b 20 0a  3 {.  cksort { .
0c50: 20 20 20 20 53 45 4c 45 43 54 20 79 20 46 52 4f      SELECT y FRO
0c60: 4d 20 78 79 20 4f 52 44 45 52 20 42 59 20 79 20  M xy ORDER BY y 
0c70: 43 4f 4c 4c 41 54 45 20 22 72 65 76 65 72 73 65  COLLATE "reverse
0c80: 20 73 6f 72 74 22 0a 20 20 7d 0a 7d 20 7b 74 77   sort".  }.} {tw
0c90: 6f 20 74 68 72 65 65 20 6f 6e 65 20 6e 6f 73 6f  o three one noso
0ca0: 72 74 7d 0a 64 6f 5f 74 65 73 74 20 63 6f 6c 6c  rt}.do_test coll
0cb0: 61 74 65 39 2d 33 2e 34 20 7b 0a 20 20 63 6b 73  ate9-3.4 {.  cks
0cc0: 6f 72 74 20 7b 20 0a 20 20 20 20 53 45 4c 45 43  ort { .    SELEC
0cd0: 54 20 79 20 41 53 20 61 61 61 20 46 52 4f 4d 20  T y AS aaa FROM 
0ce0: 78 79 20 4f 52 44 45 52 20 42 59 20 61 61 61 0a  xy ORDER BY aaa.
0cf0: 20 20 7d 0a 7d 20 7b 6f 6e 65 20 74 68 72 65 65    }.} {one three
0d00: 20 74 77 6f 20 73 6f 72 74 7d 0a 64 6f 5f 74 65   two sort}.do_te
0d10: 73 74 20 63 6f 6c 6c 61 74 65 39 2d 33 2e 35 20  st collate9-3.5 
0d20: 7b 0a 20 20 63 6b 73 6f 72 74 20 7b 20 0a 20 20  {.  cksort { .  
0d30: 20 20 53 45 4c 45 43 54 20 79 20 43 4f 4c 4c 41    SELECT y COLLA
0d40: 54 45 20 22 72 65 76 65 72 73 65 20 73 6f 72 74  TE "reverse sort
0d50: 22 20 41 53 20 61 61 61 20 46 52 4f 4d 20 78 79  " AS aaa FROM xy
0d60: 20 4f 52 44 45 52 20 42 59 20 61 61 61 0a 20 20   ORDER BY aaa.  
0d70: 7d 0a 7d 20 7b 74 77 6f 20 74 68 72 65 65 20 6f  }.} {two three o
0d80: 6e 65 20 6e 6f 73 6f 72 74 7d 0a 0a 69 66 63 61  ne nosort}..ifca
0d90: 70 61 62 6c 65 20 72 65 69 6e 64 65 78 20 7b 0a  pable reindex {.
0da0: 20 20 64 6f 5f 74 65 73 74 20 63 6f 6c 6c 61 74    do_test collat
0db0: 65 39 2d 34 2e 31 20 7b 0a 20 20 20 20 65 78 65  e9-4.1 {.    exe
0dc0: 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 52 45 49  csql {.      REI
0dd0: 4e 44 45 58 20 22 72 65 76 65 72 73 65 20 73 6f  NDEX "reverse so
0de0: 72 74 22 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 7d  rt".    }.  } {}
0df0: 0a 0a 20 20 23 20 4d 6f 64 69 66 79 20 74 68 65  ..  # Modify the
0e00: 20 22 72 65 76 65 72 73 65 20 73 6f 72 74 22 20   "reverse sort" 
0e10: 63 6f 6c 6c 61 74 69 6f 6e 20 73 6f 20 74 68 61  collation so tha
0e20: 74 20 69 74 20 6e 6f 77 20 73 6f 72 74 73 20 69  t it now sorts i
0e30: 6e 20 74 68 65 20 73 61 6d 65 0a 20 20 23 20 6f  n the same.  # o
0e40: 72 64 65 72 20 61 73 20 62 69 6e 61 72 79 2e 0a  rder as binary..
0e50: 20 20 70 72 6f 63 20 72 65 76 65 72 73 65 5f 73    proc reverse_s
0e60: 6f 72 74 20 7b 6c 68 73 20 72 68 73 7d 20 7b 0a  ort {lhs rhs} {.
0e70: 20 20 20 20 72 65 74 75 72 6e 20 5b 73 74 72 69      return [stri
0e80: 6e 67 20 63 6f 6d 70 61 72 65 20 24 6c 68 73 20  ng compare $lhs 
0e90: 24 72 68 73 5d 0a 20 20 7d 0a 0a 20 20 23 20 54  $rhs].  }..  # T
0ea0: 68 65 20 69 6e 74 65 67 72 69 74 79 20 63 68 65  he integrity che
0eb0: 63 6b 20 73 68 6f 75 6c 64 20 6e 6f 77 20 66 61  ck should now fa
0ec0: 69 6c 20 62 65 63 61 75 73 65 20 74 68 65 20 69  il because the i
0ed0: 6e 64 65 78 65 73 20 63 72 65 61 74 65 64 20 75  ndexes created u
0ee0: 73 69 6e 67 0a 20 20 23 20 22 72 65 76 65 72 73  sing.  # "revers
0ef0: 65 20 73 6f 72 74 22 20 61 72 65 20 6e 6f 20 6c  e sort" are no l
0f00: 6f 6e 67 65 72 20 69 6e 20 73 79 6e 63 20 77 69  onger in sync wi
0f10: 74 68 20 74 68 65 20 63 6f 6c 6c 61 74 69 6f 6e  th the collation
0f20: 20 73 65 71 75 65 6e 63 65 0a 20 20 23 20 69 6d   sequence.  # im
0f30: 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 0a 20 20  plementation..  
0f40: 64 6f 5f 74 65 73 74 20 63 6f 6c 6c 61 74 65 39  do_test collate9
0f50: 2d 34 2e 32 20 7b 0a 20 20 20 20 65 78 70 72 20  -4.2 {.    expr 
0f60: 7b 22 6f 6b 22 20 65 71 20 5b 65 78 65 63 73 71  {"ok" eq [execsq
0f70: 6c 20 7b 20 50 52 41 47 4d 41 20 69 6e 74 65 67  l { PRAGMA integ
0f80: 72 69 74 79 5f 63 68 65 63 6b 20 7d 5d 7d 0a 20  rity_check }]}. 
0f90: 20 7d 20 7b 30 7d 0a 0a 20 20 64 6f 5f 74 65 73   } {0}..  do_tes
0fa0: 74 20 63 6f 6c 6c 61 74 65 39 2d 34 2e 33 20 7b  t collate9-4.3 {
0fb0: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  .    execsql {. 
0fc0: 20 20 20 20 20 52 45 49 4e 44 45 58 20 22 72 65       REINDEX "re
0fd0: 76 65 72 73 65 20 73 6f 72 74 22 0a 20 20 20 20  verse sort".    
0fe0: 7d 0a 20 20 7d 20 7b 7d 0a 0a 20 20 23 20 49 6e  }.  } {}..  # In
0ff0: 74 65 67 72 69 74 79 20 63 68 65 63 6b 20 73 68  tegrity check sh
1000: 6f 75 6c 64 20 6e 6f 77 20 70 61 73 73 2e 0a 20  ould now pass.. 
1010: 20 64 6f 5f 74 65 73 74 20 63 6f 6c 6c 61 74 65   do_test collate
1020: 39 2d 34 2e 34 20 7b 0a 20 20 20 20 65 78 70 72  9-4.4 {.    expr
1030: 20 7b 22 6f 6b 22 20 65 71 20 5b 65 78 65 63 73   {"ok" eq [execs
1040: 71 6c 20 7b 20 50 52 41 47 4d 41 20 69 6e 74 65  ql { PRAGMA inte
1050: 67 72 69 74 79 5f 63 68 65 63 6b 20 7d 5d 7d 0a  grity_check }]}.
1060: 20 20 7d 20 7b 31 7d 0a 0a 20 20 64 6f 5f 74 65    } {1}..  do_te
1070: 73 74 20 63 6f 6c 6c 61 74 65 39 2d 34 2e 35 20  st collate9-4.5 
1080: 7b 0a 20 20 20 20 63 6b 73 6f 72 74 20 7b 0a 20  {.    cksort {. 
1090: 20 20 20 20 20 53 45 4c 45 43 54 20 78 20 46 52       SELECT x FR
10a0: 4f 4d 20 78 79 20 4f 52 44 45 52 20 42 59 20 78  OM xy ORDER BY x
10b0: 20 43 4f 4c 4c 41 54 45 20 22 72 65 76 65 72 73   COLLATE "revers
10c0: 65 20 73 6f 72 74 22 0a 20 20 20 20 7d 0a 20 20  e sort".    }.  
10d0: 7d 20 7b 6f 6e 65 20 74 68 72 65 65 20 74 77 6f  } {one three two
10e0: 20 6e 6f 73 6f 72 74 7d 0a 7d 0a 0a 66 69 6e 69   nosort}.}..fini
10f0: 73 68 5f 74 65 73 74 0a                          sh_test.