/ Hex Artifact Content
Login

Artifact 772d66227e4e6684b86053302e2d74a2500e1e0f:


0000: 23 20 32 30 30 39 20 4e 6f 76 65 6d 62 65 72 20  # 2009 November 
0010: 31 31 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f  11.#.# The autho
0020: 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79  r disclaims copy
0030: 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f  right to this so
0040: 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70  urce code.  In p
0050: 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61  lace of.# a lega
0060: 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69  l notice, here i
0070: 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a  s a blessing:.#.
0080: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20  #    May you do 
0090: 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69  good and not evi
00a0: 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  l..#    May you 
00b0: 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73  find forgiveness
00c0: 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e   for yourself an
00d0: 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73  d forgive others
00e0: 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73  ..#    May you s
00f0: 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76  hare freely, nev
0100: 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74  er taking more t
0110: 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a  han you give..#.
0120: 23 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 2a 2a 2a 2a 2a 0a 23 20 54 68 69 73 20  ********.# This 
0170: 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20  file implements 
0180: 72 65 67 72 65 73 73 69 6f 6e 20 74 65 73 74 73  regression tests
0190: 20 66 6f 72 20 53 51 4c 69 74 65 20 6c 69 62 72   for SQLite libr
01a0: 61 72 79 2e 20 20 54 68 65 0a 23 20 66 6f 63 75  ary.  The.# focu
01b0: 73 20 6f 66 20 74 68 69 73 20 66 69 6c 65 20 69  s of this file i
01c0: 73 20 74 65 73 74 69 6e 67 20 62 75 69 6c 74 2d  s testing built-
01d0: 69 6e 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 23 0a  in functions..#.
01e0: 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66 69  .set testdir [fi
01f0: 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76  le dirname $argv
0200: 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64  0].source $testd
0210: 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a 23  ir/tester.tcl..#
0220: 20 54 65 73 74 20 70 6c 61 6e 3a 0a 23 0a 23 20   Test plan:.#.# 
0230: 20 20 66 75 6e 63 32 2d 31 2e 2a 3a 20 73 75 62    func2-1.*: sub
0240: 73 74 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69  str implementati
0250: 6f 6e 20 28 61 73 63 69 69 29 0a 23 20 20 20 66  on (ascii).#   f
0260: 75 6e 63 32 2d 32 2e 2a 3a 20 73 75 62 73 74 72  unc2-2.*: substr
0270: 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20   implementation 
0280: 28 75 74 66 38 29 0a 23 20 20 20 66 75 6e 63 32  (utf8).#   func2
0290: 2d 33 2e 2a 3a 20 73 75 62 73 74 72 20 69 6d 70  -3.*: substr imp
02a0: 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 28 62 6c 6f  lementation (blo
02b0: 62 29 0a 23 0a 0a 70 72 6f 63 20 62 69 6e 5f 74  b).#..proc bin_t
02c0: 6f 5f 68 65 78 20 7b 62 6c 6f 62 7d 20 7b 0a 20  o_hex {blob} {. 
02d0: 20 73 65 74 20 62 79 74 65 73 20 7b 7d 0a 20 20   set bytes {}.  
02e0: 62 69 6e 61 72 79 20 73 63 61 6e 20 24 62 6c 6f  binary scan $blo
02f0: 62 20 5c 63 2a 20 62 79 74 65 73 0a 20 20 73 65  b \c* bytes.  se
0300: 74 20 62 79 74 65 73 32 20 5b 6c 69 73 74 5d 0a  t bytes2 [list].
0310: 20 20 66 6f 72 65 61 63 68 20 62 20 24 62 79 74    foreach b $byt
0320: 65 73 20 7b 6c 61 70 70 65 6e 64 20 62 79 74 65  es {lappend byte
0330: 73 32 20 5b 66 6f 72 6d 61 74 20 25 30 32 58 20  s2 [format %02X 
0340: 5b 65 78 70 72 20 24 62 20 26 20 30 78 46 46 5d  [expr $b & 0xFF]
0350: 5d 7d 0a 20 20 6a 6f 69 6e 20 24 62 79 74 65 73  ]}.  join $bytes
0360: 32 20 7b 7d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d  2 {}.}..#-------
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03b0: 2d 2d 2d 2d 2d 0a 23 20 54 65 73 74 20 63 61 73  -----.# Test cas
03c0: 65 73 20 66 75 6e 63 32 2d 31 2e 2a 3a 20 73 75  es func2-1.*: su
03d0: 62 73 74 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74  bstr implementat
03e0: 69 6f 6e 20 28 61 73 63 69 69 29 0a 23 0a 0a 64  ion (ascii).#..d
03f0: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 31  o_test func2-1.1
0400: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45   {.  execsql {SE
0410: 4c 45 43 54 20 27 53 75 70 65 72 63 61 6c 69 66  LECT 'Supercalif
0420: 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c  ragilisticexpial
0430: 69 64 6f 63 69 6f 75 73 27 7d 0a 7d 20 7b 53 75  idocious'}.} {Su
0440: 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74  percalifragilist
0450: 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73  icexpialidocious
0460: 7d 0a 0a 23 20 73 75 62 73 74 72 28 78 2c 79 29  }..# substr(x,y)
0470: 2c 20 73 75 62 73 74 72 28 78 2c 79 2c 7a 29 0a  , substr(x,y,z).
0480: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e  do_test func2-1.
0490: 32 2e 31 20 7b 0a 20 20 63 61 74 63 68 73 71 6c  2.1 {.  catchsql
04a0: 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   {SELECT SUBSTR(
04b0: 29 7d 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 6e  )}.} {1 {wrong n
04c0: 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e  umber of argumen
04d0: 74 73 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 53  ts to function S
04e0: 55 42 53 54 52 28 29 7d 7d 0a 64 6f 5f 74 65 73  UBSTR()}}.do_tes
04f0: 74 20 66 75 6e 63 32 2d 31 2e 32 2e 32 20 7b 0a  t func2-1.2.2 {.
0500: 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45 4c 45    catchsql {SELE
0510: 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65 72  CT SUBSTR('Super
0520: 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65  califragilistice
0530: 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 29 7d  xpialidocious')}
0540: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 6e 75 6d  .} {1 {wrong num
0550: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
0560: 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 53 55 42   to function SUB
0570: 53 54 52 28 29 7d 7d 0a 64 6f 5f 74 65 73 74 20  STR()}}.do_test 
0580: 66 75 6e 63 32 2d 31 2e 32 2e 33 20 7b 0a 20 20  func2-1.2.3 {.  
0590: 63 61 74 63 68 73 71 6c 20 7b 53 45 4c 45 43 54  catchsql {SELECT
05a0: 20 53 55 42 53 54 52 28 27 53 75 70 65 72 63 61   SUBSTR('Superca
05b0: 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65 78 70  lifragilisticexp
05c0: 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 31 2c  ialidocious', 1,
05d0: 31 2c 31 29 7d 0a 7d 20 7b 31 20 7b 77 72 6f 6e  1,1)}.} {1 {wron
05e0: 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75  g number of argu
05f0: 6d 65 6e 74 73 20 74 6f 20 66 75 6e 63 74 69 6f  ments to functio
0600: 6e 20 53 55 42 53 54 52 28 29 7d 7d 0a 0a 23 20  n SUBSTR()}}..# 
0610: 70 31 20 69 73 20 31 2d 69 6e 64 65 78 65 64 0a  p1 is 1-indexed.
0620: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e  do_test func2-1.
0630: 33 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  3 {.  execsql {S
0640: 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 53 75  ELECT SUBSTR('Su
0650: 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74  percalifragilist
0660: 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73  icexpialidocious
0670: 27 2c 20 30 29 7d 0a 7d 20 7b 53 75 70 65 72 63  ', 0)}.} {Superc
0680: 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65 78  alifragilisticex
0690: 70 69 61 6c 69 64 6f 63 69 6f 75 73 7d 0a 64 6f  pialidocious}.do
06a0: 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 34 20  _test func2-1.4 
06b0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
06c0: 45 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65  ECT SUBSTR('Supe
06d0: 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63  rcalifragilistic
06e0: 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c  expialidocious',
06f0: 20 31 29 7d 0a 7d 20 7b 53 75 70 65 72 63 61 6c   1)}.} {Supercal
0700: 69 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69  ifragilisticexpi
0710: 61 6c 69 64 6f 63 69 6f 75 73 7d 0a 64 6f 5f 74  alidocious}.do_t
0720: 65 73 74 20 66 75 6e 63 32 2d 31 2e 35 20 7b 0a  est func2-1.5 {.
0730: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
0740: 54 20 53 55 42 53 54 52 28 27 53 75 70 65 72 63  T SUBSTR('Superc
0750: 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65 78  alifragilisticex
0760: 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 32  pialidocious', 2
0770: 29 7d 0a 7d 20 7b 75 70 65 72 63 61 6c 69 66 72  )}.} {upercalifr
0780: 61 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c 69  agilisticexpiali
0790: 64 6f 63 69 6f 75 73 7d 0a 64 6f 5f 74 65 73 74  docious}.do_test
07a0: 20 66 75 6e 63 32 2d 31 2e 36 20 7b 0a 20 20 65   func2-1.6 {.  e
07b0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53  xecsql {SELECT S
07c0: 55 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69  UBSTR('Supercali
07d0: 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61  fragilisticexpia
07e0: 6c 69 64 6f 63 69 6f 75 73 27 2c 20 33 30 29 7d  lidocious', 30)}
07f0: 0a 7d 20 7b 63 69 6f 75 73 7d 0a 64 6f 5f 74 65  .} {cious}.do_te
0800: 73 74 20 66 75 6e 63 32 2d 31 2e 37 20 7b 0a 20  st func2-1.7 {. 
0810: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
0820: 20 53 55 42 53 54 52 28 27 53 75 70 65 72 63 61   SUBSTR('Superca
0830: 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65 78 70  lifragilisticexp
0840: 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 33 34  ialidocious', 34
0850: 29 7d 0a 7d 20 7b 73 7d 0a 64 6f 5f 74 65 73 74  )}.} {s}.do_test
0860: 20 66 75 6e 63 32 2d 31 2e 38 20 7b 0a 20 20 65   func2-1.8 {.  e
0870: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53  xecsql {SELECT S
0880: 55 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69  UBSTR('Supercali
0890: 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61  fragilisticexpia
08a0: 6c 69 64 6f 63 69 6f 75 73 27 2c 20 33 35 29 7d  lidocious', 35)}
08b0: 0a 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20  .} {{}}.do_test 
08c0: 66 75 6e 63 32 2d 31 2e 39 20 7b 0a 20 20 65 78  func2-1.9 {.  ex
08d0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55  ecsql {SELECT SU
08e0: 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69 66  BSTR('Supercalif
08f0: 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c  ragilisticexpial
0900: 69 64 6f 63 69 6f 75 73 27 2c 20 33 36 29 7d 0a  idocious', 36)}.
0910: 7d 20 7b 7b 7d 7d 0a 0a 23 20 69 66 20 70 31 3c  } {{}}..# if p1<
0920: 30 2c 20 73 74 61 72 74 20 66 72 6f 6d 20 72 69  0, start from ri
0930: 67 68 74 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63  ght.do_test func
0940: 32 2d 31 2e 31 30 20 7b 0a 20 20 65 78 65 63 73  2-1.10 {.  execs
0950: 71 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54  ql {SELECT SUBST
0960: 52 28 27 53 75 70 65 72 63 61 6c 69 66 72 61 67  R('Supercalifrag
0970: 69 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f  ilisticexpialido
0980: 63 69 6f 75 73 27 2c 20 2d 30 29 7d 0a 7d 20 7b  cious', -0)}.} {
0990: 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69  Supercalifragili
09a0: 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f  sticexpialidocio
09b0: 75 73 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63  us}.do_test func
09c0: 32 2d 31 2e 31 31 20 7b 0a 20 20 65 78 65 63 73  2-1.11 {.  execs
09d0: 71 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54  ql {SELECT SUBST
09e0: 52 28 27 53 75 70 65 72 63 61 6c 69 66 72 61 67  R('Supercalifrag
09f0: 69 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f  ilisticexpialido
0a00: 63 69 6f 75 73 27 2c 20 2d 31 29 7d 0a 7d 20 7b  cious', -1)}.} {
0a10: 73 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  s}.do_test func2
0a20: 2d 31 2e 31 32 20 7b 0a 20 20 65 78 65 63 73 71  -1.12 {.  execsq
0a30: 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52  l {SELECT SUBSTR
0a40: 28 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69  ('Supercalifragi
0a50: 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63  listicexpialidoc
0a60: 69 6f 75 73 27 2c 20 2d 32 29 7d 0a 7d 20 7b 75  ious', -2)}.} {u
0a70: 73 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  s}.do_test func2
0a80: 2d 31 2e 31 33 20 7b 0a 20 20 65 78 65 63 73 71  -1.13 {.  execsq
0a90: 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52  l {SELECT SUBSTR
0aa0: 28 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69  ('Supercalifragi
0ab0: 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63  listicexpialidoc
0ac0: 69 6f 75 73 27 2c 20 2d 33 30 29 7d 0a 7d 20 7b  ious', -30)}.} {
0ad0: 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63  rcalifragilistic
0ae0: 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 7d 0a  expialidocious}.
0af0: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e  do_test func2-1.
0b00: 31 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  14 {.  execsql {
0b10: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 53  SELECT SUBSTR('S
0b20: 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73  upercalifragilis
0b30: 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75  ticexpialidociou
0b40: 73 27 2c 20 2d 33 34 29 7d 0a 7d 20 7b 53 75 70  s', -34)}.} {Sup
0b50: 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69  ercalifragilisti
0b60: 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 7d  cexpialidocious}
0b70: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31  .do_test func2-1
0b80: 2e 31 35 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  .15 {.  execsql 
0b90: 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27  {SELECT SUBSTR('
0ba0: 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69  Supercalifragili
0bb0: 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f  sticexpialidocio
0bc0: 75 73 27 2c 20 2d 33 35 29 7d 0a 7d 20 7b 53 75  us', -35)}.} {Su
0bd0: 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74  percalifragilist
0be0: 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73  icexpialidocious
0bf0: 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  }.do_test func2-
0c00: 31 2e 31 36 20 7b 0a 20 20 65 78 65 63 73 71 6c  1.16 {.  execsql
0c10: 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   {SELECT SUBSTR(
0c20: 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c  'Supercalifragil
0c30: 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69  isticexpialidoci
0c40: 6f 75 73 27 2c 20 2d 33 36 29 7d 0a 7d 20 7b 53  ous', -36)}.} {S
0c50: 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73  upercalifragilis
0c60: 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75  ticexpialidociou
0c70: 73 7d 0a 0a 23 20 70 31 20 69 73 20 31 2d 69 6e  s}..# p1 is 1-in
0c80: 64 65 78 65 64 2c 20 70 32 20 6c 65 6e 67 74 68  dexed, p2 length
0c90: 20 74 6f 20 72 65 74 75 72 6e 0a 64 6f 5f 74 65   to return.do_te
0ca0: 73 74 20 66 75 6e 63 32 2d 31 2e 31 37 2e 31 20  st func2-1.17.1 
0cb0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
0cc0: 45 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65  ECT SUBSTR('Supe
0cd0: 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63  rcalifragilistic
0ce0: 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c  expialidocious',
0cf0: 20 30 2c 20 31 29 7d 0a 7d 20 7b 7b 7d 7d 0a 64   0, 1)}.} {{}}.d
0d00: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 31  o_test func2-1.1
0d10: 37 2e 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  7.2 {.  execsql 
0d20: 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27  {SELECT SUBSTR('
0d30: 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69  Supercalifragili
0d40: 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f  sticexpialidocio
0d50: 75 73 27 2c 20 30 2c 20 32 29 7d 0a 7d 20 7b 53  us', 0, 2)}.} {S
0d60: 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  }.do_test func2-
0d70: 31 2e 31 38 20 7b 0a 20 20 65 78 65 63 73 71 6c  1.18 {.  execsql
0d80: 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   {SELECT SUBSTR(
0d90: 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c  'Supercalifragil
0da0: 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69  isticexpialidoci
0db0: 6f 75 73 27 2c 20 31 2c 20 31 29 7d 0a 7d 20 7b  ous', 1, 1)}.} {
0dc0: 53 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  S}.do_test func2
0dd0: 2d 31 2e 31 39 2e 30 20 7b 0a 20 20 65 78 65 63  -1.19.0 {.  exec
0de0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53  sql {SELECT SUBS
0df0: 54 52 28 27 53 75 70 65 72 63 61 6c 69 66 72 61  TR('Supercalifra
0e00: 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64  gilisticexpialid
0e10: 6f 63 69 6f 75 73 27 2c 20 32 2c 20 30 29 7d 0a  ocious', 2, 0)}.
0e20: 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 66  } {{}}.do_test f
0e30: 75 6e 63 32 2d 31 2e 31 39 2e 31 20 7b 0a 20 20  unc2-1.19.1 {.  
0e40: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
0e50: 53 55 42 53 54 52 28 27 53 75 70 65 72 63 61 6c  SUBSTR('Supercal
0e60: 69 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69  ifragilisticexpi
0e70: 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 32 2c 20  alidocious', 2, 
0e80: 31 29 7d 0a 7d 20 7b 75 7d 0a 64 6f 5f 74 65 73  1)}.} {u}.do_tes
0e90: 74 20 66 75 6e 63 32 2d 31 2e 31 39 2e 32 20 7b  t func2-1.19.2 {
0ea0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
0eb0: 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65 72  CT SUBSTR('Super
0ec0: 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65  califragilistice
0ed0: 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20  xpialidocious', 
0ee0: 32 2c 20 32 29 7d 0a 7d 20 7b 75 70 7d 0a 64 6f  2, 2)}.} {up}.do
0ef0: 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 32 30  _test func2-1.20
0f00: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45   {.  execsql {SE
0f10: 4c 45 43 54 20 53 55 42 53 54 52 28 27 53 75 70  LECT SUBSTR('Sup
0f20: 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69  ercalifragilisti
0f30: 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27  cexpialidocious'
0f40: 2c 20 33 30 2c 20 31 29 7d 0a 7d 20 7b 63 7d 0a  , 30, 1)}.} {c}.
0f50: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e  do_test func2-1.
0f60: 32 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  21 {.  execsql {
0f70: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 53  SELECT SUBSTR('S
0f80: 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73  upercalifragilis
0f90: 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75  ticexpialidociou
0fa0: 73 27 2c 20 33 34 2c 20 31 29 7d 0a 7d 20 7b 73  s', 34, 1)}.} {s
0fb0: 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  }.do_test func2-
0fc0: 31 2e 32 32 20 7b 0a 20 20 65 78 65 63 73 71 6c  1.22 {.  execsql
0fd0: 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   {SELECT SUBSTR(
0fe0: 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c  'Supercalifragil
0ff0: 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69  isticexpialidoci
1000: 6f 75 73 27 2c 20 33 35 2c 20 31 29 7d 0a 7d 20  ous', 35, 1)}.} 
1010: 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e  {{}}.do_test fun
1020: 63 32 2d 31 2e 32 33 20 7b 0a 20 20 65 78 65 63  c2-1.23 {.  exec
1030: 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53  sql {SELECT SUBS
1040: 54 52 28 27 53 75 70 65 72 63 61 6c 69 66 72 61  TR('Supercalifra
1050: 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64  gilisticexpialid
1060: 6f 63 69 6f 75 73 27 2c 20 33 36 2c 20 31 29 7d  ocious', 36, 1)}
1070: 0a 7d 20 7b 7b 7d 7d 0a 0a 23 20 69 66 20 70 31  .} {{}}..# if p1
1080: 3c 30 2c 20 73 74 61 72 74 20 66 72 6f 6d 20 72  <0, start from r
1090: 69 67 68 74 2c 20 70 32 20 6c 65 6e 67 74 68 20  ight, p2 length 
10a0: 74 6f 20 72 65 74 75 72 6e 0a 64 6f 5f 74 65 73  to return.do_tes
10b0: 74 20 66 75 6e 63 32 2d 31 2e 32 34 20 7b 0a 20  t func2-1.24 {. 
10c0: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
10d0: 20 53 55 42 53 54 52 28 27 53 75 70 65 72 63 61   SUBSTR('Superca
10e0: 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65 78 70  lifragilisticexp
10f0: 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 2d 30  ialidocious', -0
1100: 2c 20 31 29 7d 0a 7d 20 7b 7b 7d 7d 0a 64 6f 5f  , 1)}.} {{}}.do_
1110: 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 32 35 2e  test func2-1.25.
1120: 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  0 {.  execsql {S
1130: 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 53 75  ELECT SUBSTR('Su
1140: 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74  percalifragilist
1150: 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73  icexpialidocious
1160: 27 2c 20 2d 31 2c 20 30 29 7d 0a 7d 20 7b 7b 7d  ', -1, 0)}.} {{}
1170: 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  }.do_test func2-
1180: 31 2e 32 35 2e 31 20 7b 0a 20 20 65 78 65 63 73  1.25.1 {.  execs
1190: 71 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54  ql {SELECT SUBST
11a0: 52 28 27 53 75 70 65 72 63 61 6c 69 66 72 61 67  R('Supercalifrag
11b0: 69 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f  ilisticexpialido
11c0: 63 69 6f 75 73 27 2c 20 2d 31 2c 20 31 29 7d 0a  cious', -1, 1)}.
11d0: 7d 20 7b 73 7d 0a 64 6f 5f 74 65 73 74 20 66 75  } {s}.do_test fu
11e0: 6e 63 32 2d 31 2e 32 35 2e 32 20 7b 0a 20 20 65  nc2-1.25.2 {.  e
11f0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53  xecsql {SELECT S
1200: 55 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69  UBSTR('Supercali
1210: 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61  fragilisticexpia
1220: 6c 69 64 6f 63 69 6f 75 73 27 2c 20 2d 31 2c 20  lidocious', -1, 
1230: 32 29 7d 0a 7d 20 7b 73 7d 0a 64 6f 5f 74 65 73  2)}.} {s}.do_tes
1240: 74 20 66 75 6e 63 32 2d 31 2e 32 36 20 7b 0a 20  t func2-1.26 {. 
1250: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
1260: 20 53 55 42 53 54 52 28 27 53 75 70 65 72 63 61   SUBSTR('Superca
1270: 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65 78 70  lifragilisticexp
1280: 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 2d 32  ialidocious', -2
1290: 2c 20 31 29 7d 0a 7d 20 7b 75 7d 0a 64 6f 5f 74  , 1)}.} {u}.do_t
12a0: 65 73 74 20 66 75 6e 63 32 2d 31 2e 32 37 20 7b  est func2-1.27 {
12b0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
12c0: 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65 72  CT SUBSTR('Super
12d0: 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65  califragilistice
12e0: 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20  xpialidocious', 
12f0: 2d 33 30 2c 20 31 29 7d 0a 7d 20 7b 72 7d 0a 64  -30, 1)}.} {r}.d
1300: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 32  o_test func2-1.2
1310: 38 2e 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  8.0 {.  execsql 
1320: 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27  {SELECT SUBSTR('
1330: 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69  Supercalifragili
1340: 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f  sticexpialidocio
1350: 75 73 27 2c 20 2d 33 34 2c 20 30 29 7d 0a 7d 20  us', -34, 0)}.} 
1360: 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e  {{}}.do_test fun
1370: 63 32 2d 31 2e 32 38 2e 31 20 7b 0a 20 20 65 78  c2-1.28.1 {.  ex
1380: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55  ecsql {SELECT SU
1390: 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69 66  BSTR('Supercalif
13a0: 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c  ragilisticexpial
13b0: 69 64 6f 63 69 6f 75 73 27 2c 20 2d 33 34 2c 20  idocious', -34, 
13c0: 31 29 7d 0a 7d 20 7b 53 7d 0a 64 6f 5f 74 65 73  1)}.} {S}.do_tes
13d0: 74 20 66 75 6e 63 32 2d 31 2e 32 38 2e 32 20 7b  t func2-1.28.2 {
13e0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
13f0: 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65 72  CT SUBSTR('Super
1400: 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65  califragilistice
1410: 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20  xpialidocious', 
1420: 2d 33 34 2c 20 32 29 7d 0a 7d 20 7b 53 75 7d 0a  -34, 2)}.} {Su}.
1430: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e  do_test func2-1.
1440: 32 39 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c  29.1 {.  execsql
1450: 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   {SELECT SUBSTR(
1460: 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c  'Supercalifragil
1470: 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69  isticexpialidoci
1480: 6f 75 73 27 2c 20 2d 33 35 2c 20 31 29 7d 0a 7d  ous', -35, 1)}.}
1490: 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 66 75   {{}}.do_test fu
14a0: 6e 63 32 2d 31 2e 32 39 2e 32 20 7b 0a 20 20 65  nc2-1.29.2 {.  e
14b0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53  xecsql {SELECT S
14c0: 55 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69  UBSTR('Supercali
14d0: 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61  fragilisticexpia
14e0: 6c 69 64 6f 63 69 6f 75 73 27 2c 20 2d 33 35 2c  lidocious', -35,
14f0: 20 32 29 7d 0a 7d 20 7b 53 7d 0a 64 6f 5f 74 65   2)}.} {S}.do_te
1500: 73 74 20 66 75 6e 63 32 2d 31 2e 33 30 2e 30 20  st func2-1.30.0 
1510: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
1520: 45 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65  ECT SUBSTR('Supe
1530: 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63  rcalifragilistic
1540: 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c  expialidocious',
1550: 20 2d 33 36 2c 20 30 29 7d 0a 7d 20 7b 7b 7d 7d   -36, 0)}.} {{}}
1560: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31  .do_test func2-1
1570: 2e 33 30 2e 31 20 7b 0a 20 20 65 78 65 63 73 71  .30.1 {.  execsq
1580: 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52  l {SELECT SUBSTR
1590: 28 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69  ('Supercalifragi
15a0: 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63  listicexpialidoc
15b0: 69 6f 75 73 27 2c 20 2d 33 36 2c 20 31 29 7d 0a  ious', -36, 1)}.
15c0: 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 66  } {{}}.do_test f
15d0: 75 6e 63 32 2d 31 2e 33 30 2e 32 20 7b 0a 20 20  unc2-1.30.2 {.  
15e0: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
15f0: 53 55 42 53 54 52 28 27 53 75 70 65 72 63 61 6c  SUBSTR('Supercal
1600: 69 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69  ifragilisticexpi
1610: 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 2d 33 36  alidocious', -36
1620: 2c 20 32 29 7d 0a 7d 20 7b 7b 7d 7d 0a 64 6f 5f  , 2)}.} {{}}.do_
1630: 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 33 30 2e  test func2-1.30.
1640: 33 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  3 {.  execsql {S
1650: 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 53 75  ELECT SUBSTR('Su
1660: 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74  percalifragilist
1670: 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73  icexpialidocious
1680: 27 2c 20 2d 33 36 2c 20 33 29 7d 0a 7d 20 7b 53  ', -36, 3)}.} {S
1690: 7d 0a 0a 23 20 70 31 20 69 73 20 31 2d 69 6e 64  }..# p1 is 1-ind
16a0: 65 78 65 64 2c 20 70 32 20 6c 65 6e 67 74 68 20  exed, p2 length 
16b0: 74 6f 20 72 65 74 75 72 6e 2c 20 70 32 3c 30 20  to return, p2<0 
16c0: 72 65 74 75 72 6e 20 70 32 20 63 68 61 72 73 20  return p2 chars 
16d0: 62 65 66 6f 72 65 20 70 31 0a 64 6f 5f 74 65 73  before p1.do_tes
16e0: 74 20 66 75 6e 63 32 2d 31 2e 33 31 2e 30 20 7b  t func2-1.31.0 {
16f0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
1700: 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65 72  CT SUBSTR('Super
1710: 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65  califragilistice
1720: 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20  xpialidocious', 
1730: 30 2c 20 30 29 7d 0a 7d 20 7b 7b 7d 7d 0a 64 6f  0, 0)}.} {{}}.do
1740: 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 33 31  _test func2-1.31
1750: 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .1 {.  execsql {
1760: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 53  SELECT SUBSTR('S
1770: 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73  upercalifragilis
1780: 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75  ticexpialidociou
1790: 73 27 2c 20 30 2c 20 2d 31 29 7d 0a 7d 20 7b 7b  s', 0, -1)}.} {{
17a0: 7d 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  }}.do_test func2
17b0: 2d 31 2e 33 31 2e 32 20 7b 0a 20 20 65 78 65 63  -1.31.2 {.  exec
17c0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53  sql {SELECT SUBS
17d0: 54 52 28 27 53 75 70 65 72 63 61 6c 69 66 72 61  TR('Supercalifra
17e0: 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64  gilisticexpialid
17f0: 6f 63 69 6f 75 73 27 2c 20 30 2c 20 2d 32 29 7d  ocious', 0, -2)}
1800: 0a 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20  .} {{}}.do_test 
1810: 66 75 6e 63 32 2d 31 2e 33 32 2e 30 20 7b 0a 20  func2-1.32.0 {. 
1820: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
1830: 20 53 55 42 53 54 52 28 27 53 75 70 65 72 63 61   SUBSTR('Superca
1840: 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65 78 70  lifragilisticexp
1850: 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 31 2c  ialidocious', 1,
1860: 20 30 29 7d 0a 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74   0)}.} {{}}.do_t
1870: 65 73 74 20 66 75 6e 63 32 2d 31 2e 33 32 2e 31  est func2-1.32.1
1880: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45   {.  execsql {SE
1890: 4c 45 43 54 20 53 55 42 53 54 52 28 27 53 75 70  LECT SUBSTR('Sup
18a0: 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69  ercalifragilisti
18b0: 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27  cexpialidocious'
18c0: 2c 20 31 2c 20 2d 31 29 7d 0a 7d 20 7b 7b 7d 7d  , 1, -1)}.} {{}}
18d0: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31  .do_test func2-1
18e0: 2e 33 33 2e 30 20 7b 0a 20 20 65 78 65 63 73 71  .33.0 {.  execsq
18f0: 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52  l {SELECT SUBSTR
1900: 28 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69  ('Supercalifragi
1910: 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63  listicexpialidoc
1920: 69 6f 75 73 27 2c 20 32 2c 20 30 29 7d 0a 7d 20  ious', 2, 0)}.} 
1930: 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e  {{}}.do_test fun
1940: 63 32 2d 31 2e 33 33 2e 31 20 7b 0a 20 20 65 78  c2-1.33.1 {.  ex
1950: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55  ecsql {SELECT SU
1960: 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69 66  BSTR('Supercalif
1970: 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c  ragilisticexpial
1980: 69 64 6f 63 69 6f 75 73 27 2c 20 32 2c 20 2d 31  idocious', 2, -1
1990: 29 7d 0a 7d 20 7b 53 7d 0a 64 6f 5f 74 65 73 74  )}.} {S}.do_test
19a0: 20 66 75 6e 63 32 2d 31 2e 33 33 2e 32 20 7b 0a   func2-1.33.2 {.
19b0: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
19c0: 54 20 53 55 42 53 54 52 28 27 53 75 70 65 72 63  T SUBSTR('Superc
19d0: 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65 78  alifragilisticex
19e0: 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20 32  pialidocious', 2
19f0: 2c 20 2d 32 29 7d 0a 7d 20 7b 53 7d 0a 64 6f 5f  , -2)}.} {S}.do_
1a00: 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 33 34 2e  test func2-1.34.
1a10: 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  0 {.  execsql {S
1a20: 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 53 75  ELECT SUBSTR('Su
1a30: 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74  percalifragilist
1a40: 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73  icexpialidocious
1a50: 27 2c 20 33 2c 20 30 29 7d 0a 7d 20 7b 7b 7d 7d  ', 3, 0)}.} {{}}
1a60: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31  .do_test func2-1
1a70: 2e 33 34 2e 31 20 7b 0a 20 20 65 78 65 63 73 71  .34.1 {.  execsq
1a80: 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52  l {SELECT SUBSTR
1a90: 28 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69  ('Supercalifragi
1aa0: 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63  listicexpialidoc
1ab0: 69 6f 75 73 27 2c 20 33 2c 20 2d 31 29 7d 0a 7d  ious', 3, -1)}.}
1ac0: 20 7b 75 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e   {u}.do_test fun
1ad0: 63 32 2d 31 2e 33 34 2e 32 20 7b 0a 20 20 65 78  c2-1.34.2 {.  ex
1ae0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55  ecsql {SELECT SU
1af0: 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69 66  BSTR('Supercalif
1b00: 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c  ragilisticexpial
1b10: 69 64 6f 63 69 6f 75 73 27 2c 20 33 2c 20 2d 32  idocious', 3, -2
1b20: 29 7d 0a 7d 20 7b 53 75 7d 0a 64 6f 5f 74 65 73  )}.} {Su}.do_tes
1b30: 74 20 66 75 6e 63 32 2d 31 2e 33 35 2e 31 20 7b  t func2-1.35.1 {
1b40: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
1b50: 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65 72  CT SUBSTR('Super
1b60: 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63 65  califragilistice
1b70: 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c 20  xpialidocious', 
1b80: 33 30 2c 20 2d 31 29 7d 0a 7d 20 7b 6f 7d 0a 64  30, -1)}.} {o}.d
1b90: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e 33  o_test func2-1.3
1ba0: 35 2e 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  5.2 {.  execsql 
1bb0: 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27  {SELECT SUBSTR('
1bc0: 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c 69  Supercalifragili
1bd0: 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69 6f  sticexpialidocio
1be0: 75 73 27 2c 20 33 30 2c 20 2d 32 29 7d 0a 7d 20  us', 30, -2)}.} 
1bf0: 7b 64 6f 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e  {do}.do_test fun
1c00: 63 32 2d 31 2e 33 36 20 7b 0a 20 20 65 78 65 63  c2-1.36 {.  exec
1c10: 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55 42 53  sql {SELECT SUBS
1c20: 54 52 28 27 53 75 70 65 72 63 61 6c 69 66 72 61  TR('Supercalifra
1c30: 67 69 6c 69 73 74 69 63 65 78 70 69 61 6c 69 64  gilisticexpialid
1c40: 6f 63 69 6f 75 73 27 2c 20 33 34 2c 20 2d 31 29  ocious', 34, -1)
1c50: 7d 0a 7d 20 7b 75 7d 0a 64 6f 5f 74 65 73 74 20  }.} {u}.do_test 
1c60: 66 75 6e 63 32 2d 31 2e 33 37 20 7b 0a 20 20 65  func2-1.37 {.  e
1c70: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53  xecsql {SELECT S
1c80: 55 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69  UBSTR('Supercali
1c90: 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61  fragilisticexpia
1ca0: 6c 69 64 6f 63 69 6f 75 73 27 2c 20 33 35 2c 20  lidocious', 35, 
1cb0: 2d 31 29 7d 0a 7d 20 7b 73 7d 0a 64 6f 5f 74 65  -1)}.} {s}.do_te
1cc0: 73 74 20 66 75 6e 63 32 2d 31 2e 33 38 2e 30 20  st func2-1.38.0 
1cd0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
1ce0: 45 43 54 20 53 55 42 53 54 52 28 27 53 75 70 65  ECT SUBSTR('Supe
1cf0: 72 63 61 6c 69 66 72 61 67 69 6c 69 73 74 69 63  rcalifragilistic
1d00: 65 78 70 69 61 6c 69 64 6f 63 69 6f 75 73 27 2c  expialidocious',
1d10: 20 33 36 2c 20 30 29 7d 0a 7d 20 7b 7b 7d 7d 0a   36, 0)}.} {{}}.
1d20: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 31 2e  do_test func2-1.
1d30: 33 38 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c  38.1 {.  execsql
1d40: 20 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   {SELECT SUBSTR(
1d50: 27 53 75 70 65 72 63 61 6c 69 66 72 61 67 69 6c  'Supercalifragil
1d60: 69 73 74 69 63 65 78 70 69 61 6c 69 64 6f 63 69  isticexpialidoci
1d70: 6f 75 73 27 2c 20 33 36 2c 20 2d 31 29 7d 0a 7d  ous', 36, -1)}.}
1d80: 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 66 75   {{}}.do_test fu
1d90: 6e 63 32 2d 31 2e 33 38 2e 32 20 7b 0a 20 20 65  nc2-1.38.2 {.  e
1da0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 53  xecsql {SELECT S
1db0: 55 42 53 54 52 28 27 53 75 70 65 72 63 61 6c 69  UBSTR('Supercali
1dc0: 66 72 61 67 69 6c 69 73 74 69 63 65 78 70 69 61  fragilisticexpia
1dd0: 6c 69 64 6f 63 69 6f 75 73 27 2c 20 33 36 2c 20  lidocious', 36, 
1de0: 2d 32 29 7d 0a 7d 20 7b 73 7d 0a 0a 0a 23 2d 2d  -2)}.} {s}...#--
1df0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1e30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 65 73  ----------.# Tes
1e40: 74 20 63 61 73 65 73 20 66 75 6e 63 32 2d 32 2e  t cases func2-2.
1e50: 2a 3a 20 73 75 62 73 74 72 20 69 6d 70 6c 65 6d  *: substr implem
1e60: 65 6e 74 61 74 69 6f 6e 20 28 75 74 66 38 29 0a  entation (utf8).
1e70: 23 0a 0a 23 20 4f 6e 6c 79 20 64 6f 20 74 68 65  #..# Only do the
1e80: 20 66 6f 6c 6c 6f 77 69 6e 67 20 74 65 73 74 73   following tests
1e90: 20 69 66 20 54 43 4c 20 68 61 73 20 55 54 46 2d   if TCL has UTF-
1ea0: 38 20 63 61 70 61 62 69 6c 69 74 69 65 73 0a 23  8 capabilities.#
1eb0: 0a 69 66 20 7b 22 5c 75 31 32 33 34 22 21 3d 22  .if {"\u1234"!="
1ec0: 75 31 32 33 34 22 7d 20 7b 0a 0a 64 6f 5f 74 65  u1234"} {..do_te
1ed0: 73 74 20 66 75 6e 63 32 2d 32 2e 31 2e 31 20 7b  st func2-2.1.1 {
1ee0: 0a 20 20 65 78 65 63 73 71 6c 20 22 53 45 4c 45  .  execsql "SELE
1ef0: 43 54 20 27 68 69 5c 75 31 32 33 34 68 6f 27 22  CT 'hi\u1234ho'"
1f00: 0a 7d 20 22 68 69 5c 75 31 32 33 34 68 6f 22 0a  .} "hi\u1234ho".
1f10: 0a 23 20 73 75 62 73 74 72 28 78 2c 79 29 2c 20  .# substr(x,y), 
1f20: 73 75 62 73 74 72 28 78 2c 79 2c 7a 29 0a 64 6f  substr(x,y,z).do
1f30: 5f 74 65 73 74 20 66 75 6e 63 32 2d 32 2e 31 2e  _test func2-2.1.
1f40: 32 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 22  2 {.  catchsql "
1f50: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 29 22  SELECT SUBSTR()"
1f60: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 6e 75 6d  .} {1 {wrong num
1f70: 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73  ber of arguments
1f80: 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 53 55 42   to function SUB
1f90: 53 54 52 28 29 7d 7d 0a 64 6f 5f 74 65 73 74 20  STR()}}.do_test 
1fa0: 66 75 6e 63 32 2d 32 2e 31 2e 33 20 7b 0a 20 20  func2-2.1.3 {.  
1fb0: 63 61 74 63 68 73 71 6c 20 22 53 45 4c 45 43 54  catchsql "SELECT
1fc0: 20 53 55 42 53 54 52 28 27 68 69 5c 75 31 32 33   SUBSTR('hi\u123
1fd0: 34 68 6f 27 29 22 0a 7d 20 7b 31 20 7b 77 72 6f  4ho')".} {1 {wro
1fe0: 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67  ng number of arg
1ff0: 75 6d 65 6e 74 73 20 74 6f 20 66 75 6e 63 74 69  uments to functi
2000: 6f 6e 20 53 55 42 53 54 52 28 29 7d 7d 0a 64 6f  on SUBSTR()}}.do
2010: 5f 74 65 73 74 20 66 75 6e 63 32 2d 32 2e 31 2e  _test func2-2.1.
2020: 34 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 22  4 {.  catchsql "
2030: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 68  SELECT SUBSTR('h
2040: 69 5c 75 31 32 33 34 68 6f 27 2c 20 31 2c 31 2c  i\u1234ho', 1,1,
2050: 31 29 22 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20  1)".} {1 {wrong 
2060: 6e 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65  number of argume
2070: 6e 74 73 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20  nts to function 
2080: 53 55 42 53 54 52 28 29 7d 7d 0a 0a 64 6f 5f 74  SUBSTR()}}..do_t
2090: 65 73 74 20 66 75 6e 63 32 2d 32 2e 32 2e 30 20  est func2-2.2.0 
20a0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 22 53 45 4c  {.  execsql "SEL
20b0: 45 43 54 20 53 55 42 53 54 52 28 27 68 69 5c 75  ECT SUBSTR('hi\u
20c0: 31 32 33 34 68 6f 27 2c 20 30 2c 20 30 29 22 0a  1234ho', 0, 0)".
20d0: 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 66  } {{}}.do_test f
20e0: 75 6e 63 32 2d 32 2e 32 2e 31 20 7b 0a 20 20 65  unc2-2.2.1 {.  e
20f0: 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20 53  xecsql "SELECT S
2100: 55 42 53 54 52 28 27 68 69 5c 75 31 32 33 34 68  UBSTR('hi\u1234h
2110: 6f 27 2c 20 30 2c 20 31 29 22 0a 7d 20 7b 7b 7d  o', 0, 1)".} {{}
2120: 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  }.do_test func2-
2130: 32 2e 32 2e 32 20 7b 0a 20 20 65 78 65 63 73 71  2.2.2 {.  execsq
2140: 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53 54 52  l "SELECT SUBSTR
2150: 28 27 68 69 5c 75 31 32 33 34 68 6f 27 2c 20 30  ('hi\u1234ho', 0
2160: 2c 20 32 29 22 0a 7d 20 22 68 22 0a 64 6f 5f 74  , 2)".} "h".do_t
2170: 65 73 74 20 66 75 6e 63 32 2d 32 2e 32 2e 33 20  est func2-2.2.3 
2180: 7b 0a 20 20 65 78 65 63 73 71 6c 20 22 53 45 4c  {.  execsql "SEL
2190: 45 43 54 20 53 55 42 53 54 52 28 27 68 69 5c 75  ECT SUBSTR('hi\u
21a0: 31 32 33 34 68 6f 27 2c 20 30 2c 20 33 29 22 0a  1234ho', 0, 3)".
21b0: 7d 20 22 68 69 22 0a 64 6f 5f 74 65 73 74 20 66  } "hi".do_test f
21c0: 75 6e 63 32 2d 32 2e 32 2e 34 20 7b 0a 20 20 65  unc2-2.2.4 {.  e
21d0: 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20 53  xecsql "SELECT S
21e0: 55 42 53 54 52 28 27 68 69 5c 75 31 32 33 34 68  UBSTR('hi\u1234h
21f0: 6f 27 2c 20 30 2c 20 34 29 22 0a 7d 20 22 68 69  o', 0, 4)".} "hi
2200: 5c 75 31 32 33 34 22 0a 64 6f 5f 74 65 73 74 20  \u1234".do_test 
2210: 66 75 6e 63 32 2d 32 2e 32 2e 35 20 7b 0a 20 20  func2-2.2.5 {.  
2220: 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20  execsql "SELECT 
2230: 53 55 42 53 54 52 28 27 68 69 5c 75 31 32 33 34  SUBSTR('hi\u1234
2240: 68 6f 27 2c 20 30 2c 20 35 29 22 0a 7d 20 22 68  ho', 0, 5)".} "h
2250: 69 5c 75 31 32 33 34 68 22 0a 64 6f 5f 74 65 73  i\u1234h".do_tes
2260: 74 20 66 75 6e 63 32 2d 32 2e 32 2e 36 20 7b 0a  t func2-2.2.6 {.
2270: 20 20 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43    execsql "SELEC
2280: 54 20 53 55 42 53 54 52 28 27 68 69 5c 75 31 32  T SUBSTR('hi\u12
2290: 33 34 68 6f 27 2c 20 30 2c 20 36 29 22 0a 7d 20  34ho', 0, 6)".} 
22a0: 22 68 69 5c 75 31 32 33 34 68 6f 22 0a 0a 64 6f  "hi\u1234ho"..do
22b0: 5f 74 65 73 74 20 66 75 6e 63 32 2d 32 2e 33 2e  _test func2-2.3.
22c0: 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 22 53  0 {.  execsql "S
22d0: 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 68 69  ELECT SUBSTR('hi
22e0: 5c 75 31 32 33 34 68 6f 27 2c 20 31 2c 20 30 29  \u1234ho', 1, 0)
22f0: 22 0a 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74  ".} {{}}.do_test
2300: 20 66 75 6e 63 32 2d 32 2e 33 2e 31 20 7b 0a 20   func2-2.3.1 {. 
2310: 20 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54   execsql "SELECT
2320: 20 53 55 42 53 54 52 28 27 68 69 5c 75 31 32 33   SUBSTR('hi\u123
2330: 34 68 6f 27 2c 20 31 2c 20 31 29 22 0a 7d 20 22  4ho', 1, 1)".} "
2340: 68 22 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  h".do_test func2
2350: 2d 32 2e 33 2e 32 20 7b 0a 20 20 65 78 65 63 73  -2.3.2 {.  execs
2360: 71 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53 54  ql "SELECT SUBST
2370: 52 28 27 68 69 5c 75 31 32 33 34 68 6f 27 2c 20  R('hi\u1234ho', 
2380: 31 2c 20 32 29 22 0a 7d 20 22 68 69 22 0a 64 6f  1, 2)".} "hi".do
2390: 5f 74 65 73 74 20 66 75 6e 63 32 2d 32 2e 33 2e  _test func2-2.3.
23a0: 33 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 22 53  3 {.  execsql "S
23b0: 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 68 69  ELECT SUBSTR('hi
23c0: 5c 75 31 32 33 34 68 6f 27 2c 20 31 2c 20 33 29  \u1234ho', 1, 3)
23d0: 22 0a 7d 20 22 68 69 5c 75 31 32 33 34 22 0a 64  ".} "hi\u1234".d
23e0: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 32 2e 33  o_test func2-2.3
23f0: 2e 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 22  .4 {.  execsql "
2400: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 68  SELECT SUBSTR('h
2410: 69 5c 75 31 32 33 34 68 6f 27 2c 20 31 2c 20 34  i\u1234ho', 1, 4
2420: 29 22 0a 7d 20 22 68 69 5c 75 31 32 33 34 68 22  )".} "hi\u1234h"
2430: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 32  .do_test func2-2
2440: 2e 33 2e 35 20 7b 0a 20 20 65 78 65 63 73 71 6c  .3.5 {.  execsql
2450: 20 22 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   "SELECT SUBSTR(
2460: 27 68 69 5c 75 31 32 33 34 68 6f 27 2c 20 31 2c  'hi\u1234ho', 1,
2470: 20 35 29 22 0a 7d 20 22 68 69 5c 75 31 32 33 34   5)".} "hi\u1234
2480: 68 6f 22 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63  ho".do_test func
2490: 32 2d 32 2e 33 2e 36 20 7b 0a 20 20 65 78 65 63  2-2.3.6 {.  exec
24a0: 73 71 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53  sql "SELECT SUBS
24b0: 54 52 28 27 68 69 5c 75 31 32 33 34 68 6f 27 2c  TR('hi\u1234ho',
24c0: 20 31 2c 20 36 29 22 0a 7d 20 22 68 69 5c 75 31   1, 6)".} "hi\u1
24d0: 32 33 34 68 6f 22 0a 0a 64 6f 5f 74 65 73 74 20  234ho"..do_test 
24e0: 66 75 6e 63 32 2d 32 2e 34 2e 30 20 7b 0a 20 20  func2-2.4.0 {.  
24f0: 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20  execsql "SELECT 
2500: 53 55 42 53 54 52 28 27 68 69 5c 75 31 32 33 34  SUBSTR('hi\u1234
2510: 68 6f 27 2c 20 33 2c 20 30 29 22 0a 7d 20 7b 7b  ho', 3, 0)".} {{
2520: 7d 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  }}.do_test func2
2530: 2d 32 2e 34 2e 31 20 7b 0a 20 20 65 78 65 63 73  -2.4.1 {.  execs
2540: 71 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53 54  ql "SELECT SUBST
2550: 52 28 27 68 69 5c 75 31 32 33 34 68 6f 27 2c 20  R('hi\u1234ho', 
2560: 33 2c 20 31 29 22 0a 7d 20 22 5c 75 31 32 33 34  3, 1)".} "\u1234
2570: 22 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  ".do_test func2-
2580: 32 2e 34 2e 32 20 7b 0a 20 20 65 78 65 63 73 71  2.4.2 {.  execsq
2590: 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53 54 52  l "SELECT SUBSTR
25a0: 28 27 68 69 5c 75 31 32 33 34 68 6f 27 2c 20 33  ('hi\u1234ho', 3
25b0: 2c 20 32 29 22 0a 7d 20 22 5c 75 31 32 33 34 68  , 2)".} "\u1234h
25c0: 22 0a 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  "..do_test func2
25d0: 2d 32 2e 35 2e 30 20 7b 0a 20 20 65 78 65 63 73  -2.5.0 {.  execs
25e0: 71 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53 54  ql "SELECT SUBST
25f0: 52 28 27 5c 75 31 32 33 34 27 2c 20 30 2c 20 30  R('\u1234', 0, 0
2600: 29 22 0a 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73  )".} {{}}.do_tes
2610: 74 20 66 75 6e 63 32 2d 32 2e 35 2e 31 20 7b 0a  t func2-2.5.1 {.
2620: 20 20 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43    execsql "SELEC
2630: 54 20 53 55 42 53 54 52 28 27 5c 75 31 32 33 34  T SUBSTR('\u1234
2640: 27 2c 20 30 2c 20 31 29 22 0a 7d 20 7b 7b 7d 7d  ', 0, 1)".} {{}}
2650: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 32  .do_test func2-2
2660: 2e 35 2e 32 20 7b 0a 20 20 65 78 65 63 73 71 6c  .5.2 {.  execsql
2670: 20 22 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   "SELECT SUBSTR(
2680: 27 5c 75 31 32 33 34 27 2c 20 30 2c 20 32 29 22  '\u1234', 0, 2)"
2690: 0a 7d 20 22 5c 75 31 32 33 34 22 0a 64 6f 5f 74  .} "\u1234".do_t
26a0: 65 73 74 20 66 75 6e 63 32 2d 32 2e 35 2e 33 20  est func2-2.5.3 
26b0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 22 53 45 4c  {.  execsql "SEL
26c0: 45 43 54 20 53 55 42 53 54 52 28 27 5c 75 31 32  ECT SUBSTR('\u12
26d0: 33 34 27 2c 20 30 2c 20 33 29 22 0a 7d 20 22 5c  34', 0, 3)".} "\
26e0: 75 31 32 33 34 22 0a 0a 64 6f 5f 74 65 73 74 20  u1234"..do_test 
26f0: 66 75 6e 63 32 2d 32 2e 36 2e 30 20 7b 0a 20 20  func2-2.6.0 {.  
2700: 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20  execsql "SELECT 
2710: 53 55 42 53 54 52 28 27 5c 75 31 32 33 34 27 2c  SUBSTR('\u1234',
2720: 20 31 2c 20 30 29 22 0a 7d 20 7b 7b 7d 7d 0a 64   1, 0)".} {{}}.d
2730: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 32 2e 36  o_test func2-2.6
2740: 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 22  .1 {.  execsql "
2750: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 5c  SELECT SUBSTR('\
2760: 75 31 32 33 34 27 2c 20 31 2c 20 31 29 22 0a 7d  u1234', 1, 1)".}
2770: 20 22 5c 75 31 32 33 34 22 0a 64 6f 5f 74 65 73   "\u1234".do_tes
2780: 74 20 66 75 6e 63 32 2d 32 2e 36 2e 32 20 7b 0a  t func2-2.6.2 {.
2790: 20 20 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43    execsql "SELEC
27a0: 54 20 53 55 42 53 54 52 28 27 5c 75 31 32 33 34  T SUBSTR('\u1234
27b0: 27 2c 20 31 2c 20 32 29 22 0a 7d 20 22 5c 75 31  ', 1, 2)".} "\u1
27c0: 32 33 34 22 0a 64 6f 5f 74 65 73 74 20 66 75 6e  234".do_test fun
27d0: 63 32 2d 32 2e 36 2e 33 20 7b 0a 20 20 65 78 65  c2-2.6.3 {.  exe
27e0: 63 73 71 6c 20 22 53 45 4c 45 43 54 20 53 55 42  csql "SELECT SUB
27f0: 53 54 52 28 27 5c 75 31 32 33 34 27 2c 20 31 2c  STR('\u1234', 1,
2800: 20 33 29 22 0a 7d 20 22 5c 75 31 32 33 34 22 0a   3)".} "\u1234".
2810: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 32  .do_test func2-2
2820: 2e 37 2e 30 20 7b 0a 20 20 65 78 65 63 73 71 6c  .7.0 {.  execsql
2830: 20 22 53 45 4c 45 43 54 20 53 55 42 53 54 52 28   "SELECT SUBSTR(
2840: 27 5c 75 31 32 33 34 27 2c 20 32 2c 20 30 29 22  '\u1234', 2, 0)"
2850: 0a 7d 20 7b 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20  .} {{}}.do_test 
2860: 66 75 6e 63 32 2d 32 2e 37 2e 31 20 7b 0a 20 20  func2-2.7.1 {.  
2870: 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20  execsql "SELECT 
2880: 53 55 42 53 54 52 28 27 5c 75 31 32 33 34 27 2c  SUBSTR('\u1234',
2890: 20 32 2c 20 31 29 22 0a 7d 20 7b 7b 7d 7d 0a 64   2, 1)".} {{}}.d
28a0: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 32 2e 37  o_test func2-2.7
28b0: 2e 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 22  .2 {.  execsql "
28c0: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 5c  SELECT SUBSTR('\
28d0: 75 31 32 33 34 27 2c 20 32 2c 20 32 29 22 0a 7d  u1234', 2, 2)".}
28e0: 20 7b 7b 7d 7d 0a 0a 64 6f 5f 74 65 73 74 20 66   {{}}..do_test f
28f0: 75 6e 63 32 2d 32 2e 38 2e 30 20 7b 0a 20 20 65  unc2-2.8.0 {.  e
2900: 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20 53  xecsql "SELECT S
2910: 55 42 53 54 52 28 27 5c 75 31 32 33 34 27 2c 20  UBSTR('\u1234', 
2920: 2d 31 2c 20 30 29 22 0a 7d 20 7b 7b 7d 7d 0a 64  -1, 0)".} {{}}.d
2930: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 32 2e 38  o_test func2-2.8
2940: 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 22  .1 {.  execsql "
2950: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 27 5c  SELECT SUBSTR('\
2960: 75 31 32 33 34 27 2c 20 2d 31 2c 20 31 29 22 0a  u1234', -1, 1)".
2970: 7d 20 22 5c 75 31 32 33 34 22 0a 64 6f 5f 74 65  } "\u1234".do_te
2980: 73 74 20 66 75 6e 63 32 2d 32 2e 38 2e 32 20 7b  st func2-2.8.2 {
2990: 0a 20 20 65 78 65 63 73 71 6c 20 22 53 45 4c 45  .  execsql "SELE
29a0: 43 54 20 53 55 42 53 54 52 28 27 5c 75 31 32 33  CT SUBSTR('\u123
29b0: 34 27 2c 20 2d 31 2c 20 32 29 22 0a 7d 20 22 5c  4', -1, 2)".} "\
29c0: 75 31 32 33 34 22 0a 64 6f 5f 74 65 73 74 20 66  u1234".do_test f
29d0: 75 6e 63 32 2d 32 2e 38 2e 33 20 7b 0a 20 20 65  unc2-2.8.3 {.  e
29e0: 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20 53  xecsql "SELECT S
29f0: 55 42 53 54 52 28 27 5c 75 31 32 33 34 27 2c 20  UBSTR('\u1234', 
2a00: 2d 31 2c 20 33 29 22 0a 7d 20 22 5c 75 31 32 33  -1, 3)".} "\u123
2a10: 34 22 0a 0a 7d 20 3b 23 20 45 6e 64 20 5c 75 31  4"..} ;# End \u1
2a20: 32 33 34 21 3d 75 31 32 33 34 0a 0a 23 2d 2d 2d  234!=u1234..#---
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2a40: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2a50: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 65 73 74  ---------.# Test
2a80: 20 63 61 73 65 73 20 66 75 6e 63 32 2d 33 2e 2a   cases func2-3.*
2a90: 3a 20 73 75 62 73 74 72 20 69 6d 70 6c 65 6d 65  : substr impleme
2aa0: 6e 74 61 74 69 6f 6e 20 28 62 6c 6f 62 29 0a 23  ntation (blob).#
2ab0: 0a 0a 69 66 63 61 70 61 62 6c 65 20 7b 21 62 6c  ..ifcapable {!bl
2ac0: 6f 62 6c 69 74 7d 20 7b 0a 20 20 66 69 6e 69 73  oblit} {.  finis
2ad0: 68 5f 74 65 73 74 0a 20 20 72 65 74 75 72 6e 0a  h_test.  return.
2ae0: 7d 0a 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  }..do_test func2
2af0: 2d 33 2e 31 2e 31 20 7b 0a 20 20 73 65 74 20 62  -3.1.1 {.  set b
2b00: 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45  lob [execsql "SE
2b10: 4c 45 43 54 20 78 27 31 32 33 34 27 22 5d 0a 20  LECT x'1234'"]. 
2b20: 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e   bin_to_hex [lin
2b30: 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 22  dex $blob 0].} "
2b40: 31 32 33 34 22 0a 0a 23 20 73 75 62 73 74 72 28  1234"..# substr(
2b50: 78 2c 79 29 2c 20 73 75 62 73 74 72 28 78 2c 79  x,y), substr(x,y
2b60: 2c 7a 29 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63  ,z).do_test func
2b70: 32 2d 33 2e 31 2e 32 20 7b 0a 20 20 63 61 74 63  2-3.1.2 {.  catc
2b80: 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 53 55 42  hsql {SELECT SUB
2b90: 53 54 52 28 29 7d 0a 7d 20 7b 31 20 7b 77 72 6f  STR()}.} {1 {wro
2ba0: 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67  ng number of arg
2bb0: 75 6d 65 6e 74 73 20 74 6f 20 66 75 6e 63 74 69  uments to functi
2bc0: 6f 6e 20 53 55 42 53 54 52 28 29 7d 7d 0a 64 6f  on SUBSTR()}}.do
2bd0: 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e 31 2e  _test func2-3.1.
2be0: 33 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  3 {.  catchsql {
2bf0: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 78 27  SELECT SUBSTR(x'
2c00: 31 32 33 34 27 29 7d 0a 7d 20 7b 31 20 7b 77 72  1234')}.} {1 {wr
2c10: 6f 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72  ong number of ar
2c20: 67 75 6d 65 6e 74 73 20 74 6f 20 66 75 6e 63 74  guments to funct
2c30: 69 6f 6e 20 53 55 42 53 54 52 28 29 7d 7d 0a 64  ion SUBSTR()}}.d
2c40: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e 31  o_test func2-3.1
2c50: 2e 34 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .4 {.  catchsql 
2c60: 7b 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 78  {SELECT SUBSTR(x
2c70: 27 31 32 33 34 27 2c 20 31 2c 31 2c 31 29 7d 0a  '1234', 1,1,1)}.
2c80: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 6e 75 6d 62  } {1 {wrong numb
2c90: 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20  er of arguments 
2ca0: 74 6f 20 66 75 6e 63 74 69 6f 6e 20 53 55 42 53  to function SUBS
2cb0: 54 52 28 29 7d 7d 0a 0a 64 6f 5f 74 65 73 74 20  TR()}}..do_test 
2cc0: 66 75 6e 63 32 2d 33 2e 32 2e 30 20 7b 0a 20 20  func2-3.2.0 {.  
2cd0: 73 65 74 20 62 6c 6f 62 20 5b 65 78 65 63 73 71  set blob [execsq
2ce0: 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53 54 52  l "SELECT SUBSTR
2cf0: 28 78 27 31 32 33 34 27 2c 20 30 2c 20 30 29 22  (x'1234', 0, 0)"
2d00: 5d 0a 20 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b  ].  bin_to_hex [
2d10: 6c 69 6e 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a  lindex $blob 0].
2d20: 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e  } {}.do_test fun
2d30: 63 32 2d 33 2e 32 2e 31 20 7b 0a 20 20 73 65 74  c2-3.2.1 {.  set
2d40: 20 62 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22   blob [execsql "
2d50: 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 78 27  SELECT SUBSTR(x'
2d60: 31 32 33 34 27 2c 20 30 2c 20 31 29 22 5d 0a 20  1234', 0, 1)"]. 
2d70: 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e   bin_to_hex [lin
2d80: 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 7b  dex $blob 0].} {
2d90: 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  }.do_test func2-
2da0: 33 2e 32 2e 32 20 7b 0a 20 20 73 65 74 20 62 6c  3.2.2 {.  set bl
2db0: 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c  ob [execsql "SEL
2dc0: 45 43 54 20 53 55 42 53 54 52 28 78 27 31 32 33  ECT SUBSTR(x'123
2dd0: 34 27 2c 20 30 2c 20 32 29 22 5d 0a 20 20 62 69  4', 0, 2)"].  bi
2de0: 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78  n_to_hex [lindex
2df0: 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 22 31 32 22   $blob 0].} "12"
2e00: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33  .do_test func2-3
2e10: 2e 32 2e 33 20 7b 0a 20 20 73 65 74 20 62 6c 6f  .2.3 {.  set blo
2e20: 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45  b [execsql "SELE
2e30: 43 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34  CT SUBSTR(x'1234
2e40: 27 2c 20 30 2c 20 33 29 22 5d 0a 20 20 62 69 6e  ', 0, 3)"].  bin
2e50: 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20  _to_hex [lindex 
2e60: 24 62 6c 6f 62 20 30 5d 0a 7d 20 22 31 32 33 34  $blob 0].} "1234
2e70: 22 0a 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  "..do_test func2
2e80: 2d 33 2e 33 2e 30 20 7b 0a 20 20 73 65 74 20 62  -3.3.0 {.  set b
2e90: 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45  lob [execsql "SE
2ea0: 4c 45 43 54 20 53 55 42 53 54 52 28 78 27 31 32  LECT SUBSTR(x'12
2eb0: 33 34 27 2c 20 31 2c 20 30 29 22 5d 0a 20 20 62  34', 1, 0)"].  b
2ec0: 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65  in_to_hex [linde
2ed0: 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 7b 7d 0a  x $blob 0].} {}.
2ee0: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e  do_test func2-3.
2ef0: 33 2e 31 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62  3.1 {.  set blob
2f00: 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43   [execsql "SELEC
2f10: 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27  T SUBSTR(x'1234'
2f20: 2c 20 31 2c 20 31 29 22 5d 0a 20 20 62 69 6e 5f  , 1, 1)"].  bin_
2f30: 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20 24  to_hex [lindex $
2f40: 62 6c 6f 62 20 30 5d 0a 7d 20 22 31 32 22 0a 64  blob 0].} "12".d
2f50: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e 33  o_test func2-3.3
2f60: 2e 32 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62 20  .2 {.  set blob 
2f70: 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54  [execsql "SELECT
2f80: 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27 2c   SUBSTR(x'1234',
2f90: 20 31 2c 20 32 29 22 5d 0a 20 20 62 69 6e 5f 74   1, 2)"].  bin_t
2fa0: 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20 24 62  o_hex [lindex $b
2fb0: 6c 6f 62 20 30 5d 0a 7d 20 22 31 32 33 34 22 0a  lob 0].} "1234".
2fc0: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e  do_test func2-3.
2fd0: 33 2e 33 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62  3.3 {.  set blob
2fe0: 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43   [execsql "SELEC
2ff0: 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27  T SUBSTR(x'1234'
3000: 2c 20 31 2c 20 33 29 22 5d 0a 20 20 62 69 6e 5f  , 1, 3)"].  bin_
3010: 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20 24  to_hex [lindex $
3020: 62 6c 6f 62 20 30 5d 0a 7d 20 22 31 32 33 34 22  blob 0].} "1234"
3030: 0a 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  ..do_test func2-
3040: 33 2e 34 2e 30 20 7b 0a 20 20 73 65 74 20 62 6c  3.4.0 {.  set bl
3050: 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c  ob [execsql "SEL
3060: 45 43 54 20 53 55 42 53 54 52 28 78 27 31 32 33  ECT SUBSTR(x'123
3070: 34 27 2c 20 2d 31 2c 20 30 29 22 5d 0a 20 20 62  4', -1, 0)"].  b
3080: 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65  in_to_hex [linde
3090: 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 7b 7d 0a  x $blob 0].} {}.
30a0: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e  do_test func2-3.
30b0: 34 2e 31 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62  4.1 {.  set blob
30c0: 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43   [execsql "SELEC
30d0: 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27  T SUBSTR(x'1234'
30e0: 2c 20 2d 31 2c 20 31 29 22 5d 0a 20 20 62 69 6e  , -1, 1)"].  bin
30f0: 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20  _to_hex [lindex 
3100: 24 62 6c 6f 62 20 30 5d 0a 7d 20 22 33 34 22 0a  $blob 0].} "34".
3110: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e  do_test func2-3.
3120: 34 2e 32 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62  4.2 {.  set blob
3130: 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43   [execsql "SELEC
3140: 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27  T SUBSTR(x'1234'
3150: 2c 20 2d 31 2c 20 32 29 22 5d 0a 20 20 62 69 6e  , -1, 2)"].  bin
3160: 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20  _to_hex [lindex 
3170: 24 62 6c 6f 62 20 30 5d 0a 7d 20 22 33 34 22 0a  $blob 0].} "34".
3180: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e  do_test func2-3.
3190: 34 2e 33 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62  4.3 {.  set blob
31a0: 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43   [execsql "SELEC
31b0: 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27  T SUBSTR(x'1234'
31c0: 2c 20 2d 31 2c 20 33 29 22 5d 0a 20 20 62 69 6e  , -1, 3)"].  bin
31d0: 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20  _to_hex [lindex 
31e0: 24 62 6c 6f 62 20 30 5d 0a 7d 20 22 33 34 22 0a  $blob 0].} "34".
31f0: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33  .do_test func2-3
3200: 2e 35 2e 30 20 7b 0a 20 20 73 65 74 20 62 6c 6f  .5.0 {.  set blo
3210: 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45  b [execsql "SELE
3220: 43 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34  CT SUBSTR(x'1234
3230: 27 2c 20 2d 32 2c 20 30 29 22 5d 0a 20 20 62 69  ', -2, 0)"].  bi
3240: 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78  n_to_hex [lindex
3250: 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 7b 7d 0a 64   $blob 0].} {}.d
3260: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e 35  o_test func2-3.5
3270: 2e 31 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62 20  .1 {.  set blob 
3280: 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54  [execsql "SELECT
3290: 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27 2c   SUBSTR(x'1234',
32a0: 20 2d 32 2c 20 31 29 22 5d 0a 20 20 62 69 6e 5f   -2, 1)"].  bin_
32b0: 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20 24  to_hex [lindex $
32c0: 62 6c 6f 62 20 30 5d 0a 7d 20 22 31 32 22 0a 64  blob 0].} "12".d
32d0: 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e 35  o_test func2-3.5
32e0: 2e 32 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62 20  .2 {.  set blob 
32f0: 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54  [execsql "SELECT
3300: 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27 2c   SUBSTR(x'1234',
3310: 20 2d 32 2c 20 32 29 22 5d 0a 20 20 62 69 6e 5f   -2, 2)"].  bin_
3320: 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20 24  to_hex [lindex $
3330: 62 6c 6f 62 20 30 5d 0a 7d 20 22 31 32 33 34 22  blob 0].} "1234"
3340: 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33  .do_test func2-3
3350: 2e 35 2e 33 20 7b 0a 20 20 73 65 74 20 62 6c 6f  .5.3 {.  set blo
3360: 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45  b [execsql "SELE
3370: 43 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34  CT SUBSTR(x'1234
3380: 27 2c 20 2d 32 2c 20 33 29 22 5d 0a 20 20 62 69  ', -2, 3)"].  bi
3390: 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78  n_to_hex [lindex
33a0: 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 22 31 32 33   $blob 0].} "123
33b0: 34 22 0a 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63  4"..do_test func
33c0: 32 2d 33 2e 36 2e 30 20 7b 0a 20 20 73 65 74 20  2-3.6.0 {.  set 
33d0: 62 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53  blob [execsql "S
33e0: 45 4c 45 43 54 20 53 55 42 53 54 52 28 78 27 31  ELECT SUBSTR(x'1
33f0: 32 33 34 27 2c 20 2d 31 2c 20 30 29 22 5d 0a 20  234', -1, 0)"]. 
3400: 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e   bin_to_hex [lin
3410: 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 7b  dex $blob 0].} {
3420: 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d  }.do_test func2-
3430: 33 2e 36 2e 31 20 7b 0a 20 20 73 65 74 20 62 6c  3.6.1 {.  set bl
3440: 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c  ob [execsql "SEL
3450: 45 43 54 20 53 55 42 53 54 52 28 78 27 31 32 33  ECT SUBSTR(x'123
3460: 34 27 2c 20 2d 31 2c 20 2d 31 29 22 5d 0a 20 20  4', -1, -1)"].  
3470: 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64  bin_to_hex [lind
3480: 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 22 31  ex $blob 0].} "1
3490: 32 22 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  2".do_test func2
34a0: 2d 33 2e 36 2e 32 20 7b 0a 20 20 73 65 74 20 62  -3.6.2 {.  set b
34b0: 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45  lob [execsql "SE
34c0: 4c 45 43 54 20 53 55 42 53 54 52 28 78 27 31 32  LECT SUBSTR(x'12
34d0: 33 34 27 2c 20 2d 31 2c 20 2d 32 29 22 5d 0a 20  34', -1, -2)"]. 
34e0: 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e   bin_to_hex [lin
34f0: 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 22  dex $blob 0].} "
3500: 31 32 22 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63  12".do_test func
3510: 32 2d 33 2e 36 2e 33 20 7b 0a 20 20 73 65 74 20  2-3.6.3 {.  set 
3520: 62 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53  blob [execsql "S
3530: 45 4c 45 43 54 20 53 55 42 53 54 52 28 78 27 31  ELECT SUBSTR(x'1
3540: 32 33 34 27 2c 20 2d 31 2c 20 2d 33 29 22 5d 0a  234', -1, -3)"].
3550: 20 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69    bin_to_hex [li
3560: 6e 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20  ndex $blob 0].} 
3570: 22 31 32 22 0a 0a 64 6f 5f 74 65 73 74 20 66 75  "12"..do_test fu
3580: 6e 63 32 2d 33 2e 37 2e 30 20 7b 0a 20 20 73 65  nc2-3.7.0 {.  se
3590: 74 20 62 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20  t blob [execsql 
35a0: 22 53 45 4c 45 43 54 20 53 55 42 53 54 52 28 78  "SELECT SUBSTR(x
35b0: 27 31 32 33 34 27 2c 20 2d 32 2c 20 30 29 22 5d  '1234', -2, 0)"]
35c0: 0a 20 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c  .  bin_to_hex [l
35d0: 69 6e 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d  index $blob 0].}
35e0: 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63   {}.do_test func
35f0: 32 2d 33 2e 37 2e 31 20 7b 0a 20 20 73 65 74 20  2-3.7.1 {.  set 
3600: 62 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53  blob [execsql "S
3610: 45 4c 45 43 54 20 53 55 42 53 54 52 28 78 27 31  ELECT SUBSTR(x'1
3620: 32 33 34 27 2c 20 2d 32 2c 20 2d 31 29 22 5d 0a  234', -2, -1)"].
3630: 20 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69    bin_to_hex [li
3640: 6e 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20  ndex $blob 0].} 
3650: 7b 7d 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  {}.do_test func2
3660: 2d 33 2e 37 2e 32 20 7b 0a 20 20 73 65 74 20 62  -3.7.2 {.  set b
3670: 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45  lob [execsql "SE
3680: 4c 45 43 54 20 53 55 42 53 54 52 28 78 27 31 32  LECT SUBSTR(x'12
3690: 33 34 27 2c 20 2d 32 2c 20 2d 32 29 22 5d 0a 20  34', -2, -2)"]. 
36a0: 20 62 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e   bin_to_hex [lin
36b0: 64 65 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 7b  dex $blob 0].} {
36c0: 7d 0a 0a 64 6f 5f 74 65 73 74 20 66 75 6e 63 32  }..do_test func2
36d0: 2d 33 2e 38 2e 30 20 7b 0a 20 20 73 65 74 20 62  -3.8.0 {.  set b
36e0: 6c 6f 62 20 5b 65 78 65 63 73 71 6c 20 22 53 45  lob [execsql "SE
36f0: 4c 45 43 54 20 53 55 42 53 54 52 28 78 27 31 32  LECT SUBSTR(x'12
3700: 33 34 27 2c 20 31 2c 20 30 29 22 5d 0a 20 20 62  34', 1, 0)"].  b
3710: 69 6e 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65  in_to_hex [linde
3720: 78 20 24 62 6c 6f 62 20 30 5d 0a 7d 20 7b 7d 0a  x $blob 0].} {}.
3730: 64 6f 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e  do_test func2-3.
3740: 38 2e 31 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62  8.1 {.  set blob
3750: 20 5b 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43   [execsql "SELEC
3760: 54 20 53 55 42 53 54 52 28 78 27 31 32 33 34 27  T SUBSTR(x'1234'
3770: 2c 20 31 2c 20 2d 31 29 22 5d 0a 20 20 62 69 6e  , 1, -1)"].  bin
3780: 5f 74 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20  _to_hex [lindex 
3790: 24 62 6c 6f 62 20 30 5d 0a 7d 20 7b 7d 0a 64 6f  $blob 0].} {}.do
37a0: 5f 74 65 73 74 20 66 75 6e 63 32 2d 33 2e 38 2e  _test func2-3.8.
37b0: 32 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62 20 5b  2 {.  set blob [
37c0: 65 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20  execsql "SELECT 
37d0: 53 55 42 53 54 52 28 78 27 31 32 33 34 27 2c 20  SUBSTR(x'1234', 
37e0: 31 2c 20 2d 32 29 22 5d 0a 20 20 62 69 6e 5f 74  1, -2)"].  bin_t
37f0: 6f 5f 68 65 78 20 5b 6c 69 6e 64 65 78 20 24 62  o_hex [lindex $b
3800: 6c 6f 62 20 30 5d 0a 7d 20 7b 7d 0a 0a 64 6f 5f  lob 0].} {}..do_
3810: 74 65 73 74 20 66 75 6e 63 32 2d 33 2e 39 2e 30  test func2-3.9.0
3820: 20 7b 0a 20 20 73 65 74 20 62 6c 6f 62 20 5b 65   {.  set blob [e
3830: 78 65 63 73 71 6c 20 22 53 45 4c 45 43 54 20 53  xecsql "SELECT S
3840: 55 42 53 54 52 28 78 27 31 32 33 34 27 2c 20 32  UBSTR(x'1234', 2
3850: 2c 20 30 29 22 5d 0a 20 20 62 69 6e 5f 74 6f 5f  , 0)"].  bin_to_
3860: 68 65 78 20 5b 6c 69 6e 64 65 78 20 24 62 6c 6f  hex [lindex $blo
3870: 62 20 30 5d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73  b 0].} {}.do_tes
3880: 74 20 66 75 6e 63 32 2d 33 2e 39 2e 31 20 7b 0a  t func2-3.9.1 {.
3890: 20 20 73 65 74 20 62 6c 6f 62 20 5b 65 78 65 63    set blob [exec
38a0: 73 71 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53  sql "SELECT SUBS
38b0: 54 52 28 78 27 31 32 33 34 27 2c 20 32 2c 20 2d  TR(x'1234', 2, -
38c0: 31 29 22 5d 0a 20 20 62 69 6e 5f 74 6f 5f 68 65  1)"].  bin_to_he
38d0: 78 20 5b 6c 69 6e 64 65 78 20 24 62 6c 6f 62 20  x [lindex $blob 
38e0: 30 5d 0a 7d 20 22 31 32 22 0a 64 6f 5f 74 65 73  0].} "12".do_tes
38f0: 74 20 66 75 6e 63 32 2d 33 2e 39 2e 32 20 7b 0a  t func2-3.9.2 {.
3900: 20 20 73 65 74 20 62 6c 6f 62 20 5b 65 78 65 63    set blob [exec
3910: 73 71 6c 20 22 53 45 4c 45 43 54 20 53 55 42 53  sql "SELECT SUBS
3920: 54 52 28 78 27 31 32 33 34 27 2c 20 32 2c 20 2d  TR(x'1234', 2, -
3930: 32 29 22 5d 0a 20 20 62 69 6e 5f 74 6f 5f 68 65  2)"].  bin_to_he
3940: 78 20 5b 6c 69 6e 64 65 78 20 24 62 6c 6f 62 20  x [lindex $blob 
3950: 30 5d 0a 7d 20 22 31 32 22 0a 0a 66 69 6e 69 73  0].} "12"..finis
3960: 68 5f 74 65 73 74 0a                             h_test.