/ Hex Artifact Content
Login

Artifact 1c8bd6d42615b94caf08f129f5817fa26975523f0f51bceda1dca90e8114c7c4:


0000: 23 20 32 30 31 39 20 41 70 72 69 6c 20 31 31 0a  # 2019 April 11.
0010: 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20 64  #.# The author d
0020: 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67  isclaims copyrig
0030: 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63  ht to this sourc
0040: 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63  e code.  In plac
0050: 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e  e of.# a legal n
0060: 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73 20 61  otice, here is a
0070: 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20   blessing:.#.#  
0080: 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f    May you do goo
0090: 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a  d and not evil..
00a0: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e  #    May you fin
00b0: 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f  d forgiveness fo
00c0: 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66  r yourself and f
00d0: 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23  orgive others..#
00e0: 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72      May you shar
00f0: 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20  e freely, never 
0100: 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e  taking more than
0110: 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a   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 0a 23 0a 0a 73 6f 75 72 63 65 20  *****.#..source 
0170: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 66 69 6c 65  [file join [file
0180: 20 64 69 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73   dirname [info s
0190: 63 72 69 70 74 5d 5d 20 72 62 75 5f 63 6f 6d 6d  cript]] rbu_comm
01a0: 6f 6e 2e 74 63 6c 5d 0a 73 65 74 20 3a 3a 74 65  on.tcl].set ::te
01b0: 73 74 70 72 65 66 69 78 20 72 62 75 70 61 72 74  stprefix rbupart
01c0: 69 61 6c 0a 0a 64 62 20 63 6c 6f 73 65 0a 73 71  ial..db close.sq
01d0: 6c 69 74 65 33 5f 73 68 75 74 64 6f 77 6e 0a 73  lite3_shutdown.s
01e0: 71 6c 69 74 65 33 5f 63 6f 6e 66 69 67 5f 75 72  qlite3_config_ur
01f0: 69 20 31 0a 0a 66 6f 72 65 61 63 68 20 7b 74 6e  i 1..foreach {tn
0200: 20 77 69 74 68 6f 75 74 5f 72 6f 77 69 64 20 61   without_rowid a
0210: 20 62 20 63 20 64 7d 20 7b 0a 20 20 31 20 22 22   b c d} {.  1 ""
0220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 20                a 
0230: 62 20 63 20 64 0a 20 20 32 20 22 57 49 54 48 4f  b c d.  2 "WITHO
0240: 55 54 20 52 4f 57 49 44 22 20 61 61 61 20 62 62  UT ROWID" aaa bb
0250: 62 20 63 63 63 20 64 64 64 0a 20 20 33 20 22 57  b ccc ddd.  3 "W
0260: 49 54 48 4f 55 54 20 52 4f 57 49 44 22 20 22 5c  ITHOUT ROWID" "\
0270: 22 68 65 6c 6c 6f 5c 22 22 20 7b 22 6f 6e 65 27  "hello\"" {"one'
0280: 74 77 6f 22 7d 20 20 7b 5b 63 5d 7d 20 64 64 64  two"}  {[c]} ddd
0290: 0a 20 20 34 20 22 57 49 54 48 4f 55 54 20 52 4f  .  4 "WITHOUT RO
02a0: 57 49 44 22 20 7b 60 61 20 62 60 7d 20 7b 22 6f  WID" {`a b`} {"o
02b0: 6e 65 27 74 77 6f 22 7d 20 20 7b 5b 63 20 63 20  ne'two"}  {[c c 
02c0: 63 5d 7d 20 64 64 64 0a 20 20 35 20 22 22 20 61  c]} ddd.  5 "" a
02d0: 20 62 20 63 20 7b 22 64 22 22 64 22 7d 0a 20 20   b c {"d""d"}.  
02e0: 36 20 22 22 20 7b 27 6f 6e 65 27 27 74 77 6f 27  6 "" {'one''two'
02f0: 7d 20 62 20 7b 22 63 22 22 63 22 7d 20 7b 22 64  } b {"c""c"} {"d
0300: 22 22 64 22 7d 0a 7d 20 7b 0a 20 20 65 76 61 6c  ""d"}.} {.  eval
0310: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69   [string map [li
0320: 73 74 20 5c 0a 20 20 20 20 25 57 49 54 48 4f 55  st \.    %WITHOU
0330: 54 5f 52 4f 57 49 44 25 20 24 77 69 74 68 6f 75  T_ROWID% $withou
0340: 74 5f 72 6f 77 69 64 20 25 41 25 20 24 61 20 25  t_rowid %A% $a %
0350: 42 25 20 24 62 20 25 43 25 20 24 63 20 25 44 25  B% $b %C% $c %D%
0360: 20 24 64 0a 20 20 5d 20 7b 0a 20 20 72 65 73 65   $d.  ] {.  rese
0370: 74 5f 64 62 0a 20 20 64 6f 5f 65 78 65 63 73 71  t_db.  do_execsq
0380: 6c 5f 74 65 73 74 20 24 74 6e 2e 31 2e 30 20 7b  l_test $tn.1.0 {
0390: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
03a0: 45 20 74 31 28 25 41 25 20 50 52 49 4d 41 52 59  E t1(%A% PRIMARY
03b0: 20 4b 45 59 2c 20 25 42 25 2c 20 25 43 25 2c 20   KEY, %B%, %C%, 
03c0: 25 44 25 29 20 25 57 49 54 48 4f 55 54 5f 52 4f  %D%) %WITHOUT_RO
03d0: 57 49 44 25 20 3b 0a 20 20 20 20 43 52 45 41 54  WID% ;.    CREAT
03e0: 45 20 49 4e 44 45 58 20 69 31 62 20 20 4f 4e 20  E INDEX i1b  ON 
03f0: 74 31 28 25 42 25 29 3b 0a 20 20 20 20 43 52 45  t1(%B%);.    CRE
0400: 41 54 45 20 49 4e 44 45 58 20 69 31 62 32 20 4f  ATE INDEX i1b2 O
0410: 4e 20 74 31 28 25 42 25 29 20 57 48 45 52 45 20  N t1(%B%) WHERE 
0420: 25 43 25 3c 35 3b 0a 20 20 20 20 43 52 45 41 54  %C%<5;.    CREAT
0430: 45 20 49 4e 44 45 58 20 69 31 62 33 20 4f 4e 20  E INDEX i1b3 ON 
0440: 74 31 28 25 42 25 29 20 57 48 45 52 45 20 25 43  t1(%B%) WHERE %C
0450: 25 3e 3d 35 3b 0a 0a 20 20 20 20 43 52 45 41 54  %>=5;..    CREAT
0460: 45 20 49 4e 44 45 58 20 69 31 63 20 20 4f 4e 20  E INDEX i1c  ON 
0470: 74 31 28 25 43 25 29 3b 0a 20 20 20 20 43 52 45  t1(%C%);.    CRE
0480: 41 54 45 20 49 4e 44 45 58 20 69 31 63 32 20 4f  ATE INDEX i1c2 O
0490: 4e 20 74 31 28 25 43 25 29 20 57 48 45 52 45 20  N t1(%C%) WHERE 
04a0: 25 43 25 20 49 53 20 4e 55 4c 4c 3b 0a 20 20 20  %C% IS NULL;.   
04b0: 20 43 52 45 41 54 45 20 49 4e 44 45 58 20 69 31   CREATE INDEX i1
04c0: 63 33 20 4f 4e 20 74 31 28 25 43 25 29 20 57 48  c3 ON t1(%C%) WH
04d0: 45 52 45 20 25 43 25 20 49 53 20 4e 4f 54 20 4e  ERE %C% IS NOT N
04e0: 55 4c 4c 3b 0a 0a 20 20 20 20 43 52 45 41 54 45  ULL;..    CREATE
04f0: 20 49 4e 44 45 58 20 69 31 63 34 20 4f 4e 20 74   INDEX i1c4 ON t
0500: 31 28 25 43 25 29 20 57 48 45 52 45 20 25 44 25  1(%C%) WHERE %D%
0510: 20 3c 20 27 64 27 3b 0a 20 20 7d 0a 0a 20 20 64   < 'd';.  }..  d
0520: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 24  o_execsql_test $
0530: 74 6e 2e 31 2e 31 20 7b 0a 20 20 20 20 49 4e 53  tn.1.1 {.    INS
0540: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
0550: 45 53 28 30 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c  ES(0, NULL, NULL
0560: 2c 20 27 61 27 29 3b 0a 20 20 20 20 49 4e 53 45  , 'a');.    INSE
0570: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
0580: 53 28 31 2c 20 32 2c 20 33 2c 20 27 62 27 29 3b  S(1, 2, 3, 'b');
0590: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
05a0: 20 74 31 20 56 41 4c 55 45 53 28 34 2c 20 35 2c   t1 VALUES(4, 5,
05b0: 20 36 2c 20 27 63 27 29 3b 0a 20 20 20 20 49 4e   6, 'c');.    IN
05c0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
05d0: 55 45 53 28 37 2c 20 38 2c 20 39 2c 20 27 64 27  UES(7, 8, 9, 'd'
05e0: 29 3b 0a 20 20 7d 0a 0a 20 20 66 6f 72 63 65 64  );.  }..  forced
05f0: 65 6c 65 74 65 20 72 62 75 2e 64 62 0a 20 20 64  elete rbu.db.  d
0600: 6f 5f 74 65 73 74 20 24 74 6e 2e 31 2e 32 20 7b  o_test $tn.1.2 {
0610: 0a 20 20 20 20 73 71 6c 69 74 65 33 20 72 62 75  .    sqlite3 rbu
0620: 20 72 62 75 2e 64 62 0a 20 20 20 20 72 62 75 20   rbu.db.    rbu 
0630: 65 76 61 6c 20 7b 0a 20 20 20 20 20 20 43 52 45  eval {.      CRE
0640: 41 54 45 20 54 41 42 4c 45 20 64 61 74 61 5f 74  ATE TABLE data_t
0650: 31 28 25 41 25 2c 20 25 42 25 2c 20 25 43 25 2c  1(%A%, %B%, %C%,
0660: 20 25 44 25 2c 20 72 62 75 5f 63 6f 6e 74 72 6f   %D%, rbu_contro
0670: 6c 29 3b 0a 0a 20 20 20 20 20 20 49 4e 53 45 52  l);..      INSER
0680: 54 20 49 4e 54 4f 20 64 61 74 61 5f 74 31 20 56  T INTO data_t1 V
0690: 41 4c 55 45 53 28 31 30 2c 20 31 31 2c 20 31 32  ALUES(10, 11, 12
06a0: 2c 20 27 65 27 2c 20 30 29 3b 0a 20 20 20 20 20  , 'e', 0);.     
06b0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 64 61 74   INSERT INTO dat
06c0: 61 5f 74 31 20 56 41 4c 55 45 53 28 31 33 2c 20  a_t1 VALUES(13, 
06d0: 31 34 2c 20 4e 55 4c 4c 2c 20 27 66 27 2c 20 30  14, NULL, 'f', 0
06e0: 29 3b 0a 0a 20 20 20 20 20 20 49 4e 53 45 52 54  );..      INSERT
06f0: 20 49 4e 54 4f 20 64 61 74 61 5f 74 31 20 56 41   INTO data_t1 VA
0700: 4c 55 45 53 28 30 2c 20 4e 55 4c 4c 2c 20 4e 55  LUES(0, NULL, NU
0710: 4c 4c 2c 20 4e 55 4c 4c 2c 20 31 29 3b 0a 20 20  LL, NULL, 1);.  
0720: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
0730: 64 61 74 61 5f 74 31 20 56 41 4c 55 45 53 28 34  data_t1 VALUES(4
0740: 2c 20 4e 55 4c 4c 2c 20 4e 55 4c 4c 2c 20 4e 55  , NULL, NULL, NU
0750: 4c 4c 2c 20 31 29 3b 0a 0a 20 20 20 20 20 20 49  LL, 1);..      I
0760: 4e 53 45 52 54 20 49 4e 54 4f 20 64 61 74 61 5f  NSERT INTO data_
0770: 74 31 20 56 41 4c 55 45 53 28 37 2c 20 4e 55 4c  t1 VALUES(7, NUL
0780: 4c 2c 20 34 2c 20 4e 55 4c 4c 2c 20 27 2e 2e 78  L, 4, NULL, '..x
0790: 2e 27 29 3b 0a 20 20 20 20 20 20 49 4e 53 45 52  .');.      INSER
07a0: 54 20 49 4e 54 4f 20 64 61 74 61 5f 74 31 20 56  T INTO data_t1 V
07b0: 41 4c 55 45 53 28 31 2c 20 31 30 2c 20 4e 55 4c  ALUES(1, 10, NUL
07c0: 4c 2c 20 4e 55 4c 4c 2c 20 27 2e 78 78 2e 27 29  L, NULL, '.xx.')
07d0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 72 62 75 20  ;.    }.    rbu 
07e0: 63 6c 6f 73 65 0a 20 20 7d 20 7b 7d 0a 0a 20 20  close.  } {}..  
07f0: 64 6f 5f 74 65 73 74 20 24 74 6e 2e 31 2e 33 20  do_test $tn.1.3 
0800: 7b 0a 20 20 20 20 72 75 6e 5f 72 62 75 20 74 65  {.    run_rbu te
0810: 73 74 2e 64 62 20 72 62 75 2e 64 62 0a 20 20 20  st.db rbu.db.   
0820: 20 65 78 65 63 73 71 6c 20 7b 20 50 52 41 47 4d   execsql { PRAGM
0830: 41 20 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63  A integrity_chec
0840: 6b 20 7d 0a 20 20 7d 20 7b 6f 6b 7d 0a 0a 20 20  k }.  } {ok}..  
0850: 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20  do_execsql_test 
0860: 24 74 6e 2e 31 2e 34 20 7b 0a 20 20 20 20 53 45  $tn.1.4 {.    SE
0870: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 4f  LECT * FROM t1 O
0880: 52 44 45 52 20 42 59 20 25 41 25 3b 0a 20 20 7d  RDER BY %A%;.  }
0890: 20 7b 0a 20 20 20 20 31 20 31 30 20 7b 7d 20 62   {.    1 10 {} b
08a0: 20 20 20 37 20 38 20 34 20 64 20 20 20 31 30 20     7 8 4 d   10 
08b0: 31 31 20 31 32 20 65 20 20 20 31 33 20 31 34 20  11 12 e   13 14 
08c0: 7b 7d 20 66 0a 20 20 7d 0a 0a 20 20 73 65 74 20  {} f.  }..  set 
08d0: 73 74 65 70 20 30 0a 20 20 64 6f 5f 72 62 75 5f  step 0.  do_rbu_
08e0: 76 61 63 75 75 6d 5f 74 65 73 74 20 24 74 6e 2e  vacuum_test $tn.
08f0: 31 2e 35 20 30 0a 0a 20 20 64 6f 5f 74 65 73 74  1.5 0..  do_test
0900: 20 24 74 6e 2e 31 2e 36 20 7b 0a 20 20 20 20 65   $tn.1.6 {.    e
0910: 78 65 63 73 71 6c 20 7b 20 50 52 41 47 4d 41 20  xecsql { PRAGMA 
0920: 69 6e 74 65 67 72 69 74 79 5f 63 68 65 63 6b 20  integrity_check 
0930: 7d 0a 20 20 7d 20 7b 6f 6b 7d 0a 20 20 7d 5d 0a  }.  } {ok}.  }].
0940: 7d 0a 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a     }..finish_test.