/ Hex Artifact Content
Login

Artifact 2f70b2449186a1921bd01ec9da407fbfa98c3a7a5521854c300c194b2ff09384:


0000: 23 20 32 30 31 30 20 4a 61 6e 75 61 72 79 20 31  # 2010 January 1
0010: 32 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72  2.#.# 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 2a 2a 0a 23 0a 23 20 54 65  *********.#.# Te
0170: 73 74 73 20 66 6f 72 20 74 68 65 20 73 65 63 75  sts for the secu
0180: 72 65 5f 64 65 6c 65 74 65 20 70 72 61 67 6d 61  re_delete pragma
0190: 2e 0a 23 0a 0a 73 65 74 20 74 65 73 74 64 69 72  ..#..set testdir
01a0: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24   [file dirname $
01b0: 61 72 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74  argv0].source $t
01c0: 65 73 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63  estdir/tester.tc
01d0: 6c 0a 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d 70  l..unset -nocomp
01e0: 6c 61 69 6e 20 44 45 46 41 55 4c 54 5f 53 45 43  lain DEFAULT_SEC
01f0: 44 45 4c 0a 73 65 74 20 44 45 46 41 55 4c 54 5f  DEL.set DEFAULT_
0200: 53 45 43 44 45 4c 20 30 0a 69 66 63 61 70 61 62  SECDEL 0.ifcapab
0210: 6c 65 20 66 61 73 74 5f 73 65 63 75 72 65 5f 64  le fast_secure_d
0220: 65 6c 65 74 65 20 7b 0a 20 20 73 65 74 20 44 45  elete {.  set DE
0230: 46 41 55 4c 54 5f 53 45 43 44 45 4c 20 32 0a 7d  FAULT_SECDEL 2.}
0240: 20 65 6c 73 65 20 7b 0a 20 20 69 66 63 61 70 61   else {.  ifcapa
0250: 62 6c 65 20 73 65 63 75 72 65 5f 64 65 6c 65 74  ble secure_delet
0260: 65 20 7b 0a 20 20 20 20 73 65 74 20 44 45 46 41  e {.    set DEFA
0270: 55 4c 54 5f 53 45 43 44 45 4c 20 31 0a 20 20 7d  ULT_SECDEL 1.  }
0280: 0a 7d 0a 0a 0a 64 6f 5f 74 65 73 74 20 73 65 63  .}...do_test sec
0290: 75 72 65 64 65 6c 2d 31 2e 30 20 7b 0a 20 20 64  uredel-1.0 {.  d
02a0: 62 20 65 76 61 6c 20 7b 50 52 41 47 4d 41 20 73  b eval {PRAGMA s
02b0: 65 63 75 72 65 5f 64 65 6c 65 74 65 3b 7d 0a 7d  ecure_delete;}.}
02c0: 20 24 44 45 46 41 55 4c 54 5f 53 45 43 44 45 4c   $DEFAULT_SECDEL
02d0: 0a 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65  ..forcedelete te
02e0: 73 74 32 2e 64 62 20 74 65 73 74 32 2e 64 62 2d  st2.db test2.db-
02f0: 6a 6f 75 72 6e 61 6c 0a 64 6f 5f 74 65 73 74 20  journal.do_test 
0300: 73 65 63 75 72 65 64 65 6c 2d 31 2e 31 20 7b 0a  securedel-1.1 {.
0310: 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20    db eval {.    
0320: 41 54 54 41 43 48 20 27 74 65 73 74 32 2e 64 62  ATTACH 'test2.db
0330: 27 20 41 53 20 64 62 32 3b 0a 20 20 20 20 50 52  ' AS db2;.    PR
0340: 41 47 4d 41 20 6d 61 69 6e 2e 73 65 63 75 72 65  AGMA main.secure
0350: 5f 64 65 6c 65 74 65 3d 4f 4e 3b 0a 20 20 20 20  _delete=ON;.    
0360: 50 52 41 47 4d 41 20 64 62 32 2e 73 65 63 75 72  PRAGMA db2.secur
0370: 65 5f 64 65 6c 65 74 65 3b 0a 20 20 7d 0a 7d 20  e_delete;.  }.} 
0380: 5b 6c 69 73 74 20 31 20 24 44 45 46 41 55 4c 54  [list 1 $DEFAULT
0390: 5f 53 45 43 44 45 4c 5d 0a 64 6f 5f 74 65 73 74  _SECDEL].do_test
03a0: 20 73 65 63 75 72 65 64 65 6c 2d 31 2e 32 20 7b   securedel-1.2 {
03b0: 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20  .  db eval {.   
03c0: 20 50 52 41 47 4d 41 20 6d 61 69 6e 2e 73 65 63   PRAGMA main.sec
03d0: 75 72 65 5f 64 65 6c 65 74 65 3d 4f 46 46 3b 0a  ure_delete=OFF;.
03e0: 20 20 20 20 50 52 41 47 4d 41 20 64 62 32 2e 73      PRAGMA db2.s
03f0: 65 63 75 72 65 5f 64 65 6c 65 74 65 3b 0a 20 20  ecure_delete;.  
0400: 7d 0a 7d 20 5b 6c 69 73 74 20 30 20 24 44 45 46  }.} [list 0 $DEF
0410: 41 55 4c 54 5f 53 45 43 44 45 4c 5d 0a 64 6f 5f  AULT_SECDEL].do_
0420: 74 65 73 74 20 73 65 63 75 72 65 64 65 6c 2d 31  test securedel-1
0430: 2e 33 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b  .3 {.  db eval {
0440: 0a 20 20 20 20 50 52 41 47 4d 41 20 73 65 63 75  .    PRAGMA secu
0450: 72 65 5f 64 65 6c 65 74 65 3d 4f 46 46 3b 0a 20  re_delete=OFF;. 
0460: 20 20 20 50 52 41 47 4d 41 20 64 62 32 2e 73 65     PRAGMA db2.se
0470: 63 75 72 65 5f 64 65 6c 65 74 65 3b 0a 20 20 7d  cure_delete;.  }
0480: 0a 7d 20 7b 30 20 30 7d 0a 64 6f 5f 74 65 73 74  .} {0 0}.do_test
0490: 20 73 65 63 75 72 65 64 65 6c 2d 31 2e 34 20 7b   securedel-1.4 {
04a0: 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20  .  db eval {.   
04b0: 20 50 52 41 47 4d 41 20 73 65 63 75 72 65 5f 64   PRAGMA secure_d
04c0: 65 6c 65 74 65 3d 4f 4e 3b 0a 20 20 20 20 50 52  elete=ON;.    PR
04d0: 41 47 4d 41 20 64 62 32 2e 73 65 63 75 72 65 5f  AGMA db2.secure_
04e0: 64 65 6c 65 74 65 3b 0a 20 20 7d 0a 7d 20 7b 31  delete;.  }.} {1
04f0: 20 31 7d 0a 64 6f 5f 74 65 73 74 20 73 65 63 75   1}.do_test secu
0500: 72 65 64 65 6c 2d 31 2e 35 20 7b 0a 20 20 64 62  redel-1.5 {.  db
0510: 20 65 76 61 6c 20 7b 0a 20 20 20 20 50 52 41 47   eval {.    PRAG
0520: 4d 41 20 73 65 63 75 72 65 5f 64 65 6c 65 74 65  MA secure_delete
0530: 3d 46 41 53 54 3b 0a 20 20 20 20 50 52 41 47 4d  =FAST;.    PRAGM
0540: 41 20 64 62 32 2e 73 65 63 75 72 65 5f 64 65 6c  A db2.secure_del
0550: 65 74 65 3b 0a 20 20 7d 0a 7d 20 7b 32 20 32 7d  ete;.  }.} {2 2}
0560: 0a 64 6f 5f 74 65 73 74 20 73 65 63 75 72 65 64  .do_test secured
0570: 65 6c 2d 31 2e 36 20 7b 0a 20 20 64 62 20 65 76  el-1.6 {.  db ev
0580: 61 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20  al {.    PRAGMA 
0590: 73 65 63 75 72 65 5f 64 65 6c 65 74 65 3d 4f 4e  secure_delete=ON
05a0: 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 64 62 32  ;.    PRAGMA db2
05b0: 2e 73 65 63 75 72 65 5f 64 65 6c 65 74 65 3b 0a  .secure_delete;.
05c0: 20 20 7d 0a 7d 20 7b 31 20 31 7d 0a 64 6f 5f 74    }.} {1 1}.do_t
05d0: 65 73 74 20 73 65 63 75 72 65 64 65 6c 2d 31 2e  est securedel-1.
05e0: 37 20 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 0a  7 {.  db eval {.
05f0: 20 20 20 20 50 52 41 47 4d 41 20 6d 61 69 6e 2e      PRAGMA main.
0600: 73 65 63 75 72 65 5f 64 65 6c 65 74 65 3d 46 41  secure_delete=FA
0610: 53 54 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 64  ST;.    PRAGMA d
0620: 62 32 2e 73 65 63 75 72 65 5f 64 65 6c 65 74 65  b2.secure_delete
0630: 3b 0a 20 20 7d 0a 7d 20 7b 32 20 31 7d 0a 64 6f  ;.  }.} {2 1}.do
0640: 5f 74 65 73 74 20 73 65 63 75 72 65 64 65 6c 2d  _test securedel-
0650: 31 2e 38 20 7b 0a 20 20 64 62 20 65 76 61 6c 20  1.8 {.  db eval 
0660: 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 6d 61 69  {.    PRAGMA mai
0670: 6e 2e 73 65 63 75 72 65 5f 64 65 6c 65 74 65 3d  n.secure_delete=
0680: 4f 4e 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 64  ON;.    PRAGMA d
0690: 62 32 2e 73 65 63 75 72 65 5f 64 65 6c 65 74 65  b2.secure_delete
06a0: 3b 0a 20 20 7d 0a 7d 20 7b 31 20 31 7d 0a 0a 64  ;.  }.} {1 1}..d
06b0: 6f 5f 74 65 73 74 20 73 65 63 75 72 65 64 65 6c  o_test securedel
06c0: 2d 32 2e 31 20 7b 0a 20 20 64 62 20 65 76 61 6c  -2.1 {.  db eval
06d0: 20 7b 0a 20 20 20 20 44 45 54 41 43 48 20 64 62   {.    DETACH db
06e0: 32 3b 0a 20 20 20 20 41 54 54 41 43 48 20 27 74  2;.    ATTACH 't
06f0: 65 73 74 32 2e 64 62 27 20 41 53 20 64 62 32 3b  est2.db' AS db2;
0700: 0a 20 20 20 20 50 52 41 47 4d 41 20 64 62 32 2e  .    PRAGMA db2.
0710: 73 65 63 75 72 65 5f 64 65 6c 65 74 65 3b 0a 20  secure_delete;. 
0720: 20 7d 0a 7d 20 31 0a 64 6f 5f 74 65 73 74 20 73   }.} 1.do_test s
0730: 65 63 75 72 65 64 65 6c 2d 32 2e 32 20 7b 0a 20  ecuredel-2.2 {. 
0740: 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 44   db eval {.    D
0750: 45 54 41 43 48 20 64 62 32 3b 0a 20 20 20 20 50  ETACH db2;.    P
0760: 52 41 47 4d 41 20 6d 61 69 6e 2e 73 65 63 75 72  RAGMA main.secur
0770: 65 5f 64 65 6c 65 74 65 3d 4f 46 46 3b 0a 20 20  e_delete=OFF;.  
0780: 20 20 41 54 54 41 43 48 20 27 74 65 73 74 32 2e    ATTACH 'test2.
0790: 64 62 27 20 41 53 20 64 62 32 3b 0a 20 20 20 20  db' AS db2;.    
07a0: 50 52 41 47 4d 41 20 64 62 32 2e 73 65 63 75 72  PRAGMA db2.secur
07b0: 65 5f 64 65 6c 65 74 65 3b 0a 20 20 7d 0a 7d 20  e_delete;.  }.} 
07c0: 7b 30 20 30 7d 0a 0a 66 69 6e 69 73 68 5f 74 65  {0 0}..finish_te
07d0: 73 74 0a                                         st.