Import SQLite 3.7.6.3.

third_party/sqlite/src/test/memleak.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 57 matching lines @@
   if {[lsearch -exact $EXCLUDE $tail]>=0} continue
   set LeakList {}
   for {set COUNTER 0} {$COUNTER<$COUNT} {incr COUNTER} {
     source $testfile
     if {[info exists Leak]} {
       lappend LeakList $Leak
     }
   }
   if {$LeakList!=""} {
     puts -nonewline memory-leak-test-$tail...
-    incr ::nTest
+    incr_ntest
     foreach x $LeakList {
       if {$x!=[lindex $LeakList 0]} {
          puts " failed! ($LeakList)"
-         incr ::nErr
-         lappend ::failList memory-leak-test-$tail
+         fail_test memory-leak-test-$tail
          break
        }
     }
     puts " Ok"
   }
 }
 memleak_finish_test
 
 # Run the malloc tests and the misuse test after memory leak detection.
 # Both tests leak memory.
 #
 #catch {source $testdir/misuse.test}
 #catch {source $testdir/malloc.test}
 
 memleak_finish_test