ext/fts5/test/fts5secure5.test

   1 # 2023 April 14
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #*************************************************************************
  11 #
  12
  13 source [file join [file dirname [info script]] fts5_common.tcl]
  14 return_if_no_fts5
  15 set ::testprefix fts5secure5
  16 return_if_no_fts5
  17
  18 proc dump {} {
  19   execsql_pp {
  20     SELECT id, quote(block), fts5_decode_none(id, block) FROM ft1_data
  21   }
  22 }
  23
  24 do_execsql_test 1.0 {
  25   CREATE VIRTUAL TABLE ft1 USING fts5(a, detail=none);
  26   INSERT INTO ft1(ft1, rank) VALUES('secure-delete', 1);
  27 }
  28
  29 do_execsql_test 1.1 {
  30   BEGIN;
  31     INSERT INTO ft1(rowid, a) VALUES(1, 'abcd');
  32     INSERT INTO ft1(rowid, a) VALUES(2, 'abcd');
  33     INSERT INTO ft1(rowid, a) VALUES(3, 'abcd');
  34   COMMIT;
  35 }
  36 do_execsql_test 1.2 {
  37   DELETE FROM ft1 WHERE rowid=1;
  38 }
  39 do_execsql_test 1.3 {
  40   INSERT INTO ft1(ft1) VALUES('integrity-check');
  41 }
  42 do_execsql_test 1.4 {
  43   DELETE FROM ft1 WHERE rowid=3;
  44 }
  45 do_execsql_test 1.5 {
  46   INSERT INTO ft1(ft1) VALUES('integrity-check');
  47 }
  48 do_execsql_test 1.6 {
  49   DELETE FROM ft1 WHERE rowid=3;
  50 }
  51 do_execsql_test 1.7 {
  52   INSERT INTO ft1(ft1) VALUES('integrity-check');
  53 }
  54
  55 #-------------------------------------------------------------------------
  56 reset_db
  57 do_execsql_test 2.0 {
  58   CREATE VIRTUAL TABLE ft1 USING fts5(a, detail=none);
  59   INSERT INTO ft1(ft1, rank) VALUES('secure-delete', 1);
  60 }
  61
  62 do_execsql_test 2.1 {
  63   BEGIN;
  64     INSERT INTO ft1(rowid, a) VALUES(1, 'abcd one');
  65     INSERT INTO ft1(rowid, a) VALUES(2, 'abcd two');
  66     INSERT INTO ft1(rowid, a) VALUES(3, 'abcd two');
  67     INSERT INTO ft1(rowid, a) VALUES(4, 'abcd two');
  68     INSERT INTO ft1(rowid, a) VALUES(5, 'abcd three');
  69   COMMIT;
  70 }
  71
  72 do_execsql_test 2.2a {
  73   DELETE FROM ft1 WHERE rowid=3;
  74 }
  75 do_execsql_test 2.2b {
  76   INSERT INTO ft1(ft1) VALUES('integrity-check');
  77 }
  78 do_execsql_test 2.3a {
  79   DELETE FROM ft1 WHERE rowid=2;
  80 }
  81 do_execsql_test 2.3b {
  82   INSERT INTO ft1(ft1) VALUES('integrity-check');
  83 }
  84 do_execsql_test 2.4a {
  85   DELETE FROM ft1 WHERE rowid=4;
  86 }
  87 do_execsql_test 2.4b {
  88   INSERT INTO ft1(ft1) VALUES('integrity-check');
  89 }
  90
  91 #-------------------------------------------------------------------------
  92 reset_db
  93 do_execsql_test 3.0 {
  94   CREATE VIRTUAL TABLE ft1 USING fts5(a, detail=none, prefix=1);
  95   INSERT INTO ft1(ft1, rank) VALUES('secure-delete', 1);
  96   INSERT INTO ft1(ft1, rank) VALUES('pgsz', 64);
  97 }
  98 do_execsql_test 3.1 {
  99   BEGIN;
 100     INSERT INTO ft1(a) VALUES('c');
 101   COMMIT;
 102 }
 103 do_execsql_test 3.2 {
 104   DELETE FROM ft1 WHERE rowid IN (1);
 105   INSERT INTO ft1(ft1) VALUES('integrity-check');
 106 }
 107
 108 #-------------------------------------------------------------------------
 109 reset_db
 110 do_execsql_test 4.0 {
 111   CREATE VIRTUAL TABLE ft1 USING fts5(a, detail=none);
 112   INSERT INTO ft1(ft1, rank) VALUES('secure-delete', 1);
 113   INSERT INTO ft1(ft1, rank) VALUES('pgsz', 64);
 114
 115   WITH s(i) AS (
 116     SELECT 1 UNION ALL SELECT i+1 FROM s WHERE i<500
 117   )
 118   INSERT INTO ft1 SELECT 'abcdefg' FROM s;
 119 }
 120
 121 do_test 4.1 {
 122   for {set i 500} {$i > 0} {incr i -1} {
 123     execsql { DELETE FROM ft1 WHERE rowid=$i }
 124     execsql { INSERT INTO ft1(ft1) VALUES('integrity-check') }
 125   }
 126 } {}
 127
 128 finish_test
 129