gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/fts2.test (about)

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