Import SQLite 3.8.7.4.

third_party/sqlite/src/test/autovacuum.test

 # 2001 September 15
 #
 # 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 96 matching lines @@
         }
       } {ok}
     }
     # Ensure the data remaining in the table is what was expected.
     foreach d $delete {
       set idx [lsearch $::tbl_data [make_str $d $ENTRY_LEN]]
       set ::tbl_data [lreplace $::tbl_data $idx $idx]
     }
     do_test autovacuum-1.$tn.($delete).3 {
       execsql {
-        select a from av1
+        select a from av1 order by rowid
       }
     } $::tbl_data
   }
 
   # All rows have been deleted. Ensure the file has shrunk to 4 pages.
   do_test autovacuum-1.$tn.3 {
     file_pages
   } {4}
 }
 
@@ skipping 332 matching lines @@
 } {1}
 do_test autovacuum-3.3 {
   execsql {
     PRAGMA auto_vacuum = 0;
     PRAGMA auto_vacuum;
   }
 } {1}
 
 do_test autovacuum-3.4 {
   db close
-  file delete -force test.db
+  forcedelete test.db
   sqlite3 db test.db
   execsql {
     PRAGMA auto_vacuum;
   }
 } $AUTOVACUUM
 do_test autovacuum-3.5 {
   execsql {
     CREATE TABLE av1(x);
     PRAGMA auto_vacuum;
   }
@@ skipping 14 matching lines @@
 
 #-----------------------------------------------------------------------
 # Test that if a statement transaction around a CREATE INDEX statement is
 # rolled back no corruption occurs.
 #
 do_test autovacuum-4.0 {
   # The last round of tests may have left the db in non-autovacuum mode.
   # Reset everything just in case.
   #
   db close
-  file delete -force test.db test.db-journal
+  forcedelete test.db test.db-journal
   sqlite3 db test.db
   execsql {
     PRAGMA auto_vacuum = 1;
     PRAGMA auto_vacuum;
   }
 } {1}
 do_test autovacuum-4.1 {
   execsql {
     CREATE TABLE av1(a, b);
     BEGIN;
   }
   for {set i 0} {$i<100} {incr i} {
     execsql "INSERT INTO av1 VALUES($i, '[string repeat X 200]');"
   }
   execsql "INSERT INTO av1 VALUES(99, '[string repeat X 200]');"
   execsql {
     SELECT sum(a) FROM av1;
   }
 } {5049}
 do_test autovacuum-4.2 {
   catchsql {
     CREATE UNIQUE INDEX av1_i ON av1(a);
   }
-} {1 {indexed columns are not unique}}
+} {1 {UNIQUE constraint failed: av1.a}}
 do_test autovacuum-4.3 {
   execsql {
     SELECT sum(a) FROM av1;
   }
 } {5049}
 do_test autovacuum-4.4 {
   execsql {
     COMMIT;
   }
 } {}
@@ skipping 52 matching lines @@
 
 }
 
 #---------------------------------------------------------------------
 # Test cases autovacuum-7.X test the case where a page must be moved
 # and the destination location collides with at least one other
 # entry in the page hash-table (internal to the pager.c module. 
 #
 do_test autovacuum-7.1 {
   db close
-  file delete -force test.db
-  file delete -force test.db-journal
+  forcedelete test.db
+  forcedelete test.db-journal
   sqlite3 db test.db
 
   execsql {
     PRAGMA auto_vacuum=1;
     CREATE TABLE t1(a, b, PRIMARY KEY(a, b));
     INSERT INTO t1 VALUES(randstr(400,400),randstr(400,400));
     INSERT INTO t1 SELECT randstr(400,400), randstr(400,400) FROM t1; -- 2
     INSERT INTO t1 SELECT randstr(400,400), randstr(400,400) FROM t1; -- 4
     INSERT INTO t1 SELECT randstr(400,400), randstr(400,400) FROM t1; -- 8
     INSERT INTO t1 SELECT randstr(400,400), randstr(400,400) FROM t1; -- 16
@@ skipping 75 matching lines @@
 do_test autovacuum-9.4 {
   execsql { INSERT INTO t1 SELECT NULL, randstr(50,50) FROM t1 }
 } {}
 do_test autovacuum-9.5 {
   execsql { DELETE FROM t1 WHERE rowid > (SELECT max(a)/2 FROM t1) }
   file size test.db
 } $::sqlite_pending_byte
  
 
 finish_test