Fix an auto-vacuum bug that occurs when a btree cell is promoted to the parent page during a delete. (CVS 2043)

FossilOrigin-Name: b7d953e1195897de4869ec241a65e8a3d1320efb

test/autovacuum.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this file is testing the SELECT statement.
 #
-# $Id: autovacuum.test,v 1.2 2004/11/02 14:40:32 danielk1977 Exp $
+# $Id: autovacuum.test,v 1.3 2004/11/03 03:01:17 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -28,7 +28,7 @@ proc file_pages {} {
 do_test autovacuum-1.1 {
   execsql {
     CREATE TABLE av1(a);
-    -- CREATE INDEX av1_idx ON av1(a);
+    CREATE INDEX av1_idx ON av1(a);
   }
 } {}
 
@@ -39,12 +39,10 @@ lappend delete_orders {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20}
 lappend delete_orders {20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1} 
 lappend delete_orders {8 18 2 4 14 11 13 3 10 7 9 5 12 17 19 15 20 6 16 1}
 lappend delete_orders {10 3 11 17 19 20 7 4 13 6 1 14 16 12 9 18 8 15 5 2}
-
 lappend delete_orders {{1 2 3 4 5 6 7 8 9 10} {11 12 13 14 15 16 17 18 19 20}}
 lappend delete_orders \
         {{19 8 17 15} {16 11 9 14} {18 5 3 1} {13 20 7 2} {6 12 4 10}}
 
-
 set tn 0
 foreach delete_order $delete_orders {
   incr tn
@@ -56,8 +54,6 @@ foreach delete_order $delete_orders {
     lappend ::tbl_data [make_str $i $ENTRY_LEN]
   }
 
-# puts "File has [file_pages] pages"
-
   do_test autovacuum-1.$tn.1 {
     execsql {
       pragma integrity_check
@@ -65,13 +61,11 @@ foreach delete_order $delete_orders {
   } {ok}
 
   foreach delete $delete_order {
-# if {$delete==6} { set btree_trace 1 ; breakpoint }
     do_test autovacuum-1.$tn.($delete).1 {
       execsql "
         DELETE FROM av1 WHERE oid IN ([join $delete ,])
       "
     } {}
-set btree_trace 0
 
     do_test autovacuum-1.$tn.($delete).2 {
       execsql {
@@ -88,12 +82,11 @@ set btree_trace 0
         select a from av1
       }
     } $::tbl_data
-# if {$::nErr>0} finish_test
   }
 
   do_test autovacuum-1.$tn.3 {
     file_pages
-  } {3}
+  } {4}
 }
 
 finish_test