Import SQLite 3.8.7.4.

third_party/sqlite/src/test/backup_ioerr.test

 # 2009 January 30
 #
 # 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 42 matching lines @@
 do_test backup_ioerr-1.1 {
   populate_database db
   set nPage [expr {[file size test.db] / 1024}]
   expr {$nPage>130 && $nPage<160}
 } {1}
 do_test backup_ioerr-1.2 {
   expr {[file size test.db] > $sqlite_pending_byte}
 } {1}
 do_test backup_ioerr-1.3 {
   db close
-  file delete -force test.db
+  forcedelete test.db
 } {}
 
 # Turn off IO error simulation.
 #
 proc clear_ioerr_simulation {} {
   set ::sqlite_io_error_hit 0
   set ::sqlite_io_error_hardhit 0
   set ::sqlite_io_error_pending 0
   set ::sqlite_io_error_persist 0
 }
@@ skipping 34 matching lines @@
 #
 #      * If an IO error occurs while updating the backup, the write 
 #        operation should proceed normally. The error should be reported
 #        from the next call to backup_step() (in step 5 of this test
 #        procedure).
 #
 #   5) Step the backup process to finish the backup. If an IO error is 
 #      reported, then the backup process is concluded with a call to 
 #      backup_finish().
 #
-#      Test that if an IO error occurs, or if one occured while updating
+#      Test that if an IO error occurs, or if one occurred while updating
 #      the backup database during step 4, then the conditions listed
 #      under step 3 are all true.
 #
 #   6) Finish the backup process.
 #
 #   * If the backup succeeds (backup_finish() returns SQLITE_OK), then
 #     the contents of the backup database should match that of the
 #     source database.
 #
 #   * If the backup fails (backup_finish() returns other than SQLITE_OK), 
@@ skipping 19 matching lines @@
 foreach zSetupBak [list "" {populate_database ddb 1}] {
 
   incr iTest
   set bStop 0
 for {set iError 1} {$bStop == 0} {incr iError} {
   # Disable IO error simulation.
   clear_ioerr_simulation
 
   catch { ddb close }
   catch { sdb close }
-  catch { file delete -force test.db }
-  catch { file delete -force bak.db }
+  catch { forcedelete test.db }
+  catch { forcedelete bak.db }
 
   # Open the source and destination databases.
   sqlite3 sdb test.db
   sqlite3 ddb bak.db
 
   # Step 1: Populate the source and destination databases.
   populate_database sdb
   ddb eval "PRAGMA page_size = $iDestPagesize"
   ddb eval "PRAGMA cache_size = 10"
   eval $zSetupBak
@@ skipping 37 matching lines @@
   # No IO error was encountered during step 3. Check that backup_step()
   # returned SQLITE_OK before proceding.
   do_test backup_ioerr-$iTest.$iError.6 {
     expr {$rc eq "SQLITE_OK"}
   } {1}
 
   # Step 4: Write to the source database.
   set rc [catchsql { UPDATE t1 SET b = randstr(1000,1000) WHERE a < 50 } sdb]
 
   if {[lindex $rc 0] && $::sqlite_io_error_persist==0} {
-    # The IO error occured while updating the source database. In this
+    # The IO error occurred while updating the source database. In this
     # case the backup should be able to continue.
     set rc [B step 5000]
     if { $rc != "SQLITE_IOERR_UNLOCK" } {
       do_test backup_ioerr-$iTest.$iError.7 {
         list [B step 5000] [B finish]
       } {SQLITE_DONE SQLITE_OK}
 
       clear_ioerr_simulation
       test_contents backup_ioerr-$iTest.$iError.8 ddb main sdb main
       integrity_check backup_ioerr-$iTest.$iError.9 ddb
@@ skipping 49 matching lines @@
 
   test_contents backup_ioerr-$iTest.$iError.18 ddb main sdb main
   integrity_check backup_ioerr-$iTest.$iError.19 ddb
 
   set bStop [expr $::sqlite_io_error_pending<=0]
 }}}}
 
 catch { sdb close }
 catch { ddb close }
 finish_test