95 lines
2.3 KiB
Plaintext
95 lines
2.3 KiB
Plaintext
|
# 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
|