Import SQLite 3.8.7.4.

third_party/sqlite/src/test/auth2.test

 # 2006 Aug 24
 #
 # 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 13 matching lines @@
   finish_test
   return
 }
 
 do_test auth2-1.1 {
   execsql {
     CREATE TABLE t1(a,b,c);
     INSERT INTO t1 VALUES(1,2,3);
   }
   set ::flist {}
-  proc auth {code arg1 arg2 arg3 arg4} {
+  proc auth {code arg1 arg2 arg3 arg4 args} {
     if {$code=="SQLITE_FUNCTION"} {
       lappend ::flist $arg2
       if {$arg2=="max"} {
         return SQLITE_DENY
       } elseif {$arg2=="min"} {
         return SQLITE_IGNORE
       } else {
         return SQLITE_OK
       }
     }
@@ skipping 28 matching lines @@
 } coalesce
 
 # Make sure the authorizer is not called when parsing the schema
 # and when computing the result set of a view.
 #
 db close
 sqlite3 db test.db
 sqlite3 db2 test.db
 proc auth {args} {
   global authargs
-  append authargs $args\n
+  append authargs [lrange $args 0 4]\n
   return SQLITE_OK
 }
 db auth auth
 do_test auth2-2.1 {
   set ::authargs {}
   db eval {
     CREATE TABLE t2(x,y,z);
   }
   set ::authargs
 } {SQLITE_INSERT sqlite_master {} main {}
 SQLITE_CREATE_TABLE t2 {} main {}
 SQLITE_UPDATE sqlite_master type main {}
 SQLITE_UPDATE sqlite_master name main {}
 SQLITE_UPDATE sqlite_master tbl_name main {}
 SQLITE_UPDATE sqlite_master rootpage main {}
 SQLITE_UPDATE sqlite_master sql main {}
 SQLITE_READ sqlite_master ROWID main {}
 SQLITE_READ sqlite_master name main {}
 SQLITE_READ sqlite_master rootpage main {}
 SQLITE_READ sqlite_master sql main {}
 SQLITE_READ sqlite_master tbl_name main {}
+SQLITE_READ sqlite_master type main {}
 SQLITE_READ sqlite_master ROWID main {}
 }
 do_test auth2-2.2 {
   set ::authargs {}
   db eval {
     CREATE VIEW v2 AS SELECT x+y AS a, y+z AS b from t2;
   }
   set ::authargs
 } {SQLITE_INSERT sqlite_master {} main {}
 SQLITE_CREATE_VIEW v2 {} main {}
 SQLITE_UPDATE sqlite_master type main {}
 SQLITE_UPDATE sqlite_master name main {}
 SQLITE_UPDATE sqlite_master tbl_name main {}
 SQLITE_UPDATE sqlite_master rootpage main {}
 SQLITE_UPDATE sqlite_master sql main {}
 SQLITE_READ sqlite_master ROWID main {}
 SQLITE_READ sqlite_master name main {}
 SQLITE_READ sqlite_master rootpage main {}
 SQLITE_READ sqlite_master sql main {}
 SQLITE_READ sqlite_master tbl_name main {}
+SQLITE_READ sqlite_master type main {}
 SQLITE_READ sqlite_master ROWID main {}
 }
 do_test auth2-2.3 {
   set ::authargs {}
   db eval {
     SELECT a, b FROM v2;
   }
   set ::authargs
 } {SQLITE_SELECT {} {} {} {}
-SQLITE_READ v2 a main {}
-SQLITE_READ v2 b main {}
 SQLITE_READ t2 x main v2
 SQLITE_READ t2 y main v2
 SQLITE_READ t2 y main v2
 SQLITE_READ t2 z main v2
+SQLITE_READ v2 a main {}
+SQLITE_READ v2 b main {}
 SQLITE_SELECT {} {} {} v2
 }
 do_test auth2-2.4 {
   db2 eval {
     CREATE TABLE t3(p,q,r);
   }
   set ::authargs {}
   db eval {
     SELECT b, a FROM v2;
   }
   set ::authargs
 } {SQLITE_SELECT {} {} {} {}
-SQLITE_READ v2 b main {}
-SQLITE_READ v2 a main {}
 SQLITE_READ t2 x main v2
 SQLITE_READ t2 y main v2
 SQLITE_READ t2 y main v2
 SQLITE_READ t2 z main v2
+SQLITE_READ v2 b main {}
+SQLITE_READ v2 a main {}
 SQLITE_SELECT {} {} {} v2
 SQLITE_SELECT {} {} {} {}
-SQLITE_READ v2 b main {}
-SQLITE_READ v2 a main {}
 SQLITE_READ t2 x main v2
 SQLITE_READ t2 y main v2
 SQLITE_READ t2 y main v2
 SQLITE_READ t2 z main v2
+SQLITE_READ v2 b main {}
+SQLITE_READ v2 a main {}
 SQLITE_SELECT {} {} {} v2
 }
 db2 close
 
 finish_test