Annotation of embedaddon/sqlite3/test/backup2.test, revision 1.1
1.1 ! misho 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: forcedelete 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: forcedelete 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: forcedelete 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: forcedelete 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: forcedelete 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: set msg {cannot open source database: unable to open database file}
! 146: } elseif {$tcl_platform(os)=="OpenBSD"} {
! 147: set msg {restore failed: file is encrypted or is not a database}
! 148: } else {
! 149: set msg {cannot open source database: disk I/O error}
! 150: }
! 151: do_test backup2-10 {
! 152: forcedelete bu3.db
! 153: file mkdir bu3.db
! 154: set rc [catch {db restore temp bu3.db} res]
! 155: lappend rc $res
! 156: } [list 1 $msg]
! 157:
! 158: # Try to restore from something that is not a database file.
! 159: #
! 160: do_test backup2-11 {
! 161: set rc [catch {db restore temp bu2.db} res]
! 162: lappend rc $res
! 163: } {1 {restore failed: file is encrypted or is not a database}}
! 164:
! 165: # Try to restore a database that does not exist
! 166: #
! 167: do_test backup2-12 {
! 168: set rc [catch {db restore aux1 bu2.db} res]
! 169: lappend rc $res
! 170: } {1 {restore failed: unknown database aux1}}
! 171: do_test backup2-13 {
! 172: forcedelete bu4.db
! 173: set rc [catch {db restore bu4.db} res]
! 174: lappend rc $res
! 175: } {1 {cannot open source database: unable to open database file}}
! 176:
! 177: # Invalid syntax on the restore method
! 178: #
! 179: do_test backup2-14 {
! 180: set rc [catch {db restore} res]
! 181: lappend rc $res
! 182: } {1 {wrong # args: should be "db restore ?DATABASE? FILENAME"}}
! 183:
! 184: forcedelete bu1.db bu2.db bu3.db bu4.db
! 185:
! 186: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to backup2.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test