usr/src/lib/libsqlite/test/quick.test

   1
   2 #pragma ident   "%Z%%M% %I%     %E% SMI"
   3
   4 # 2001 September 15
   5 #
   6 # The author disclaims copyright to this source code.  In place of
   7 # a legal notice, here is a blessing:
   8 #
   9 #    May you do good and not evil.
  10 #    May you find forgiveness for yourself and forgive others.
  11 #    May you share freely, never taking more than you give.
  12 #
  13 #***********************************************************************
  14 # This file runs all tests.
  15 #
  16 # $Id: quick.test,v 1.6 2004/02/11 02:18:07 drh Exp $
  17
  18 set testdir [file dirname $argv0]
  19 source $testdir/tester.tcl
  20 rename finish_test really_finish_test
  21 proc finish_test {} {}
  22 set ISQUICK 1
  23
  24 set EXCLUDE {
  25   all.test
  26   quick.test
  27   btree2.test
  28   malloc.test
  29   memleak.test
  30   misuse.test
  31 }
  32
  33 if {[sqlite -has-codec]} {
  34   lappend EXCLUDE \
  35     attach.test \
  36     attach2.test \
  37     auth.test \
  38     format3.test \
  39     version.test
  40 }
  41
  42 foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
  43   set tail [file tail $testfile]
  44   if {[lsearch -exact $EXCLUDE $tail]>=0} continue
  45   source $testfile
  46   catch {db close}
  47   if {$sqlite_open_file_count>0} {
  48     puts "$tail did not close all files: $sqlite_open_file_count"
  49     incr nErr
  50     lappend ::failList $tail
  51   }
  52 }
  53 source $testdir/misuse.test
  54
  55 set sqlite_open_file_count 0
  56 really_finish_test