1# 2010 January 12
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# Tests for the secure_delete pragma.
13#
14
15set testdir [file dirname $argv0]
16source $testdir/tester.tcl
17
18unset -nocomplain DEFAULT_SECDEL
19set DEFAULT_SECDEL 0
20ifcapable secure_delete {
21  set DEFAULT_SECDEL 1
22}
23
24
25do_test securedel-1.0 {
26  db eval {PRAGMA secure_delete;}
27} $DEFAULT_SECDEL
28
29file delete -force test2.db test2.db-journal
30do_test securedel-1.1 {
31  db eval {
32    ATTACH 'test2.db' AS db2;
33    PRAGMA main.secure_delete=ON;
34    PRAGMA db2.secure_delete;
35  }
36} [list 1 $DEFAULT_SECDEL]
37do_test securedel-1.2 {
38  db eval {
39    PRAGMA main.secure_delete=OFF;
40    PRAGMA db2.secure_delete;
41  }
42} [list 0 $DEFAULT_SECDEL]
43do_test securedel-1.3 {
44  db eval {
45    PRAGMA secure_delete=OFF;
46    PRAGMA db2.secure_delete;
47  }
48} {0 0}
49do_test securedel-1.4 {
50breakpoint
51  db eval {
52    PRAGMA secure_delete=ON;
53    PRAGMA db2.secure_delete;
54  }
55} {1 1}
56
57do_test securedel-2.1 {
58  db eval {
59    DETACH db2;
60    ATTACH 'test2.db' AS db2;
61    PRAGMA db2.secure_delete;
62  }
63} 1
64do_test securedel-2.2 {
65  db eval {
66    DETACH db2;
67    PRAGMA main.secure_delete=OFF;
68    ATTACH 'test2.db' AS db2;
69    PRAGMA db2.secure_delete;
70  }
71} {0 0}
72
73finish_test
74