Import SQLite 3.8.7.4.

third_party/sqlite/src/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.
 #
 #***********************************************************************
@@ skipping 43 matching lines @@
 
 # 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
+  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
-  file delete -force test.db test.db-journal
+  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
-  file delete -force test.db test.db-journal
+  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
-  file delete -force bu1.db bu2.db
+  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--------}
@@ skipping 10 matching lines @@
   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
+  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"} {
-  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}}
+  set msg {cannot open source database: unable to open database file}
+} elseif {$tcl_platform(os)=="OpenBSD"} {
+  set msg {restore failed: file is encrypted or is not a database}
+} else {
+  set msg {cannot open source database: disk I/O error}
 }
-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}}
-}
+do_test backup2-10 {
+  forcedelete bu3.db
+  file mkdir bu3.db
+  set rc [catch {db restore temp bu3.db} res]
+  lappend 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 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
+  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"}}
  
-file delete -force bu1.db bu2.db bu3.db bu4.db
+forcedelete bu1.db bu2.db bu3.db bu4.db
 
 finish_test