Index: third_party/sqlite/sqlite-src-3080704/test/securedel2.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/securedel2.test b/third_party/sqlite/sqlite-src-3080704/test/securedel2.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..9badc560d4e0cbd42498553fe5ce26f499189f93 |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3080704/test/securedel2.test |
@@ -0,0 +1,94 @@ |
+# 2012 August 7 |
+# |
+# The author disclaims copyright to this source code. In place of |
+# a legal notice, here is a blessing: |
+# |
+# May you do good and not evil. |
+# May you find forgiveness for yourself and forgive others. |
+# May you share freely, never taking more than you give. |
+# |
+#************************************************************************* |
+# |
+# Tests for the secure_delete pragma. |
+# |
+ |
+set testdir [file dirname $argv0] |
+source $testdir/tester.tcl |
+set ::testprefix securedel2 |
+ |
+# Generate 1000 pseudo-random 64-bit blobs. |
+# |
+for {set i 1} {$i <= 1000} {incr i} { |
+ set aBlob($i) [string range [db one {SELECT quote(randomblob(8))}] 2 end-1] |
+} |
+ |
+proc detect_blob_prepare {zFile} { |
+ set nByte [file size $zFile] |
+ set ::detect_blob_data [hexio_read $zFile 0 $nByte] |
+} |
+ |
+proc detect_blob {zFile iBlob} { |
+ if {$zFile != ""} { detect_blob_prepare $zFile } |
+ string match "*$::aBlob($iBlob)*" $::detect_blob_data |
+} |
+ |
+do_test 1.1 { |
+ execsql { PRAGMA secure_delete = 1 } |
+ execsql { PRAGMA auto_vacuum = 0 } |
+ execsql { CREATE TABLE t1(x, y) } |
+ for {set i 1} {$i <= 1000} {incr i} { |
+ set x "X'[string repeat $aBlob($i) 1]'" |
+ set y "X'[string repeat $aBlob($i) 500]'" |
+ execsql "INSERT INTO t1 VALUES($x, $y)" |
+ } |
+} {} |
+ |
+do_test 1.2 { detect_blob test.db 1 } {1} |
+ |
+forcecopy test.db test.db.bak |
+do_execsql_test 1.3.1 { PRAGMA secure_delete = 0 } {0} |
+do_execsql_test 1.3.2 { DELETE FROM t1 WHERE rowid = 1 } |
+do_test 1.3.3 { detect_blob test.db 1 } {1} |
+ |
+db close |
+forcecopy test.db.bak test.db |
+sqlite3 db test.db |
+do_execsql_test 1.4.1 { PRAGMA secure_delete = 1 } {1} |
+do_execsql_test 1.4.2 { DELETE FROM t1 WHERE rowid = 1 } |
+do_test 1.4.3 { detect_blob test.db 1 } {0} |
+ |
+do_execsql_test 1.5.1 { DELETE FROM t1 WHERE rowid>850 } {} |
+do_test 1.5.2 { |
+ set n 0 |
+ detect_blob_prepare test.db |
+ for {set i 851} {$i <= 1000} {incr i 5} { |
+ incr n [detect_blob {} $i] |
+ } |
+ set n |
+} {0} |
+ |
+db close |
+sqlite3 db test.db |
+do_test 1.6.1 { |
+ execsql { |
+ PRAGMA cache_size = 200; |
+ PRAGMA secure_delete = 1; |
+ CREATE TABLE t2(x); |
+ SELECT * FROM t1; |
+ } |
+ for {set i 100} {$i < 5000} {incr i} { |
+ execsql { INSERT INTO t2 VALUES(randomblob($i)) } |
+ } |
+ execsql { DELETE FROM t1 } |
+} {} |
+ |
+do_test 1.6.2 { |
+ set n 0 |
+ detect_blob_prepare test.db |
+ for {set i 2} {$i <= 850} {incr i 5} { |
+ incr n [detect_blob {} $i] |
+ } |
+ set n |
+} {0} |
+ |
+finish_test |