Add //third_party/sqlite to dirs_to_snapshot, remove net_sql.patch

third_party/sqlite/src/test/dbstatus.test

 # 2010 March 10
 #
 # 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.
 #
 #***********************************************************************
 #
 # Tests for the sqlite3_db_status() function
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+ifcapable !compound {
+  finish_test
+  return
+}
+
 # Memory statistics must be enabled for this test.
 db close
 sqlite3_shutdown
 sqlite3_config_memstatus 1
 sqlite3_initialize
 sqlite3 db test.db
 
 
 # Make sure sqlite3_db_config() and sqlite3_db_status are working.
 #
@@ skipping 21 matching lines @@
   lindex [sqlite3_db_status db SQLITE_DBSTATUS_CACHE_USED 0] 1
 } [expr {$BASESZ + 10*$PAGESZ}]
 
 
 proc lookaside {db} {
   expr { $::lookaside_buffer_size *
     [lindex [sqlite3_db_status $db SQLITE_DBSTATUS_LOOKASIDE_USED 0] 1]
   }
 }
 
+ifcapable stat4||stat3 {
+  set STAT3 1
+} else {
+  set STAT3 0
+}
+
+ifcapable malloc_usable_size {
+  finish_test
+  return
+}
+
 #---------------------------------------------------------------------------
 # Run the dbstatus-2 and dbstatus-3 tests with several of different
 # lookaside buffer sizes.
 #
 foreach ::lookaside_buffer_size {0 64 120} {
 
   # Do not run any of these tests if there is SQL configured to run
   # as part of the [sqlite3] command. This prevents the script from
   # configuring the size of the lookaside buffer after [sqlite3] has
   # returned.
@@ skipping 42 matching lines @@
       CREATE TRIGGER AFTER INSERT ON t1 BEGIN
         INSERT INTO t2 VALUES(new.a, new.b);
         SELECT * FROM t1, t2 WHERE a=c AND b=d GROUP BY b HAVING a>5 ORDER BY a;
       END;
     }
     5 {
       CREATE TABLE t1(a, b);
       CREATE TABLE t2(c, d);
       CREATE VIEW v1 AS SELECT * FROM t1 UNION SELECT * FROM t2;
     }
