summaryrefslogtreecommitdiffstats
path: root/test/backup2.test
diff options
context:
space:
mode:
Diffstat (limited to 'test/backup2.test')
-rw-r--r--test/backup2.test187
1 files changed, 187 insertions, 0 deletions
diff --git a/test/backup2.test b/test/backup2.test
new file mode 100644
index 0000000..1822e2d
--- /dev/null
+++ b/test/backup2.test
@@ -0,0 +1,187 @@
+# 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 {
+ forcedelete 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
+ forcedelete 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
+ forcedelete 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
+ forcedelete 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 not a database}}
+
+# Try to backup database that does not exist
+#
+do_test backup2-8 {
+ forcedelete 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"} {
+ set msg {cannot open source database: unable to open database file}
+} elseif {[string match *BSD $tcl_platform(os)]} {
+ set msg {}
+} else {
+ set msg {cannot open source database: disk I/O error}
+}
+do_test backup2-10 {
+ forcedelete bu3.db
+ file mkdir bu3.db
+ set rc [catch {db restore temp bu3.db} res]
+ if {[string match *BSD $tcl_platform(os)]} { set res "" }
+ list $rc $res
+} [list 1 $msg]
+
+# 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 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 {
+ forcedelete 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"}}
+
+forcedelete bu1.db bu2.db bu3.db bu4.db
+
+finish_test