sqlite3/test/utf16.test

   1 # 2001 September 15
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 # This file runs all tests.
  12 #
  13 # $Id: utf16.test,v 1.4 2005/03/28 00:07:16 danielk1977 Exp $
  14
  15 set testdir [file dirname $argv0]
  16 source $testdir/tester.tcl
  17 rename finish_test really_finish_test2
  18 proc finish_test {} {}
  19 set ISQUICK 1
  20
  21 if { [llength $argv]>0 } {
  22   set FILES $argv
  23   set argv [list]
  24 } else {
  25   set F {
  26     alter.test alter2.test alter3.test
  27     auth.test bind.test blob.test capi2.test capi3.test collate1.test
  28     collate2.test collate3.test collate4.test collate5.test collate6.test
  29     conflict.test date.test delete.test expr.test fkey1.test func.test
  30     hook.test index.test insert2.test insert.test interrupt.test in.test
  31     intpkey.test ioerr.test join2.test join.test lastinsert.test
  32     laststmtchanges.test limit.test lock2.test lock.test main.test
  33     memdb.test minmax.test misc1.test misc2.test misc3.test notnull.test
  34     null.test progress.test quote.test rowid.test select1.test select2.test
  35     select3.test select4.test select5.test select6.test sort.test
  36     subselect.test tableapi.test table.test temptable.test
  37     trace.test trigger1.test trigger2.test trigger3.test
  38     trigger4.test types2.test types.test unique.test update.test
  39     vacuum.test view.test where.test
  40   }
  41   foreach f $F {lappend FILES $testdir/$f}
  42 }
  43
  44 rename sqlite3 real_sqlite3
  45 proc sqlite3 {args} {
  46   set r [eval "real_sqlite3 $args"]
  47   if { [llength $args] == 2 } {
  48     [lindex $args 0] eval {pragma encoding = 'UTF-16'}
  49   }
  50   set r
  51 }
  52
  53 rename do_test really_do_test
  54 proc do_test {args} {
  55   set sc [concat really_do_test "utf16-[lindex $args 0]" [lrange $args 1 end]]
  56   eval $sc
  57 }
  58
  59 foreach f $FILES {
  60   source $f
  61   catch {db close}
  62   if {$sqlite_open_file_count>0} {
  63     puts "$tail did not close all files: $sqlite_open_file_count"
  64     incr nErr
  65     lappend ::failList $tail
  66   }
  67 }
  68
  69 rename sqlite3 ""
  70 rename real_sqlite3 sqlite3
  71 rename finish_test ""
  72 rename really_finish_test2 finish_test
  73 rename do_test ""
  74 rename really_do_test do_test
  75 finish_test
  76