/ Hex Artifact Content
Login

Artifact 74dd8ac108304cea0b4a0df6df63a1567e558758:


0000: 23 20 32 30 31 30 20 4f 63 74 6f 62 65 72 20 32  # 2010 October 2
0010: 36 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72  6.#.# The author
0020: 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72   disclaims copyr
0030: 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75  ight to this sou
0040: 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c  rce code.  In pl
0050: 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c  ace of.# a legal
0060: 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73   notice, here is
0070: 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23   a blessing:.#.#
0080: 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67      May you do g
0090: 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c  ood and not evil
00a0: 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66  ..#    May you f
00b0: 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20  ind forgiveness 
00c0: 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64  for yourself and
00d0: 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e   forgive others.
00e0: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68  .#    May you sh
00f0: 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65  are freely, neve
0100: 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68  r taking more th
0110: 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23  an you give..#.#
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 0a 23 0a 23 0a 0a 73 65 74  *******.#.#..set
0170: 20 74 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64   testdir [file d
0180: 69 72 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73  irname $argv0].s
0190: 6f 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 74  ource $testdir/t
01a0: 65 73 74 65 72 2e 74 63 6c 0a 0a 73 65 74 20 74  ester.tcl..set t
01b0: 65 73 74 70 72 65 66 69 78 20 69 6e 63 72 62 6c  estprefix incrbl
01c0: 6f 62 66 61 75 6c 74 0a 0a 64 6f 5f 65 78 65 63  obfault..do_exec
01d0: 73 71 6c 5f 74 65 73 74 20 31 2e 30 20 7b 0a 20  sql_test 1.0 {. 
01e0: 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 62 6c   CREATE TABLE bl
01f0: 6f 62 28 78 20 49 4e 54 45 47 45 52 20 50 52 49  ob(x INTEGER PRI
0200: 4d 41 52 59 20 4b 45 59 2c 20 76 20 42 4c 4f 42  MARY KEY, v BLOB
0210: 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  );.  INSERT INTO
0220: 20 62 6c 6f 62 20 56 41 4c 55 45 53 28 31 2c 20   blob VALUES(1, 
0230: 27 68 65 6c 6c 6f 20 77 6f 72 6c 64 27 29 3b 0a  'hello world');.
0240: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 62 6c    INSERT INTO bl
0250: 6f 62 20 56 41 4c 55 45 53 28 32 2c 20 27 77 6f  ob VALUES(2, 'wo
0260: 72 6c 64 20 68 65 6c 6c 6f 27 29 3b 0a 20 20 49  rld hello');.  I
0270: 4e 53 45 52 54 20 49 4e 54 4f 20 62 6c 6f 62 20  NSERT INTO blob 
0280: 53 45 4c 45 43 54 20 4e 55 4c 4c 2c 20 76 20 46  SELECT NULL, v F
0290: 52 4f 4d 20 62 6c 6f 62 3b 0a 20 20 49 4e 53 45  ROM blob;.  INSE
02a0: 52 54 20 49 4e 54 4f 20 62 6c 6f 62 20 53 45 4c  RT INTO blob SEL
02b0: 45 43 54 20 4e 55 4c 4c 2c 20 76 20 46 52 4f 4d  ECT NULL, v FROM
02c0: 20 62 6c 6f 62 3b 0a 20 20 49 4e 53 45 52 54 20   blob;.  INSERT 
02d0: 49 4e 54 4f 20 62 6c 6f 62 20 53 45 4c 45 43 54  INTO blob SELECT
02e0: 20 4e 55 4c 4c 2c 20 76 20 46 52 4f 4d 20 62 6c   NULL, v FROM bl
02f0: 6f 62 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54  ob;.  INSERT INT
0300: 4f 20 62 6c 6f 62 20 53 45 4c 45 43 54 20 4e 55  O blob SELECT NU
0310: 4c 4c 2c 20 76 20 46 52 4f 4d 20 62 6c 6f 62 3b  LL, v FROM blob;
0320: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 62  .  INSERT INTO b
0330: 6c 6f 62 20 53 45 4c 45 43 54 20 4e 55 4c 4c 2c  lob SELECT NULL,
0340: 20 76 20 46 52 4f 4d 20 62 6c 6f 62 3b 0a 20 20   v FROM blob;.  
0350: 49 4e 53 45 52 54 20 49 4e 54 4f 20 62 6c 6f 62  INSERT INTO blob
0360: 20 53 45 4c 45 43 54 20 4e 55 4c 4c 2c 20 76 20   SELECT NULL, v 
0370: 46 52 4f 4d 20 62 6c 6f 62 3b 0a 20 20 49 4e 53  FROM blob;.  INS
0380: 45 52 54 20 49 4e 54 4f 20 62 6c 6f 62 20 53 45  ERT INTO blob SE
0390: 4c 45 43 54 20 4e 55 4c 4c 2c 20 76 20 46 52 4f  LECT NULL, v FRO
03a0: 4d 20 62 6c 6f 62 3b 0a 20 20 49 4e 53 45 52 54  M blob;.  INSERT
03b0: 20 49 4e 54 4f 20 62 6c 6f 62 20 53 45 4c 45 43   INTO blob SELEC
03c0: 54 20 4e 55 4c 4c 2c 20 76 20 46 52 4f 4d 20 62  T NULL, v FROM b
03d0: 6c 6f 62 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e  lob;.  INSERT IN
03e0: 54 4f 20 62 6c 6f 62 20 53 45 4c 45 43 54 20 4e  TO blob SELECT N
03f0: 55 4c 4c 2c 20 76 20 46 52 4f 4d 20 62 6c 6f 62  ULL, v FROM blob
0400: 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  ;.  INSERT INTO 
0410: 62 6c 6f 62 20 53 45 4c 45 43 54 20 4e 55 4c 4c  blob SELECT NULL
0420: 2c 20 76 20 46 52 4f 4d 20 62 6c 6f 62 3b 0a 7d  , v FROM blob;.}
0430: 0a 0a 64 6f 5f 66 61 75 6c 74 73 69 6d 5f 74 65  ..do_faultsim_te
0440: 73 74 20 31 20 2d 70 72 65 70 20 7b 0a 20 20 73  st 1 -prep {.  s
0450: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64  qlite3 db test.d
0460: 62 0a 20 20 73 65 74 20 3a 3a 62 6c 6f 62 20 5b  b.  set ::blob [
0470: 64 62 20 69 6e 63 72 62 6c 6f 62 20 62 6c 6f 62  db incrblob blob
0480: 20 76 20 31 5d 0a 7d 20 2d 62 6f 64 79 20 7b 0a   v 1].} -body {.
0490: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71    if {[catch {sq
04a0: 6c 69 74 65 33 5f 62 6c 6f 62 5f 72 65 6f 70 65  lite3_blob_reope
04b0: 6e 20 24 3a 3a 62 6c 6f 62 20 31 30 30 30 7d 5d  n $::blob 1000}]
04c0: 7d 20 7b 0a 20 20 20 20 65 72 72 6f 72 20 5b 73  } {.    error [s
04d0: 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 20 64 62  qlite3_errmsg db
04e0: 5d 0a 20 20 7d 0a 7d 20 2d 74 65 73 74 20 7b 0a  ].  }.} -test {.
04f0: 20 20 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f    faultsim_test_
0500: 72 65 73 75 6c 74 20 7b 30 20 7b 7d 7d 0a 20 20  result {0 {}}.  
0510: 63 6c 6f 73 65 20 24 3a 3a 62 6c 6f 62 0a 7d 0a  close $::blob.}.
0520: 0a 64 6f 5f 66 61 75 6c 74 73 69 6d 5f 74 65 73  .do_faultsim_tes
0530: 74 20 32 20 2d 70 72 65 70 20 7b 0a 20 20 73 71  t 2 -prep {.  sq
0540: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
0550: 0a 20 20 73 65 74 20 3a 3a 62 6c 6f 62 20 5b 64  .  set ::blob [d
0560: 62 20 69 6e 63 72 62 6c 6f 62 20 62 6c 6f 62 20  b incrblob blob 
0570: 76 20 31 5d 0a 7d 20 2d 62 6f 64 79 20 7b 0a 20  v 1].} -body {. 
0580: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 73 71 6c   if {[catch {sql
0590: 69 74 65 33 5f 62 6c 6f 62 5f 72 65 6f 70 65 6e  ite3_blob_reopen
05a0: 20 24 3a 3a 62 6c 6f 62 20 2d 31 7d 5d 7d 20 7b   $::blob -1}]} {
05b0: 0a 20 20 20 20 65 72 72 6f 72 20 5b 73 71 6c 69  .    error [sqli
05c0: 74 65 33 5f 65 72 72 6d 73 67 20 64 62 5d 0a 20  te3_errmsg db]. 
05d0: 20 7d 0a 7d 20 2d 74 65 73 74 20 7b 0a 20 20 66   }.} -test {.  f
05e0: 61 75 6c 74 73 69 6d 5f 74 65 73 74 5f 72 65 73  aultsim_test_res
05f0: 75 6c 74 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20  ult {1 {no such 
0600: 72 6f 77 69 64 3a 20 2d 31 7d 7d 20 7b 31 20 7b  rowid: -1}} {1 {
0610: 64 69 73 6b 20 49 2f 4f 20 65 72 72 6f 72 7d 7d  disk I/O error}}
0620: 0a 20 20 63 6c 6f 73 65 20 24 3a 3a 62 6c 6f 62  .  close $::blob
0630: 0a 7d 0a 0a 64 6f 5f 66 61 75 6c 74 73 69 6d 5f  .}..do_faultsim_
0640: 74 65 73 74 20 33 20 2d 70 72 65 70 20 7b 0a 20  test 3 -prep {. 
0650: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
0660: 2e 64 62 0a 7d 20 2d 62 6f 64 79 20 7b 0a 20 20  .db.} -body {.  
0670: 73 65 74 20 3a 3a 62 6c 6f 62 20 5b 64 62 20 69  set ::blob [db i
0680: 6e 63 72 62 6c 6f 62 20 62 6c 6f 62 20 76 20 31  ncrblob blob v 1
0690: 5d 0a 20 20 67 65 74 73 20 24 3a 3a 62 6c 6f 62  ].  gets $::blob
06a0: 0a 7d 20 2d 74 65 73 74 20 7b 0a 20 20 66 61 75  .} -test {.  fau
06b0: 6c 74 73 69 6d 5f 74 65 73 74 5f 72 65 73 75 6c  ltsim_test_resul
06c0: 74 20 7b 30 20 7b 68 65 6c 6c 6f 20 77 6f 72 6c  t {0 {hello worl
06d0: 64 7d 7d 0a 20 20 63 61 74 63 68 20 7b 20 63 6c  d}}.  catch { cl
06e0: 6f 73 65 20 24 3a 3a 62 6c 6f 62 20 7d 0a 7d 0a  ose $::blob }.}.
06f0: 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a           .finish_test.