Return to fts2.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

sqlite3

    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.1.1.1 2012/02/21 17:04:16 misho 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