Import SQLite 3.8.7.4.

third_party/sqlite/src/test/vtab3.test

 # 2006 June 10
 #
 # 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.
 #
 #***********************************************************************
 # This file implements regression tests for SQLite library.  The
 # focus of this file is the authorisation callback and virtual tables.
 #
 # $Id: vtab3.test,v 1.3 2008/07/12 14:52:21 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 ifcapable !vtab||!auth {
   finish_test
   return
 }
 
 set ::auth_fail 0
 set ::auth_log [list]
 set ::auth_filter [list SQLITE_READ SQLITE_UPDATE SQLITE_SELECT SQLITE_PRAGMA]
 
-proc auth {code arg1 arg2 arg3 arg4} {
+proc auth {code arg1 arg2 arg3 arg4 args} {
   if {[lsearch $::auth_filter $code]>-1} {
     return SQLITE_OK
   }
   lappend ::auth_log $code $arg1 $arg2 $arg3 $arg4
   incr ::auth_fail -1
   if {$::auth_fail == 0} {
     return SQLITE_DENY
   }
   return SQLITE_OK
 }
@@ skipping 92 matching lines @@
     DROP TABLE pachyderm;
   }
 } {0 {}}
 do_test vtab3-1.8.2 {
   execsql {
     SELECT name FROM sqlite_master WHERE type = 'table';
   }
 } {elephant}
 
 finish_test