-    6 {
+    6k {
       CREATE TABLE t1(a, b);
       CREATE INDEX i1 ON t1(a);
       CREATE INDEX i2 ON t1(a,b);
       CREATE INDEX i3 ON t1(b,b);
       INSERT INTO t1 VALUES(randomblob(20), randomblob(25));
       INSERT INTO t1 SELECT randomblob(20), randomblob(25) FROM t1;
       INSERT INTO t1 SELECT randomblob(20), randomblob(25) FROM t1;
       INSERT INTO t1 SELECT randomblob(20), randomblob(25) FROM t1;
       ANALYZE;
     }
@@ skipping 16 matching lines @@
     }
     8x {
       CREATE TABLE t1(a, b, UNIQUE(a, b));
       CREATE VIRTUAL TABLE t2 USING echo(t1);
     }
   } {
     set tn "$::lookaside_buffer_size-$tn"
   
     # Step 1.
     db close
-    file delete -force test.db
+    forcedelete test.db
     sqlite3 db test.db
     sqlite3_db_config_lookaside db 0 $::lookaside_buffer_size 500
     db cache size 0
 
     catch { register_echo_module db }
     ifcapable !vtab { if {[string match *x $tn]} continue }
   
     # Step 2.
     execsql $schema
     set nAlloc1  [lindex [sqlite3_status SQLITE_STATUS_MEMORY_USED 0] 1]
@@ skipping 12 matching lines @@
     incr nAlloc3 [lookaside db]
     set nSchema3 [lindex [sqlite3_db_status db SQLITE_DBSTATUS_SCHEMA_USED 0] 1]
     
     # Step 5.
     drop_all_tables
     set nAlloc4  [lindex [sqlite3_status SQLITE_STATUS_MEMORY_USED 0] 1]
     incr nAlloc4 [lookaside db]
     set nSchema4 [lindex [sqlite3_db_status db SQLITE_DBSTATUS_SCHEMA_USED 0] 1]
     set nFree [expr {$nAlloc1-$nAlloc2}]
     
+    # Tests for which the test name ends in an "k" report slightly less
+    # memory than is actually freed when all schema items are finalized.
+    # This is because memory allocated by KeyInfo objects is no longer
+    # counted as "schema memory".
+    #
     # Tests for which the test name ends in an "x" report slightly less
     # memory than is actually freed when all schema items are finalized.
     # This is because memory allocated by virtual table implementations
     # for any reason is not counted as "schema memory".
     #
     # Additionally, in auto-vacuum mode, dropping tables and indexes causes
     # the page-cache to shrink. So the amount of memory freed is always
     # much greater than just that reported by DBSTATUS_SCHEMA_USED in this
     # case.
     #
-    if {[string match *x $tn] || $AUTOVACUUM} {
+    # Some of the memory used for sqlite_stat4 is unaccounted for by
+    # dbstatus.
+    #
+    # Finally, on osx the estimate of memory used by the schema may be
+    # slightly low. 
+    #
+    if {[string match *k $tn]
+         || [string match *x $tn] || $AUTOVACUUM
+         || ([string match *y $tn] && $STAT3)
+         || ($::tcl_platform(os) == "Darwin")
+    } {
       do_test dbstatus-2.$tn.ax { expr {($nSchema1-$nSchema2)<=$nFree} } 1
     } else {
       do_test dbstatus-2.$tn.a { expr {$nSchema1-$nSchema2} } $nFree
     }
   
     do_test dbstatus-2.$tn.b { list $nAlloc1 $nSchema1 } "$nAlloc3 $nSchema3"
     do_test dbstatus-2.$tn.c { list $nAlloc2 $nSchema2 } "$nAlloc4 $nSchema4"
   }
   
   #-------------------------------------------------------------------------
   # Tests for SQLITE_DBSTATUS_STMT_USED.
   #
   # Each test in the following block works as follows. Each test uses a
   # different database schema.
   #
   #   1. Open a connection to an empty database. Initialized the database
   #      schema.
   #
   #   2. Prepare a bunch of SQL statements. Measure the total heap and 
   #      lookaside memory allocated by SQLite, and the memory allocated 
   #      for the prepared statements according to sqlite3_db_status().
   #
-  #   3. Finalize all prepared statements Measure the total memory 
+  #   3. Finalize all prepared statements. Measure the total memory 
   #      and the prepared statement memory again.
   #
   #   4. Repeat step 2.
   #
   #   5. Repeat step 3.
   #
   # Then test that:
   #
   #   a) The difference in schema memory quantities in steps 2 and 3 is the
   #      same as the difference in total memory in steps 2 and 3.
@@ skipping 45 matching lines @@
     } {
       SELECT count(*) FROM t2;
       SELECT * FROM t2 WHERE b>5;
       SELECT * FROM t2 WHERE b='abcdefg';
     }
   } {
     set tn "$::lookaside_buffer_size-$tn"
 
     # Step 1.
     db close
-    file delete -force test.db
+    forcedelete test.db
     sqlite3 db test.db
     sqlite3_db_config_lookaside db 0 $::lookaside_buffer_size 500
     db cache size 1000
 
     catch { register_echo_module db }
     ifcapable !vtab { if {[string match *x $tn]} continue }
   
     execsql $schema
     db cache flush
   
@@ skipping 39 matching lines @@
     } else {
       do_test dbstatus-3.$tn.b { expr $nStmt1==$nFree } {1}
     }
 
     do_test dbstatus-3.$tn.c { list $nAlloc1 $nStmt1 } [list $nAlloc3 $nStmt3]
     do_test dbstatus-3.$tn.d { list $nAlloc2 $nStmt2 } [list $nAlloc4 $nStmt4]
   }
 }
 
 finish_test