Move bundled copy of sqlite one level deeper to better separate it...

third_party/sqlite/test/backup2.test

-# 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
-
-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