github.com/jdgcs/sqlite3@v1.12.1-0.20210908114423-bc5f96e4dd51/testdata/tcl/mallocAll.test (about)

     1  #
     2  #    May you do good and not evil.
     3  #    May you find forgiveness for yourself and forgive others.
     4  #    May you share freely, never taking more than you give.
     5  #
     6  #***********************************************************************
     7  # This file runs all out-of-memory tests.
     8  #
     9  # $Id: mallocAll.test,v 1.1 2007/11/26 13:36:00 drh Exp $
    10  
    11  proc lshift {lvar} {
    12    upvar $lvar l
    13    set ret [lindex $l 0]
    14    set l [lrange $l 1 end]
    15    return $ret
    16  }
    17  while {[set arg [lshift argv]] != ""} {
    18    switch -- $arg {
    19      -sharedpagercache {
    20        sqlite3_enable_shared_cache 1
    21      }
    22      default {
    23        set argv [linsert $argv 0 $arg]
    24        break
    25      }
    26    }
    27  }
    28  
    29  set testdir [file dirname $argv0]
    30  source $testdir/tester.tcl
    31  rename finish_test really_finish_test
    32  proc finish_test {} {}
    33  set G(isquick) 1
    34  
    35  set EXCLUDE {
    36    mallocAll.test
    37  }
    38  
    39  if {[sqlite3 -has-codec]} {
    40    # lappend EXCLUDE \
    41    #  conflict.test
    42  }
    43  
    44  
    45  # Files to include in the test.  If this list is empty then everything
    46  # that is not in the EXCLUDE list is run.
    47  #
    48  set INCLUDE {
    49  }
    50  
    51  foreach testfile [lsort -dictionary [glob $testdir/*malloc*.test]] {
    52    set tail [file tail $testfile]
    53    if {[lsearch -exact $EXCLUDE $tail]>=0} continue
    54    if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
    55    source $testfile
    56    catch {db close}
    57    if {$sqlite_open_file_count>0} {
    58      puts "$tail did not close all files: $sqlite_open_file_count"
    59      fail_test $tail
    60      set sqlite_open_file_count 0
    61    }
    62  }
    63  source $testdir/misuse.test
    64  
    65  set sqlite_open_file_count 0
    66  really_finish_test