1 # 2009 February 4 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 # This file implements regression tests for SQLite library. The 12 # focus of this file is testing the "backup" and "restore" methods 13 # of the TCL interface - methods which are based on the 14 # sqlite3_backup_XXX API. 15 # 16 # $Id: backup2.test,v 1.4 2009/04/07 14:14:23 danielk1977 Exp $ 17 18 set testdir [file dirname $argv0] 19 source $testdir/tester.tcl 20 21 do_not_use_codec 22 23 ifcapable !trigger||!view { finish_test ; return } 24 25 # Fill a database with test data. 26 # 27 do_test backup2-1 { 28 db eval { 29 CREATE TABLE t1(x); 30 INSERT INTO t1 VALUES(randstr(8000,8000)); 31 INSERT INTO t1 VALUES(randstr(8000,8000)); 32 INSERT INTO t1 VALUES(randstr(8000,8000)); 33 INSERT INTO t1 VALUES(randstr(8000,8000)); 34 INSERT INTO t1 VALUES(randstr(8000,8000)); 35 CREATE VIEW v1 AS SELECT substr(x,10,10) FROM t1; 36 CREATE TABLE t2(a,b); 37 INSERT INTO t2 VALUES(1,2); 38 INSERT INTO t2 VALUES(2,4); 39 INSERT INTO t2 SELECT a+2, (a+2)*2 FROM t2; 40 INSERT INTO t2 SELECT a+4, (a+4)*2 FROM t2; 41 INSERT INTO t2 SELECT a+8, (a+8)*2 FROM t2; 42 INSERT INTO t2 SELECT a+16, (a+16)*2 FROM t2; 43 INSERT INTO t2 SELECT a+32, (a+32)*2 FROM t2; 44 INSERT INTO t2 SELECT a+64, (a+64)*2 FROM t2; 45 INSERT INTO t2 SELECT a+128, (a+128)*2 FROM t2; 46 CREATE INDEX t2i1 ON t2(a,b); 47 CREATE TRIGGER r1 AFTER INSERT ON t2 BEGIN 48 SELECT 'hello'; 49 END; 50 ANALYZE; 51 PRAGMA integrity_check; 52 } 53 } {ok} 54 55 # Remember a check-sum on the database file. 56 # 57 unset -nocomplain cksum 58 set cksum [dbcksum db main] 59 60 # Make a backup of the test data. Verify that the backup copy 61 # is identical to the original. 62 # 63 do_test backup2-2 { 64 file delete -force bu1.db 65 db backup bu1.db 66 sqlite3 db2 bu1.db 67 dbcksum db2 main 68 } $cksum 69 70 # Delete the original. Restore from backup. Verify the content is 71 # unchanged. 72 # 73 do_test backup2-3.1 { 74 db close 75 file delete -force test.db test.db-journal 76 sqlite3 db test.db 77 db2 eval {BEGIN EXCLUSIVE} 78 set rc [catch {db restore bu1.db} res] 79 lappend rc $res 80 db2 eval {ROLLBACK} 81 set rc 82 } {1 {restore failed: source database busy}} 83 do_test backup2-3.2 { 84 db close 85 file delete -force test.db test.db-journal 86 sqlite3 db test.db 87 db restore bu1.db 88 dbcksum db main 89 } $cksum 90 91 # Use alternative databases - other than "main". 92 # 93 do_test backup2-4 { 94 db restore temp bu1.db 95 dbcksum db temp 96 } $cksum 97 do_test backup2-5 { 98 db2 close 99 file delete -force bu1.db bu2.db 100 db backup temp bu2.db 101 sqlite3 db2 bu2.db 102 dbcksum db2 main 103 } $cksum 104 105 # Try to backup to a readonly file. 106 # 107 do_test backup2-6 { 108 db2 close 109 catch {file attributes bu2.db -permissions r--------} 110 catch {file attributes bu2.db -readonly 1} 111 set rc [catch {db backup temp bu2.db} res] 112 lappend rc $res 113 } {1 {backup failed: attempt to write a readonly database}} 114 115 # Try to backup to something that is not a database file. 116 # 117 do_test backup2-7 { 118 catch {file attributes bu2.db -readonly 0} 119 catch {file attributes bu2.db -permissions rw-------} 120 set out [open bu2.db w] 121 puts $out "This is not a valid database file" 122 close $out 123 set rc [catch {db backup temp bu2.db} res] 124 lappend rc $res 125 } {1 {backup failed: file is encrypted or is not a database}} 126 127 # Try to backup database that does not exist 128 # 129 do_test backup2-8 { 130 file delete -force bu1.db 131 set rc [catch {db backup aux1 bu1.db} res] 132 lappend rc $res 133 } {1 {backup failed: unknown database aux1}} 134 135 # Invalid syntax on the backup method 136 # 137 do_test backup2-9 { 138 set rc [catch {db backup} res] 139 lappend rc $res 140 } {1 {wrong # args: should be "db backup ?DATABASE? FILENAME"}} 141 142 # Try to restore from an unreadable file. 143 # 144 if {$tcl_platform(platform)=="windows"} { 145 do_test backup2-10 { 146 file delete -force bu3.db 147 file mkdir bu3.db 148 set rc [catch {db restore temp bu3.db} res] 149 lappend rc $res 150 } {1 {cannot open source database: unable to open database file}} 151 } 152 if {$tcl_platform(platform)!="windows"} { 153 do_test backup2-10 { 154 file delete -force bu3.db 155 file mkdir bu3.db 156 set rc [catch {db restore temp bu3.db} res] 157 lappend rc $res 158 } {1 {cannot open source database: disk I/O error}} 159 } 160 161 # Try to restore from something that is not a database file. 162 # 163 do_test backup2-11 { 164 set rc [catch {db restore temp bu2.db} res] 165 lappend rc $res 166 } {1 {restore failed: file is encrypted or is not a database}} 167 168 # Try to restore a database that does not exist 169 # 170 do_test backup2-12 { 171 set rc [catch {db restore aux1 bu2.db} res] 172 lappend rc $res 173 } {1 {restore failed: unknown database aux1}} 174 do_test backup2-13 { 175 file delete -force bu4.db 176 set rc [catch {db restore bu4.db} res] 177 lappend rc $res 178 } {1 {cannot open source database: unable to open database file}} 179 180 # Invalid syntax on the restore method 181 # 182 do_test backup2-14 { 183 set rc [catch {db restore} res] 184 lappend rc $res 185 } {1 {wrong # args: should be "db restore ?DATABASE? FILENAME"}} 186 187 file delete -force bu1.db bu2.db bu3.db bu4.db 188 189 finish_test 190
