Import SQLite 3.10.2.

third_party/sqlite/src/test/tclsqlite.test

 # 2001 September 15
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
@@ skipping 100 matching lines @@
     lappend v $msg
   } {1 {wrong # args: should be "db complete SQL"}}
 }
 do_test tcl-1.14 {
   set v [catch {db eval} msg]
   lappend v $msg
 } {1 {wrong # args: should be "db eval SQL ?ARRAY-NAME? ?SCRIPT?"}}
 do_test tcl-1.15 {
   set v [catch {db function} msg]
   lappend v $msg
-} {1 {wrong # args: should be "db function NAME [-argcount N] SCRIPT"}}
+} {1 {wrong # args: should be "db function NAME ?SWITCHES? SCRIPT"}}
 do_test tcl-1.16 {
   set v [catch {db last_insert_rowid xyz} msg]
   lappend v $msg
 } {1 {wrong # args: should be "db last_insert_rowid "}}
 do_test tcl-1.17 {
   set v [catch {db rekey} msg]
   lappend v $msg
 } {1 {wrong # args: should be "db rekey KEY"}}
 do_test tcl-1.18 {
   set v [catch {db timeout} msg]
@@ skipping 500 matching lines @@
   CREATE TABLE t6(x);
   INSERT INTO t6 VALUES(1);
 }
 do_test tcl-14.2 {
   db one {SELECT x FROM t6 WHERE xCall()!='value'}
 } {}
 
 
 
 finish_test