/ Hex Artifact Content
Login

Artifact 7bd009071e242aac4f18521581536b652b789a47:


0000: 23 20 32 30 30 39 20 46 65 62 72 75 61 72 79 20  # 2009 February 
0010: 32 34 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f  24.#.# 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 0a 23 0a 23 20 54 68 69 73 20 66 69  ary..#.# This fi
01b0: 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 74 65  le implements te
01c0: 73 74 73 20 66 6f 72 20 74 68 65 20 63 6f 6d 70  sts for the comp
01d0: 69 6c 65 20 74 69 6d 65 20 64 69 61 67 6e 6f 73  ile time diagnos
01e0: 74 69 63 20 0a 23 20 66 75 6e 63 74 69 6f 6e 73  tic .# functions
01f0: 2e 0a 23 0a 0a 73 65 74 20 74 65 73 74 64 69 72  ..#..set testdir
0200: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24   [file dirname $
0210: 61 72 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74  argv0].source $t
0220: 65 73 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63  estdir/tester.tc
0230: 6c 0a 0a 23 20 54 65 73 74 20 6f 72 67 61 6e 69  l..# Test organi
0240: 7a 61 74 69 6f 6e 3a 0a 23 0a 23 20 63 74 69 6d  zation:.#.# ctim
0250: 65 2d 31 2e 2a 3a 20 54 65 73 74 20 70 72 61 67  e-1.*: Test prag
0260: 6d 61 20 73 75 70 70 6f 72 74 2e 0a 23 20 63 74  ma support..# ct
0270: 69 6d 65 2d 32 2e 2a 3a 20 54 65 73 74 20 66 75  ime-2.*: Test fu
0280: 6e 63 74 69 6f 6e 20 73 75 70 70 6f 72 74 2e 0a  nction support..
0290: 23 0a 0a 69 66 63 61 70 61 62 6c 65 20 21 70 72  #..ifcapable !pr
02a0: 61 67 6d 61 7c 7c 21 63 6f 6d 70 69 6c 65 6f 70  agma||!compileop
02b0: 74 69 6f 6e 5f 64 69 61 67 73 20 7b 0a 20 20 66  tion_diags {.  f
02c0: 69 6e 69 73 68 5f 74 65 73 74 0a 20 20 72 65 74  inish_test.  ret
02d0: 75 72 6e 0a 7d 0a 0a 23 23 23 23 23 23 23 23 23  urn.}..#########
02e0: 23 23 23 23 23 23 23 23 23 23 23 23 0a 23 20 63  ############.# c
02f0: 74 69 6d 65 2d 31 2e 2a 3a 20 54 65 73 74 20 70  time-1.*: Test p
0300: 72 61 67 6d 61 20 73 75 70 70 6f 72 74 2e 0a 0a  ragma support...
0310: 64 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 31 2e  do_test ctime-1.
0320: 31 2e 31 20 7b 0a 20 20 63 61 74 63 68 73 71 6c  1.1 {.  catchsql
0330: 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 63 6f   {.    PRAGMA co
0340: 6d 70 69 6c 65 5f 6f 70 74 69 6f 6e 73 28 29 3b  mpile_options();
0350: 0a 20 20 7d 0a 7d 20 7b 31 20 7b 6e 65 61 72 20  .  }.} {1 {near 
0360: 22 29 22 3a 20 73 79 6e 74 61 78 20 65 72 72 6f  ")": syntax erro
0370: 72 7d 7d 0a 64 6f 5f 74 65 73 74 20 63 74 69 6d  r}}.do_test ctim
0380: 65 2d 31 2e 31 2e 32 20 7b 0a 20 20 63 61 74 63  e-1.1.2 {.  catc
0390: 68 73 71 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d  hsql {.    PRAGM
03a0: 41 20 63 6f 6d 70 69 6c 65 5f 6f 70 74 69 6f 6e  A compile_option
03b0: 73 28 4e 55 4c 4c 29 3b 0a 20 20 7d 0a 7d 20 7b  s(NULL);.  }.} {
03c0: 31 20 7b 6e 65 61 72 20 22 4e 55 4c 4c 22 3a 20  1 {near "NULL": 
03d0: 73 79 6e 74 61 78 20 65 72 72 6f 72 7d 7d 0a 64  syntax error}}.d
03e0: 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 31 2e 31  o_test ctime-1.1
03f0: 2e 33 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .3 {.  catchsql 
0400: 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 63 6f 6d  {.    PRAGMA com
0410: 70 69 6c 65 5f 6f 70 74 69 6f 6e 73 20 2a 3b 0a  pile_options *;.
0420: 20 20 7d 0a 7d 20 7b 31 20 7b 6e 65 61 72 20 22    }.} {1 {near "
0430: 2a 22 3a 20 73 79 6e 74 61 78 20 65 72 72 6f 72  *": syntax error
0440: 7d 7d 0a 0a 64 6f 5f 74 65 73 74 20 63 74 69 6d  }}..do_test ctim
0450: 65 2d 31 2e 32 2e 31 20 7b 0a 20 20 73 65 74 20  e-1.2.1 {.  set 
0460: 61 6e 73 20 5b 20 63 61 74 63 68 73 71 6c 20 7b  ans [ catchsql {
0470: 0a 20 20 20 20 50 52 41 47 4d 41 20 63 6f 6d 70  .    PRAGMA comp
0480: 69 6c 65 5f 6f 70 74 69 6f 6e 73 3b 0a 20 20 7d  ile_options;.  }
0490: 20 5d 0a 20 20 6c 69 73 74 20 5b 20 6c 69 6e 64   ].  list [ lind
04a0: 65 78 20 24 61 6e 73 20 30 20 5d 0a 7d 20 7b 30  ex $ans 0 ].} {0
04b0: 7d 0a 23 20 74 68 65 20 72 65 73 75 6c 74 73 20  }.# the results 
04c0: 73 68 6f 75 6c 64 20 62 65 20 69 6e 20 73 6f 72  should be in sor
04d0: 74 65 64 20 6f 72 64 65 72 20 61 6c 72 65 61 64  ted order alread
04e0: 79 0a 64 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d  y.do_test ctime-
04f0: 31 2e 32 2e 32 20 7b 0a 20 20 73 65 74 20 61 6e  1.2.2 {.  set an
0500: 73 20 5b 20 63 61 74 63 68 73 71 6c 20 7b 0a 20  s [ catchsql {. 
0510: 20 20 20 50 52 41 47 4d 41 20 63 6f 6d 70 69 6c     PRAGMA compil
0520: 65 5f 6f 70 74 69 6f 6e 73 3b 0a 20 20 7d 20 5d  e_options;.  } ]
0530: 0a 20 20 6c 69 73 74 20 5b 20 6c 69 6e 64 65 78  .  list [ lindex
0540: 20 24 61 6e 73 20 30 20 5d 20 5b 20 65 78 70 72   $ans 0 ] [ expr
0550: 20 7b 20 5b 6c 73 6f 72 74 20 5b 6c 69 6e 64 65   { [lsort [linde
0560: 78 20 24 61 6e 73 20 31 5d 5d 3d 3d 5b 6c 69 6e  x $ans 1]]==[lin
0570: 64 65 78 20 24 61 6e 73 20 31 5d 20 7d 20 5d 0a  dex $ans 1] } ].
0580: 7d 20 7b 30 20 31 7d 0a 0a 23 20 53 51 4c 49 54  } {0 1}..# SQLIT
0590: 45 5f 54 48 52 45 41 44 53 41 46 45 20 73 68 6f  E_THREADSAFE sho
05a0: 75 6c 64 20 70 72 65 74 74 79 20 6d 75 63 68 20  uld pretty much 
05b0: 61 6c 77 61 79 73 20 62 65 20 64 65 66 69 6e 65  always be define
05c0: 64 0a 23 20 6f 6e 65 20 77 61 79 20 6f 72 20 74  d.# one way or t
05d0: 68 65 20 6f 74 68 65 72 2c 20 61 6e 64 20 69 74  he other, and it
05e0: 20 6d 75 73 74 20 68 61 76 65 20 61 20 76 61 6c   must have a val
05f0: 75 65 20 6f 66 20 30 20 6f 72 20 31 2e 0a 64 6f  ue of 0 or 1..do
0600: 5f 74 65 73 74 20 63 74 69 6d 65 2d 31 2e 34 2e  _test ctime-1.4.
0610: 31 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  1 {.  catchsql {
0620: 0a 20 20 20 20 53 45 4c 45 43 54 20 73 71 6c 69  .    SELECT sqli
0630: 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e  te_compileoption
0640: 5f 75 73 65 64 28 27 53 51 4c 49 54 45 5f 54 48  _used('SQLITE_TH
0650: 52 45 41 44 53 41 46 45 27 29 3b 0a 20 20 7d 0a  READSAFE');.  }.
0660: 7d 20 7b 30 20 31 7d 0a 64 6f 5f 74 65 73 74 20  } {0 1}.do_test 
0670: 63 74 69 6d 65 2d 31 2e 34 2e 32 20 7b 0a 20 20  ctime-1.4.2 {.  
0680: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53  catchsql {.    S
0690: 45 4c 45 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d  ELECT sqlite_com
06a0: 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 28  pileoption_used(
06b0: 27 54 48 52 45 41 44 53 41 46 45 27 29 3b 0a 20  'THREADSAFE');. 
06c0: 20 7d 0a 7d 20 7b 30 20 31 7d 0a 64 6f 5f 74 65   }.} {0 1}.do_te
06d0: 73 74 20 63 74 69 6d 65 2d 31 2e 34 2e 33 20 7b  st ctime-1.4.3 {
06e0: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20  .  catchsql {.  
06f0: 20 20 53 45 4c 45 43 54 20 73 71 6c 69 74 65 5f    SELECT sqlite_
0700: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73  compileoption_us
0710: 65 64 28 22 54 48 52 45 41 44 53 41 46 45 22 29  ed("THREADSAFE")
0720: 3b 0a 20 20 7d 0a 7d 20 7b 30 20 31 7d 0a 0a 64  ;.  }.} {0 1}..d
0730: 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 31 2e 35  o_test ctime-1.5
0740: 20 7b 0a 20 20 73 65 74 20 61 6e 73 31 20 5b 20   {.  set ans1 [ 
0750: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53  catchsql {.    S
0760: 45 4c 45 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d  ELECT sqlite_com
0770: 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 28  pileoption_used(
0780: 27 54 48 52 45 41 44 53 41 46 45 3d 30 27 29 3b  'THREADSAFE=0');
0790: 0a 20 20 7d 20 5d 0a 20 20 73 65 74 20 61 6e 73  .  } ].  set ans
07a0: 32 20 5b 20 63 61 74 63 68 73 71 6c 20 7b 0a 20  2 [ catchsql {. 
07b0: 20 20 20 53 45 4c 45 43 54 20 73 71 6c 69 74 65     SELECT sqlite
07c0: 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75  _compileoption_u
07d0: 73 65 64 28 27 54 48 52 45 41 44 53 41 46 45 3d  sed('THREADSAFE=
07e0: 31 27 29 3b 0a 20 20 7d 20 5d 0a 20 20 73 65 74  1');.  } ].  set
07f0: 20 61 6e 73 33 20 5b 20 63 61 74 63 68 73 71 6c   ans3 [ catchsql
0800: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 73 71   {.    SELECT sq
0810: 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69  lite_compileopti
0820: 6f 6e 5f 75 73 65 64 28 27 54 48 52 45 41 44 53  on_used('THREADS
0830: 41 46 45 3d 32 27 29 3b 0a 20 20 7d 20 5d 0a 20  AFE=2');.  } ]. 
0840: 20 6c 73 6f 72 74 20 5b 20 6c 69 73 74 20 24 61   lsort [ list $a
0850: 6e 73 31 20 24 61 6e 73 32 20 24 61 6e 73 33 20  ns1 $ans2 $ans3 
0860: 5d 0a 7d 20 7b 7b 30 20 30 7d 20 7b 30 20 30 7d  ].} {{0 0} {0 0}
0870: 20 7b 30 20 31 7d 7d 0a 0a 64 6f 5f 74 65 73 74   {0 1}}..do_test
0880: 20 63 74 69 6d 65 2d 31 2e 36 20 7b 0a 20 20 65   ctime-1.6 {.  e
0890: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c  xecsql {.    SEL
08a0: 45 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69  ECT sqlite_compi
08b0: 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 28 27 54  leoption_used('T
08c0: 48 52 45 41 44 53 41 46 45 3d 27 29 3b 0a 20 20  HREADSAFE=');.  
08d0: 7d 0a 7d 20 7b 30 7d 0a 0a 64 6f 5f 74 65 73 74  }.} {0}..do_test
08e0: 20 63 74 69 6d 65 2d 31 2e 37 2e 31 20 7b 0a 20   ctime-1.7.1 {. 
08f0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53   execsql {.    S
0900: 45 4c 45 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d  ELECT sqlite_com
0910: 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 28  pileoption_used(
0920: 27 53 51 4c 49 54 45 5f 4f 4d 49 54 5f 43 4f 4d  'SQLITE_OMIT_COM
0930: 50 49 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53  PILEOPTION_DIAGS
0940: 27 29 3b 0a 20 20 7d 0a 7d 20 7b 30 7d 0a 64 6f  ');.  }.} {0}.do
0950: 5f 74 65 73 74 20 63 74 69 6d 65 2d 31 2e 37 2e  _test ctime-1.7.
0960: 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a  2 {.  execsql {.
0970: 20 20 20 20 53 45 4c 45 43 54 20 73 71 6c 69 74      SELECT sqlit
0980: 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f  e_compileoption_
0990: 75 73 65 64 28 27 4f 4d 49 54 5f 43 4f 4d 50 49  used('OMIT_COMPI
09a0: 4c 45 4f 50 54 49 4f 4e 5f 44 49 41 47 53 27 29  LEOPTION_DIAGS')
09b0: 3b 0a 20 20 7d 0a 7d 20 7b 30 7d 0a 0a 23 23 23  ;.  }.} {0}..###
09c0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23  ################
09d0: 23 23 0a 23 20 63 74 69 6d 65 2d 32 2e 2a 3a 20  ##.# ctime-2.*: 
09e0: 54 65 73 74 20 66 75 6e 63 74 69 6f 6e 20 73 75  Test function su
09f0: 70 70 6f 72 74 2e 0a 0a 64 6f 5f 74 65 73 74 20  pport...do_test 
0a00: 63 74 69 6d 65 2d 32 2e 31 2e 31 20 7b 0a 20 20  ctime-2.1.1 {.  
0a10: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53  catchsql {.    S
0a20: 45 4c 45 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d  ELECT sqlite_com
0a30: 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 28  pileoption_used(
0a40: 29 3b 0a 20 20 7d 0a 7d 20 7b 31 20 7b 77 72 6f  );.  }.} {1 {wro
0a50: 6e 67 20 6e 75 6d 62 65 72 20 6f 66 20 61 72 67  ng number of arg
0a60: 75 6d 65 6e 74 73 20 74 6f 20 66 75 6e 63 74 69  uments to functi
0a70: 6f 6e 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c  on sqlite_compil
0a80: 65 6f 70 74 69 6f 6e 5f 75 73 65 64 28 29 7d 7d  eoption_used()}}
0a90: 0a 64 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 32  .do_test ctime-2
0aa0: 2e 31 2e 32 20 7b 0a 20 20 63 61 74 63 68 73 71  .1.2 {.  catchsq
0ab0: 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 73  l {.    SELECT s
0ac0: 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74  qlite_compileopt
0ad0: 69 6f 6e 5f 75 73 65 64 28 4e 55 4c 4c 29 3b 0a  ion_used(NULL);.
0ae0: 20 20 7d 0a 7d 20 7b 30 20 7b 7b 7d 7d 7d 0a 64    }.} {0 {{}}}.d
0af0: 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 32 2e 31  o_test ctime-2.1
0b00: 2e 33 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .3 {.  catchsql 
0b10: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 73 71 6c  {.    SELECT sql
0b20: 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f  ite_compileoptio
0b30: 6e 5f 75 73 65 64 28 22 22 29 3b 0a 20 20 7d 0a  n_used("");.  }.
0b40: 7d 20 7b 30 20 30 7d 0a 64 6f 5f 74 65 73 74 20  } {0 0}.do_test 
0b50: 63 74 69 6d 65 2d 32 2e 31 2e 34 20 7b 0a 20 20  ctime-2.1.4 {.  
0b60: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53  catchsql {.    S
0b70: 45 4c 45 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d  ELECT sqlite_com
0b80: 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 28  pileoption_used(
0b90: 27 27 29 3b 0a 20 20 7d 0a 7d 20 7b 30 20 30 7d  '');.  }.} {0 0}
0ba0: 0a 64 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 32  .do_test ctime-2
0bb0: 2e 31 2e 35 20 7b 0a 20 20 63 61 74 63 68 73 71  .1.5 {.  catchsq
0bc0: 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 73  l {.    SELECT s
0bd0: 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74  qlite_compileopt
0be0: 69 6f 6e 5f 75 73 65 64 28 66 6f 6f 29 3b 0a 20  ion_used(foo);. 
0bf0: 20 7d 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75 63 68   }.} {1 {no such
0c00: 20 63 6f 6c 75 6d 6e 3a 20 66 6f 6f 7d 7d 0a 64   column: foo}}.d
0c10: 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 32 2e 31  o_test ctime-2.1
0c20: 2e 36 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .6 {.  catchsql 
0c30: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 73 71 6c  {.    SELECT sql
0c40: 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f  ite_compileoptio
0c50: 6e 5f 75 73 65 64 28 27 54 48 52 45 41 44 53 41  n_used('THREADSA
0c60: 46 45 27 2c 20 30 29 3b 0a 20 20 7d 0a 7d 20 7b  FE', 0);.  }.} {
0c70: 31 20 7b 77 72 6f 6e 67 20 6e 75 6d 62 65 72 20  1 {wrong number 
0c80: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20  of arguments to 
0c90: 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65 5f  function sqlite_
0ca0: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73  compileoption_us
0cb0: 65 64 28 29 7d 7d 0a 64 6f 5f 74 65 73 74 20 63  ed()}}.do_test c
0cc0: 74 69 6d 65 2d 32 2e 31 2e 37 20 7b 0a 20 20 63  time-2.1.7 {.  c
0cd0: 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53 45  atchsql {.    SE
0ce0: 4c 45 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d 70  LECT sqlite_comp
0cf0: 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64 28 30  ileoption_used(0
0d00: 29 3b 0a 20 20 7d 0a 7d 20 7b 30 20 30 7d 0a 64  );.  }.} {0 0}.d
0d10: 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 32 2e 31  o_test ctime-2.1
0d20: 2e 38 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .8 {.  catchsql 
0d30: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 73 71 6c  {.    SELECT sql
0d40: 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f  ite_compileoptio
0d50: 6e 5f 75 73 65 64 28 27 30 27 29 3b 0a 20 20 7d  n_used('0');.  }
0d60: 0a 7d 20 7b 30 20 30 7d 0a 64 6f 5f 74 65 73 74  .} {0 0}.do_test
0d70: 20 63 74 69 6d 65 2d 32 2e 31 2e 39 20 7b 0a 20   ctime-2.1.9 {. 
0d80: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
0d90: 53 45 4c 45 43 54 20 73 71 6c 69 74 65 5f 63 6f  SELECT sqlite_co
0da0: 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 75 73 65 64  mpileoption_used
0db0: 28 31 2e 30 29 3b 0a 20 20 7d 0a 7d 20 7b 30 20  (1.0);.  }.} {0 
0dc0: 30 7d 0a 0a 64 6f 5f 74 65 73 74 20 63 74 69 6d  0}..do_test ctim
0dd0: 65 2d 32 2e 32 2e 31 20 7b 0a 20 20 63 61 74 63  e-2.2.1 {.  catc
0de0: 68 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45 43  hsql {.    SELEC
0df0: 54 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65  T sqlite_compile
0e00: 6f 70 74 69 6f 6e 5f 67 65 74 28 29 3b 0a 20 20  option_get();.  
0e10: 7d 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 6e 75  }.} {1 {wrong nu
0e20: 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74  mber of argument
0e30: 73 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 73 71  s to function sq
0e40: 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69  lite_compileopti
0e50: 6f 6e 5f 67 65 74 28 29 7d 7d 0a 64 6f 5f 74 65  on_get()}}.do_te
0e60: 73 74 20 63 74 69 6d 65 2d 32 2e 32 2e 32 20 7b  st ctime-2.2.2 {
0e70: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20  .  catchsql {.  
0e80: 20 20 53 45 4c 45 43 54 20 73 71 6c 69 74 65 5f    SELECT sqlite_
0e90: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65  compileoption_ge
0ea0: 74 28 30 2c 20 30 29 3b 0a 20 20 7d 0a 7d 20 7b  t(0, 0);.  }.} {
0eb0: 31 20 7b 77 72 6f 6e 67 20 6e 75 6d 62 65 72 20  1 {wrong number 
0ec0: 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 74 6f 20  of arguments to 
0ed0: 66 75 6e 63 74 69 6f 6e 20 73 71 6c 69 74 65 5f  function sqlite_
0ee0: 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f 67 65  compileoption_ge
0ef0: 74 28 29 7d 7d 0a 0a 23 20 54 68 69 73 20 61 73  t()}}..# This as
0f00: 73 75 6d 65 73 20 74 68 65 72 65 20 69 73 20 61  sumes there is a
0f10: 74 20 6c 65 61 73 74 20 31 20 63 6f 6d 70 69 6c  t least 1 compil
0f20: 65 20 74 69 6d 65 20 6f 70 74 69 6f 6e 0a 23 20  e time option.# 
0f30: 28 73 65 65 20 53 51 4c 49 54 45 5f 54 48 52 45  (see SQLITE_THRE
0f40: 41 44 53 41 46 45 20 61 62 6f 76 65 29 2e 0a 64  ADSAFE above)..d
0f50: 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 32 2e 33  o_test ctime-2.3
0f60: 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a   {.  catchsql {.
0f70: 20 20 20 20 53 45 4c 45 43 54 20 73 71 6c 69 74      SELECT sqlit
0f80: 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69 6f 6e 5f  e_compileoption_
0f90: 75 73 65 64 28 73 71 6c 69 74 65 5f 63 6f 6d 70  used(sqlite_comp
0fa0: 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 74 28 30 29  ileoption_get(0)
0fb0: 29 3b 0a 20 20 7d 0a 7d 20 7b 30 20 31 7d 0a 0a  );.  }.} {0 1}..
0fc0: 23 20 54 68 69 73 20 61 73 73 75 6d 65 73 20 74  # This assumes t
0fd0: 68 65 72 65 20 69 73 20 61 74 20 6c 65 61 73 74  here is at least
0fe0: 20 31 20 63 6f 6d 70 69 6c 65 20 74 69 6d 65 20   1 compile time 
0ff0: 6f 70 74 69 6f 6e 0a 23 20 28 73 65 65 20 53 51  option.# (see SQ
1000: 4c 49 54 45 5f 54 48 52 45 41 44 53 41 46 45 20  LITE_THREADSAFE 
1010: 61 62 6f 76 65 29 2e 0a 64 6f 5f 74 65 73 74 20  above)..do_test 
1020: 63 74 69 6d 65 2d 32 2e 34 20 7b 0a 20 20 73 65  ctime-2.4 {.  se
1030: 74 20 61 6e 73 20 5b 20 63 61 74 63 68 73 71 6c  t ans [ catchsql
1040: 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 73 71   {.    SELECT sq
1050: 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70 74 69  lite_compileopti
1060: 6f 6e 5f 67 65 74 28 30 29 3b 0a 20 20 7d 20 5d  on_get(0);.  } ]
1070: 0a 20 20 6c 69 73 74 20 5b 6c 69 6e 64 65 78 20  .  list [lindex 
1080: 24 61 6e 73 20 30 5d 0a 7d 20 7b 30 7d 0a 0a 23  $ans 0].} {0}..#
1090: 20 47 65 74 20 74 68 65 20 6c 69 73 74 20 6f 66   Get the list of
10a0: 20 64 65 66 69 6e 65 73 20 75 73 69 6e 67 20 74   defines using t
10b0: 68 65 20 70 72 61 67 6d 61 2c 0a 23 20 74 68 65  he pragma,.# the
10c0: 6e 20 74 72 79 20 71 75 65 72 79 69 6e 67 20 65  n try querying e
10d0: 61 63 68 20 6f 6e 65 20 77 69 74 68 20 74 68 65  ach one with the
10e0: 20 66 75 6e 63 74 69 6f 6e 73 2e 0a 73 65 74 20   functions..set 
10f0: 61 6e 73 20 5b 20 63 61 74 63 68 73 71 6c 20 7b  ans [ catchsql {
1100: 0a 20 20 50 52 41 47 4d 41 20 63 6f 6d 70 69 6c  .  PRAGMA compil
1110: 65 5f 6f 70 74 69 6f 6e 73 3b 0a 7d 20 5d 0a 73  e_options;.} ].s
1120: 65 74 20 6f 70 74 73 20 5b 20 6c 69 6e 64 65 78  et opts [ lindex
1130: 20 24 61 6e 73 20 31 20 5d 0a 73 65 74 20 74 63   $ans 1 ].set tc
1140: 20 31 0a 66 6f 72 65 61 63 68 20 6f 70 74 20 24   1.foreach opt $
1150: 6f 70 74 73 20 7b 0a 20 20 64 6f 5f 74 65 73 74  opts {.  do_test
1160: 20 63 74 69 6d 65 2d 32 2e 35 2e 24 74 63 20 7b   ctime-2.5.$tc {
1170: 0a 20 20 20 20 73 65 74 20 4e 20 5b 20 65 78 70  .    set N [ exp
1180: 72 20 7b 24 74 63 2d 31 7d 20 5d 0a 20 20 20 20  r {$tc-1} ].    
1190: 73 65 74 20 61 6e 73 31 20 5b 20 63 61 74 63 68  set ans1 [ catch
11a0: 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 4c 45  sql {.      SELE
11b0: 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c  CT sqlite_compil
11c0: 65 6f 70 74 69 6f 6e 5f 67 65 74 28 24 4e 29 3b  eoption_get($N);
11d0: 0a 20 20 20 20 7d 20 5d 0a 20 20 20 20 73 65 74  .    } ].    set
11e0: 20 61 6e 73 32 20 5b 20 63 61 74 63 68 73 71 6c   ans2 [ catchsql
11f0: 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20   {.      SELECT 
1200: 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c 65 6f 70  sqlite_compileop
1210: 74 69 6f 6e 5f 75 73 65 64 28 24 6f 70 74 29 3b  tion_used($opt);
1220: 0a 20 20 20 20 7d 20 5d 0a 20 20 20 20 6c 69 73  .    } ].    lis
1230: 74 20 5b 20 6c 69 6e 64 65 78 20 24 61 6e 73 31  t [ lindex $ans1
1240: 20 30 20 5d 20 5b 20 65 78 70 72 20 7b 20 5b 6c   0 ] [ expr { [l
1250: 69 6e 64 65 78 20 24 61 6e 73 31 20 31 5d 3d 3d  index $ans1 1]==
1260: 24 6f 70 74 20 7d 20 5d 20 5c 0a 20 20 20 20 20  $opt } ] \.     
1270: 20 20 20 20 5b 20 65 78 70 72 20 7b 20 24 61 6e      [ expr { $an
1280: 73 32 20 7d 20 5d 0a 20 20 7d 20 7b 30 20 31 20  s2 } ].  } {0 1 
1290: 7b 30 20 31 7d 7d 0a 20 20 69 6e 63 72 20 74 63  {0 1}}.  incr tc
12a0: 20 31 0a 7d 0a 23 20 74 65 73 74 20 31 20 70 61   1.}.# test 1 pa
12b0: 73 74 20 61 72 72 61 79 20 62 6f 75 6e 64 73 0a  st array bounds.
12c0: 64 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 32 2e  do_test ctime-2.
12d0: 35 2e 24 74 63 20 7b 0a 20 20 73 65 74 20 4e 20  5.$tc {.  set N 
12e0: 5b 20 65 78 70 72 20 7b 24 74 63 2d 31 7d 20 5d  [ expr {$tc-1} ]
12f0: 0a 20 20 73 65 74 20 61 6e 73 20 5b 20 63 61 74  .  set ans [ cat
1300: 63 68 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c 45  chsql {.    SELE
1310: 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d 70 69 6c  CT sqlite_compil
1320: 65 6f 70 74 69 6f 6e 5f 67 65 74 28 24 4e 29 3b  eoption_get($N);
1330: 0a 20 20 7d 20 5d 0a 7d 20 7b 30 20 7b 7b 7d 7d  .  } ].} {0 {{}}
1340: 7d 0a 69 6e 63 72 20 74 63 20 31 0a 23 20 74 65  }.incr tc 1.# te
1350: 73 74 20 31 20 62 65 66 6f 72 65 20 61 72 72 61  st 1 before arra
1360: 79 20 62 6f 75 6e 64 73 20 28 4e 3d 2d 31 29 0a  y bounds (N=-1).
1370: 64 6f 5f 74 65 73 74 20 63 74 69 6d 65 2d 32 2e  do_test ctime-2.
1380: 35 2e 24 74 63 20 7b 0a 20 20 73 65 74 20 4e 20  5.$tc {.  set N 
1390: 2d 31 0a 20 20 73 65 74 20 61 6e 73 20 5b 20 63  -1.  set ans [ c
13a0: 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53 45  atchsql {.    SE
13b0: 4c 45 43 54 20 73 71 6c 69 74 65 5f 63 6f 6d 70  LECT sqlite_comp
13c0: 69 6c 65 6f 70 74 69 6f 6e 5f 67 65 74 28 24 4e  ileoption_get($N
13d0: 29 3b 0a 20 20 7d 20 5d 0a 7d 20 7b 30 20 7b 7b  );.  } ].} {0 {{
13e0: 7d 7d 7d 0a 0a 0a 66 69 6e 69 73 68 5f 74 65 73  }}}...finish_tes
13f0: 74 0a                                            t.