| # 2009 February 4 |
| # |
| # 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. |
| # |
| #*********************************************************************** |
| # This file implements regression tests for SQLite library. The |
| # focus of this file is testing the "backup" and "restore" methods |
| # of the TCL interface - methods which are based on the |
| # sqlite3_backup_XXX API. |
| # |
| # $Id: backup2.test,v 1.4 2009/04/07 14:14:23 danielk1977 Exp $ |
| |
| set testdir [file dirname $argv0] |
| source $testdir/tester.tcl |
| |
| do_not_use_codec |
| |
| ifcapable !trigger||!view { finish_test ; return } |
| |
| # Fill a database with test data. |
| # |
| do_test backup2-1 { |
| db eval { |
| CREATE TABLE t1(x); |
| INSERT INTO t1 VALUES(randstr(8000,8000)); |
| INSERT INTO t1 VALUES(randstr(8000,8000)); |
| INSERT INTO t1 VALUES(randstr(8000,8000)); |
| INSERT INTO t1 VALUES(randstr(8000,8000)); |
| INSERT INTO t1 VALUES(randstr(8000,8000)); |
| CREATE VIEW v1 AS SELECT substr(x,10,10) FROM t1; |
| CREATE TABLE t2(a,b); |
| INSERT INTO t2 VALUES(1,2); |
| INSERT INTO t2 VALUES(2,4); |
| INSERT INTO t2 SELECT a+2, (a+2)*2 FROM t2; |
| INSERT INTO t2 SELECT a+4, (a+4)*2 FROM t2; |
| INSERT INTO t2 SELECT a+8, (a+8)*2 FROM t2; |
| INSERT INTO t2 SELECT a+16, (a+16)*2 FROM t2; |
| INSERT INTO t2 SELECT a+32, (a+32)*2 FROM t2; |
| INSERT INTO t2 SELECT a+64, (a+64)*2 FROM t2; |
| INSERT INTO t2 SELECT a+128, (a+128)*2 FROM t2; |
| CREATE INDEX t2i1 ON t2(a,b); |
| CREATE TRIGGER r1 AFTER INSERT ON t2 BEGIN |
| SELECT 'hello'; |
| END; |
| ANALYZE; |
| PRAGMA integrity_check; |
| } |
| } {ok} |
| |
| # Remember a check-sum on the database file. |
| # |
| unset -nocomplain cksum |
| set cksum [dbcksum db main] |
| |
| # Make a backup of the test data. Verify that the backup copy |
| # is identical to the original. |
| # |
| do_test backup2-2 { |
| file delete -force bu1.db |
| db backup bu1.db |
| sqlite3 db2 bu1.db |
| dbcksum db2 main |
| } $cksum |
| |
| # Delete the original. Restore from backup. Verify the content is |
| # unchanged. |
| # |
| do_test backup2-3.1 { |
| db close |
| file delete -force test.db test.db-journal |
| sqlite3 db test.db |
| db2 eval {BEGIN EXCLUSIVE} |
| set rc [catch {db restore bu1.db} res] |
| lappend rc $res |
| db2 eval {ROLLBACK} |
| set rc |
| } {1 {restore failed: source database busy}} |
| do_test backup2-3.2 { |
| db close |
| file delete -force test.db test.db-journal |
| sqlite3 db test.db |
| db restore bu1.db |
| dbcksum db main |
| } $cksum |
| |
| # Use alternative databases - other than "main". |
| # |
| do_test backup2-4 { |
| db restore temp bu1.db |
| dbcksum db temp |
| } $cksum |
| do_test backup2-5 { |
| db2 close |
| file delete -force bu1.db bu2.db |
| db backup temp bu2.db |
| sqlite3 db2 bu2.db |
| dbcksum db2 main |
| } $cksum |
| |
| # Try to backup to a readonly file. |
| # |
| do_test backup2-6 { |
| db2 close |
| catch {file attributes bu2.db -permissions r--------} |
| catch {file attributes bu2.db -readonly 1} |
| set rc [catch {db backup temp bu2.db} res] |
| lappend rc $res |
| } {1 {backup failed: attempt to write a readonly database}} |
| |
| # Try to backup to something that is not a database file. |
| # |
| do_test backup2-7 { |
| catch {file attributes bu2.db -readonly 0} |
| catch {file attributes bu2.db -permissions rw-------} |
| set out [open bu2.db w] |
| puts $out "This is not a valid database file" |
| close $out |
| set rc [catch {db backup temp bu2.db} res] |
| lappend rc $res |
| } {1 {backup failed: file is encrypted or is not a database}} |
| |
| # Try to backup database that does not exist |
| # |
| do_test backup2-8 { |
| file delete -force bu1.db |
| set rc [catch {db backup aux1 bu1.db} res] |
| lappend rc $res |
| } {1 {backup failed: unknown database aux1}} |
| |
| # Invalid syntax on the backup method |
| # |
| do_test backup2-9 { |
| set rc [catch {db backup} res] |
| lappend rc $res |
| } {1 {wrong # args: should be "db backup ?DATABASE? FILENAME"}} |
| |
| # Try to restore from an unreadable file. |
| # |
| if {$tcl_platform(platform)=="windows"} { |
| do_test backup2-10 { |
| file delete -force bu3.db |
| file mkdir bu3.db |
| set rc [catch {db restore temp bu3.db} res] |
| lappend rc $res |
| } {1 {cannot open source database: unable to open database file}} |
| } |
| if {$tcl_platform(platform)!="windows"} { |
| do_test backup2-10 { |
| file delete -force bu3.db |
| file mkdir bu3.db |
| set rc [catch {db restore temp bu3.db} res] |
| lappend rc $res |
| } {1 {cannot open source database: disk I/O error}} |
| } |
| |
| # Try to restore from something that is not a database file. |
| # |
| do_test backup2-11 { |
| set rc [catch {db restore temp bu2.db} res] |
| lappend rc $res |
| } {1 {restore failed: file is encrypted or is not a database}} |
| |
| # Try to restore a database that does not exist |
| # |
| do_test backup2-12 { |
| set rc [catch {db restore aux1 bu2.db} res] |
| lappend rc $res |
| } {1 {restore failed: unknown database aux1}} |
| do_test backup2-13 { |
| file delete -force bu4.db |
| set rc [catch {db restore bu4.db} res] |
| lappend rc $res |
| } {1 {cannot open source database: unable to open database file}} |
| |
| # Invalid syntax on the restore method |
| # |
| do_test backup2-14 { |
| set rc [catch {db restore} res] |
| lappend rc $res |
| } {1 {wrong # args: should be "db restore ?DATABASE? FILENAME"}} |
| |
| file delete -force bu1.db bu2.db bu3.db bu4.db |
| |
| finish_test |