/ Hex Artifact Content
Login

Artifact 92ae906284062bf081b6c854afa54dcb1aa9ef88:


0000: 23 20 32 30 31 36 20 46 65 62 72 75 61 72 79 20  # 2016 February 
0010: 31 37 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f  17.#.# 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 2a 2a 0a 23 0a 23 20 54  **********.#.# T
0170: 68 69 73 20 66 69 6c 65 20 69 73 20 66 6f 63 75  his file is focu
0180: 73 65 64 20 6f 6e 20 4f 4f 4d 20 65 72 72 6f 72  sed on OOM error
0190: 73 2e 0a 23 0a 0a 73 6f 75 72 63 65 20 5b 66 69  s..#..source [fi
01a0: 6c 65 20 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69  le join [file di
01b0: 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69  rname [info scri
01c0: 70 74 5d 5d 20 66 74 73 35 5f 63 6f 6d 6d 6f 6e  pt]] fts5_common
01d0: 2e 74 63 6c 5d 0a 73 6f 75 72 63 65 20 24 74 65  .tcl].source $te
01e0: 73 74 64 69 72 2f 6d 61 6c 6c 6f 63 5f 63 6f 6d  stdir/malloc_com
01f0: 6d 6f 6e 2e 74 63 6c 0a 73 65 74 20 74 65 73 74  mon.tcl.set test
0200: 70 72 65 66 69 78 20 66 74 73 35 66 61 75 6c 74  prefix fts5fault
0210: 42 0a 0a 23 20 49 66 20 53 51 4c 49 54 45 5f 45  B..# If SQLITE_E
0220: 4e 41 42 4c 45 5f 46 54 53 33 20 69 73 20 64 65  NABLE_FTS3 is de
0230: 66 69 6e 65 64 2c 20 6f 6d 69 74 20 74 68 69 73  fined, omit this
0240: 20 66 69 6c 65 2e 0a 69 66 63 61 70 61 62 6c 65   file..ifcapable
0250: 20 21 66 74 73 35 20 7b 0a 20 20 66 69 6e 69 73   !fts5 {.  finis
0260: 68 5f 74 65 73 74 0a 20 20 72 65 74 75 72 6e 0a  h_test.  return.
0270: 7d 0a 0a 70 72 6f 63 20 6d 69 74 20 7b 62 6c 6f  }..proc mit {blo
0280: 62 7d 20 7b 0a 20 20 73 65 74 20 73 63 61 6e 28  b} {.  set scan(
0290: 6c 69 74 74 6c 65 45 6e 64 69 61 6e 29 20 69 2a  littleEndian) i*
02a0: 0a 20 20 73 65 74 20 73 63 61 6e 28 62 69 67 45  .  set scan(bigE
02b0: 6e 64 69 61 6e 29 20 49 2a 0a 20 20 62 69 6e 61  ndian) I*.  bina
02c0: 72 79 20 73 63 61 6e 20 24 62 6c 6f 62 20 24 73  ry scan $blob $s
02d0: 63 61 6e 28 24 3a 3a 74 63 6c 5f 70 6c 61 74 66  can($::tcl_platf
02e0: 6f 72 6d 28 62 79 74 65 4f 72 64 65 72 29 29 20  orm(byteOrder)) 
02f0: 72 0a 20 20 72 65 74 75 72 6e 20 24 72 0a 7d 0a  r.  return $r.}.
0300: 64 62 20 66 75 6e 63 20 6d 69 74 20 6d 69 74 0a  db func mit mit.
0310: 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ..#-------------
0320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0350: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 45  ------------.# E
0360: 72 72 6f 72 73 20 77 68 69 6c 65 20 72 65 67 69  rrors while regi
0370: 73 74 65 72 69 6e 67 20 74 68 65 20 6d 61 74 63  stering the matc
0380: 68 69 6e 66 6f 28 29 20 64 65 6d 6f 20 66 75 6e  hinfo() demo fun
0390: 63 74 69 6f 6e 2e 0a 23 0a 64 6f 5f 66 61 75 6c  ction..#.do_faul
03a0: 74 73 69 6d 5f 74 65 73 74 20 31 20 2d 66 61 75  tsim_test 1 -fau
03b0: 6c 74 73 20 6f 6f 6d 2a 20 2d 70 72 65 70 20 7b  lts oom* -prep {
03c0: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65  .  sqlite3 db te
03d0: 73 74 2e 64 62 0a 7d 20 2d 62 6f 64 79 20 7b 0a  st.db.} -body {.
03e0: 20 20 73 71 6c 69 74 65 33 5f 66 74 73 35 5f 72    sqlite3_fts5_r
03f0: 65 67 69 73 74 65 72 5f 6d 61 74 63 68 69 6e 66  egister_matchinf
0400: 6f 20 64 62 0a 7d 20 2d 74 65 73 74 20 7b 0a 20  o db.} -test {. 
0410: 20 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f 72   faultsim_test_r
0420: 65 73 75 6c 74 20 7b 30 20 7b 7d 7d 20 7b 31 20  esult {0 {}} {1 
0430: 53 51 4c 49 54 45 5f 45 52 52 4f 52 7d 20 7b 31  SQLITE_ERROR} {1
0440: 20 53 51 4c 49 54 45 5f 4e 4f 4d 45 4d 7d 0a 7d   SQLITE_NOMEM}.}
0450: 0a 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ...#------------
0460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20  -------------.# 
04a0: 45 72 72 6f 72 73 20 77 68 69 6c 65 20 65 78 65  Errors while exe
04b0: 63 75 74 69 6e 67 20 74 68 65 20 6d 61 74 63 68  cuting the match
04c0: 69 6e 66 6f 28 29 20 64 65 6d 6f 20 66 75 6e 63  info() demo func
04d0: 74 69 6f 6e 2e 0a 23 0a 72 65 73 65 74 5f 64 62  tion..#.reset_db
04e0: 0a 73 71 6c 69 74 65 33 5f 66 74 73 35 5f 72 65  .sqlite3_fts5_re
04f0: 67 69 73 74 65 72 5f 6d 61 74 63 68 69 6e 66 6f  gister_matchinfo
0500: 20 64 62 0a 64 62 20 66 75 6e 63 20 6d 69 74 20   db.db func mit 
0510: 6d 69 74 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74  mit.do_execsql_t
0520: 65 73 74 20 32 20 7b 0a 20 20 43 52 45 41 54 45  est 2 {.  CREATE
0530: 20 56 49 52 54 55 41 4c 20 54 41 42 4c 45 20 74   VIRTUAL TABLE t
0540: 31 20 55 53 49 4e 47 20 66 74 73 35 28 61 2c 20  1 USING fts5(a, 
0550: 62 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  b);.  INSERT INT
0560: 4f 20 74 31 20 56 41 4c 55 45 53 28 27 78 20 79  O t1 VALUES('x y
0570: 20 7a 27 2c 20 27 31 20 32 20 33 27 29 3b 0a 20   z', '1 2 3');. 
0580: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
0590: 56 41 4c 55 45 53 28 27 78 27 2c 20 27 31 20 32  VALUES('x', '1 2
05a0: 20 33 20 34 20 35 20 36 20 37 27 29 3b 0a 7d 0a   3 4 5 6 7');.}.
05b0: 0a 64 6f 5f 66 61 75 6c 74 73 69 6d 5f 74 65 73  .do_faultsim_tes
05c0: 74 20 32 2e 31 20 2d 66 61 75 6c 74 73 20 6f 6f  t 2.1 -faults oo
05d0: 6d 2a 20 2d 62 6f 64 79 20 7b 0a 20 20 65 78 65  m* -body {.  exe
05e0: 63 73 71 6c 20 7b 20 53 45 4c 45 43 54 20 6d 69  csql { SELECT mi
05f0: 74 28 6d 61 74 63 68 69 6e 66 6f 28 74 31 2c 20  t(matchinfo(t1, 
0600: 27 61 27 29 29 20 46 52 4f 4d 20 74 31 28 27 78  'a')) FROM t1('x
0610: 27 29 20 7d 0a 7d 20 2d 74 65 73 74 20 7b 0a 20  ') }.} -test {. 
0620: 20 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f 72   faultsim_test_r
0630: 65 73 75 6c 74 20 7b 30 20 7b 7b 32 20 35 7d 20  esult {0 {{2 5} 
0640: 7b 32 20 35 7d 7d 7d 20 0a 7d 0a 0a 64 6f 5f 66  {2 5}}} .}..do_f
0650: 61 75 6c 74 73 69 6d 5f 74 65 73 74 20 32 2e 32  aultsim_test 2.2
0660: 20 2d 66 61 75 6c 74 73 20 6f 6f 6d 2a 20 2d 62   -faults oom* -b
0670: 6f 64 79 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  ody {.  execsql 
0680: 7b 20 53 45 4c 45 43 54 20 6d 69 74 28 6d 61 74  { SELECT mit(mat
0690: 63 68 69 6e 66 6f 28 74 31 2c 20 27 6c 27 29 29  chinfo(t1, 'l'))
06a0: 20 46 52 4f 4d 20 74 31 28 27 78 27 29 20 7d 0a   FROM t1('x') }.
06b0: 7d 20 2d 74 65 73 74 20 7b 0a 20 20 66 61 75 6c  } -test {.  faul
06c0: 74 73 69 6d 5f 74 65 73 74 5f 72 65 73 75 6c 74  tsim_test_result
06d0: 20 7b 30 20 7b 7b 33 20 33 7d 20 7b 31 20 37 7d   {0 {{3 3} {1 7}
06e0: 7d 7d 20 0a 7d 0a 0a 64 6f 5f 65 78 65 63 73 71  }} .}..do_execsq
06f0: 6c 5f 74 65 73 74 20 32 2e 33 20 7b 0a 20 20 49  l_test 2.3 {.  I
0700: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0710: 4c 55 45 53 28 27 61 20 62 20 63 20 64 20 65 20  LUES('a b c d e 
0720: 66 27 2c 20 27 61 20 62 20 64 20 65 20 66 20 63  f', 'a b d e f c
0730: 27 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  ');.  INSERT INT
0740: 4f 20 74 31 20 56 41 4c 55 45 53 28 27 6c 20 6d  O t1 VALUES('l m
0750: 20 62 20 63 20 61 27 2c 20 27 6e 20 6f 20 61 20   b c a', 'n o a 
0760: 62 20 63 20 7a 27 29 3b 0a 7d 0a 0a 64 6f 5f 66  b c z');.}..do_f
0770: 61 75 6c 74 73 69 6d 5f 74 65 73 74 20 32 2e 34  aultsim_test 2.4
0780: 20 2d 66 61 75 6c 74 73 20 6f 6f 6d 2a 20 2d 62   -faults oom* -b
0790: 6f 64 79 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  ody {.  execsql 
07a0: 7b 20 53 45 4c 45 43 54 20 6d 69 74 28 6d 61 74  { SELECT mit(mat
07b0: 63 68 69 6e 66 6f 28 74 31 2c 20 27 73 27 29 29  chinfo(t1, 's'))
07c0: 20 46 52 4f 4d 20 74 31 28 27 61 20 62 20 63 27   FROM t1('a b c'
07d0: 29 20 7d 0a 7d 20 2d 74 65 73 74 20 7b 0a 20 20  ) }.} -test {.  
07e0: 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f 72 65  faultsim_test_re
07f0: 73 75 6c 74 20 7b 30 20 7b 7b 33 20 32 7d 20 7b  sult {0 {{3 2} {
0800: 32 20 33 7d 7d 7d 20 0a 7d 0a 0a 0a 66 69 6e 69  2 3}}} .}...fini
0810: 73 68 5f 74 65 73 74 0a 0a                       sh_test..