/ Hex Artifact Content
Login

Artifact bf039c94d629f64085c268e8be477fc8ff1202a7:


0000: 23 20 32 30 30 33 20 41 70 72 69 6c 20 34 0a 23  # 2003 April 4.#
0010: 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69  .# The author di
0020: 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68  sclaims copyrigh
0030: 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65  t to this source
0040: 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65   code.  In place
0050: 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f   of.# a legal no
0060: 74 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20  tice, here is a 
0070: 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20  blessing:.#.#   
0080: 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64   May you do good
0090: 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23   and not evil..#
00a0: 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64      May you find
00b0: 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72   forgiveness for
00c0: 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f   yourself and fo
00d0: 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20  rgive others..# 
00e0: 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65     May you share
00f0: 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74   freely, never t
0100: 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20  aking more than 
0110: 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a  you give..#.#***
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 0a 23 20 54 68 69 73 20 66 69 6c 65  ****.# This file
0170: 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72   implements regr
0180: 65 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72  ession tests for
0190: 20 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e   SQLite library.
01a0: 20 20 54 68 65 0a 23 20 66 6f 63 75 73 20 6f 66    The.# focus of
01b0: 20 74 68 69 73 20 73 63 72 69 70 74 20 69 73 20   this script is 
01c0: 74 65 73 74 69 6e 67 20 74 68 65 20 41 54 54 41  testing the ATTA
01d0: 43 48 20 61 6e 64 20 44 45 54 41 43 48 20 63 6f  CH and DETACH co
01e0: 6d 6d 61 6e 64 73 0a 23 20 61 6e 64 20 72 65 6c  mmands.# and rel
01f0: 61 74 65 64 20 66 75 6e 63 74 69 6f 6e 61 6c 69  ated functionali
0200: 74 79 2e 0a 23 0a 23 20 24 49 64 3a 20 61 75 74  ty..#.# $Id: aut
0210: 68 2e 74 65 73 74 2c 76 20 31 2e 36 20 32 30 30  h.test,v 1.6 200
0220: 33 2f 30 34 2f 30 35 20 30 33 3a 34 32 3a 32 37  3/04/05 03:42:27
0230: 20 64 72 68 20 45 78 70 20 24 0a 23 0a 0a 73 65   drh Exp $.#..se
0240: 74 20 74 65 73 74 64 69 72 20 5b 66 69 6c 65 20  t testdir [file 
0250: 64 69 72 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a  dirname $argv0].
0260: 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72 2f  source $testdir/
0270: 74 65 73 74 65 72 2e 74 63 6c 0a 0a 69 66 20 7b  tester.tcl..if {
0280: 5b 69 6e 66 6f 20 63 6f 6d 6d 61 6e 64 20 73 71  [info command sq
0290: 6c 69 74 65 5f 73 65 74 5f 61 75 74 68 6f 72 69  lite_set_authori
02a0: 7a 65 72 5d 21 3d 22 22 7d 20 7b 0a 0a 64 6f 5f  zer]!=""} {..do_
02b0: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 2e 31 20  test auth-1.1.1 
02c0: 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 73  {.  db close.  s
02d0: 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74 65 20  et ::DB [sqlite 
02e0: 64 62 20 74 65 73 74 2e 64 62 5d 0a 20 20 70 72  db test.db].  pr
02f0: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
0300: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
0310: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
0320: 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24 61 72  E_INSERT" && $ar
0330: 67 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61 73 74  g1=="sqlite_mast
0340: 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74  er"} {.      ret
0350: 75 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a  urn SQLITE_DENY.
0360: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
0370: 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20   SQLITE_OK.  }. 
0380: 20 73 71 6c 69 74 65 5f 73 65 74 5f 61 75 74 68   sqlite_set_auth
0390: 6f 72 69 7a 65 72 20 24 3a 3a 44 42 20 3a 3a 61  orizer $::DB ::a
03a0: 75 74 68 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  uth.  catchsql {
03b0: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
03c0: 61 2c 62 2c 63 29 7d 0a 7d 20 7b 31 20 7b 6e 6f  a,b,c)}.} {1 {no
03d0: 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64  t authorized}}.d
03e0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 2e  o_test auth-1.1.
03f0: 32 20 7b 0a 20 20 64 62 20 65 72 72 6f 72 63 6f  2 {.  db errorco
0400: 64 65 0a 7d 20 7b 32 33 7d 0a 64 6f 5f 74 65 73  de.} {23}.do_tes
0410: 74 20 61 75 74 68 2d 31 2e 32 20 7b 0a 20 20 65  t auth-1.2 {.  e
0420: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e  xecsql {SELECT n
0430: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
0440: 6d 61 73 74 65 72 7d 0a 7d 20 7b 7d 0a 64 6f 5f  master}.} {}.do_
0450: 74 65 73 74 20 61 75 74 68 2d 31 2e 33 2e 31 20  test auth-1.3.1 
0460: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
0470: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
0480: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
0490: 22 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54  "SQLITE_CREATE_T
04a0: 41 42 4c 45 22 7d 20 7b 0a 20 20 20 20 20 20 73  ABLE"} {.      s
04b0: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c  et ::authargs [l
04c0: 69 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d  ist $arg1 $arg2]
04d0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51  .      return SQ
04e0: 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a  LITE_DENY.    }.
04f0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
0500: 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68  E_OK.  }.  catch
0510: 73 71 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c  sql {CREATE TABL
0520: 45 20 74 31 28 61 2c 62 2c 63 29 7d 0a 7d 20 7b  E t1(a,b,c)}.} {
0530: 31 20 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65  1 {not authorize
0540: 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  d}}.do_test auth
0550: 2d 31 2e 33 2e 32 20 7b 0a 20 20 64 62 20 65 72  -1.3.2 {.  db er
0560: 72 6f 72 63 6f 64 65 0a 7d 20 7b 32 33 7d 0a 64  rorcode.} {23}.d
0570: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 33 2e  o_test auth-1.3.
0580: 33 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68  3 {.  set ::auth
0590: 61 72 67 73 0a 7d 20 7b 74 31 20 7b 7d 7d 0a 64  args.} {t1 {}}.d
05a0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 34 20  o_test auth-1.4 
05b0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
05c0: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
05d0: 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  lite_master}.} {
05e0: 7d 0a 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }..do_test auth-
05f0: 31 2e 35 20 7b 0a 20 20 70 72 6f 63 20 61 75 74  1.5 {.  proc aut
0600: 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67  h {code arg1 arg
0610: 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f  2} {.    if {$co
0620: 64 65 3d 3d 22 53 51 4c 49 54 45 5f 49 4e 53 45  de=="SQLITE_INSE
0630: 52 54 22 20 26 26 20 24 61 72 67 31 3d 3d 22 73  RT" && $arg1=="s
0640: 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65  qlite_temp_maste
0650: 72 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75  r"} {.      retu
0660: 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20  rn SQLITE_DENY. 
0670: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
0680: 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20  SQLITE_OK.  }.  
0690: 63 61 74 63 68 73 71 6c 20 7b 43 52 45 41 54 45  catchsql {CREATE
06a0: 20 54 45 4d 50 20 54 41 42 4c 45 20 74 31 28 61   TEMP TABLE t1(a
06b0: 2c 62 2c 63 29 7d 0a 7d 20 7b 31 20 7b 6e 6f 74  ,b,c)}.} {1 {not
06c0: 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f   authorized}}.do
06d0: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 36 20 7b  _test auth-1.6 {
06e0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
06f0: 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c  CT name FROM sql
0700: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d  ite_temp_master}
0710: 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 61 75  .} {}.do_test au
0720: 74 68 2d 31 2e 37 2e 31 20 7b 0a 20 20 70 72 6f  th-1.7.1 {.  pro
0730: 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67  c auth {code arg
0740: 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66  1 arg2} {.    if
0750: 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45   {$code=="SQLITE
0760: 5f 43 52 45 41 54 45 5f 54 45 4d 50 5f 54 41 42  _CREATE_TEMP_TAB
0770: 4c 45 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  LE"} {.      set
0780: 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73   ::authargs [lis
0790: 74 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20  t $arg1 $arg2]. 
07a0: 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49       return SQLI
07b0: 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20  TE_DENY.    }.  
07c0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
07d0: 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71  OK.  }.  catchsq
07e0: 6c 20 7b 43 52 45 41 54 45 20 54 45 4d 50 20 54  l {CREATE TEMP T
07f0: 41 42 4c 45 20 74 31 28 61 2c 62 2c 63 29 7d 0a  ABLE t1(a,b,c)}.
0800: 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74 68 6f 72  } {1 {not author
0810: 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  ized}}.do_test a
0820: 75 74 68 2d 31 2e 37 2e 32 20 7b 0a 20 20 20 73  uth-1.7.2 {.   s
0830: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20  et ::authargs.} 
0840: 7b 74 31 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20  {t1 {}}.do_test 
0850: 61 75 74 68 2d 31 2e 38 20 7b 0a 20 20 65 78 65  auth-1.8 {.  exe
0860: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d  csql {SELECT nam
0870: 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65  e FROM sqlite_te
0880: 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 7d 0a  mp_master}.} {}.
0890: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
08a0: 39 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  9 {.  proc auth 
08b0: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
08c0: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
08d0: 3d 3d 22 53 51 4c 49 54 45 5f 49 4e 53 45 52 54  =="SQLITE_INSERT
08e0: 22 20 26 26 20 24 61 72 67 31 3d 3d 22 73 71 6c  " && $arg1=="sql
08f0: 69 74 65 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20  ite_master"} {. 
0900: 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49       return SQLI
0910: 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a  TE_IGNORE.    }.
0920: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
0930: 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68  E_OK.  }.  catch
0940: 73 71 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c  sql {CREATE TABL
0950: 45 20 74 31 28 61 2c 62 2c 63 29 7d 0a 7d 20 7b  E t1(a,b,c)}.} {
0960: 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75  0 {}}.do_test au
0970: 74 68 2d 31 2e 31 30 20 7b 0a 20 20 65 78 65 63  th-1.10 {.  exec
0980: 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65  sql {SELECT name
0990: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
09a0: 74 65 72 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73  ter}.} {}.do_tes
09b0: 74 20 61 75 74 68 2d 31 2e 31 31 20 7b 0a 20 20  t auth-1.11 {.  
09c0: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
09d0: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
09e0: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
09f0: 49 54 45 5f 43 52 45 41 54 45 5f 54 41 42 4c 45  ITE_CREATE_TABLE
0a00: 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a  "} {.      set :
0a10: 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74 20  :authargs [list 
0a20: 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20 20  $arg1 $arg2].   
0a30: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
0a40: 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20  _IGNORE.    }.  
0a50: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
0a60: 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71  OK.  }.  catchsq
0a70: 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20  l {CREATE TABLE 
0a80: 74 31 28 61 2c 62 2c 63 29 7d 0a 7d 20 7b 30 20  t1(a,b,c)}.} {0 
0a90: 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  {}}.do_test auth
0aa0: 2d 31 2e 31 32 20 7b 0a 20 20 65 78 65 63 73 71  -1.12 {.  execsq
0ab0: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
0ac0: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
0ad0: 72 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20  r}.} {}.do_test 
0ae0: 61 75 74 68 2d 31 2e 31 33 20 7b 0a 20 20 70 72  auth-1.13 {.  pr
0af0: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
0b00: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
0b10: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
0b20: 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24 61 72  E_INSERT" && $ar
0b30: 67 31 3d 3d 22 73 71 6c 69 74 65 5f 74 65 6d 70  g1=="sqlite_temp
0b40: 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20 20 20 20  _master"} {.    
0b50: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
0b60: 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20  IGNORE.    }.   
0b70: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
0b80: 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c  K.  }.  catchsql
0b90: 20 7b 43 52 45 41 54 45 20 54 45 4d 50 20 54 41   {CREATE TEMP TA
0ba0: 42 4c 45 20 74 31 28 61 2c 62 2c 63 29 7d 0a 7d  BLE t1(a,b,c)}.}
0bb0: 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20   {0 {}}.do_test 
0bc0: 61 75 74 68 2d 31 2e 31 34 20 7b 0a 20 20 65 78  auth-1.14 {.  ex
0bd0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61  ecsql {SELECT na
0be0: 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 74  me FROM sqlite_t
0bf0: 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 7d  emp_master}.} {}
0c00: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
0c10: 31 35 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68  15 {.  proc auth
0c20: 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32   {code arg1 arg2
0c30: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64  } {.    if {$cod
0c40: 65 3d 3d 22 53 51 4c 49 54 45 5f 43 52 45 41 54  e=="SQLITE_CREAT
0c50: 45 5f 54 45 4d 50 5f 54 41 42 4c 45 22 7d 20 7b  E_TEMP_TABLE"} {
0c60: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74  .      set ::aut
0c70: 68 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67  hargs [list $arg
0c80: 31 20 24 61 72 67 32 5d 0a 20 20 20 20 20 20 72  1 $arg2].      r
0c90: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e  eturn SQLITE_IGN
0ca0: 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  ORE.    }.    re
0cb0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
0cc0: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 43   }.  catchsql {C
0cd0: 52 45 41 54 45 20 54 45 4d 50 20 54 41 42 4c 45  REATE TEMP TABLE
0ce0: 20 74 31 28 61 2c 62 2c 63 29 7d 0a 7d 20 7b 30   t1(a,b,c)}.} {0
0cf0: 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   {}}.do_test aut
0d00: 68 2d 31 2e 31 36 20 7b 0a 20 20 65 78 65 63 73  h-1.16 {.  execs
0d10: 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20  ql {SELECT name 
0d20: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70  FROM sqlite_temp
0d30: 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 7d 0a 0a 64  _master}.} {}..d
0d40: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 37  o_test auth-1.17
0d50: 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b   {.  proc auth {
0d60: 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20  code arg1 arg2} 
0d70: 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d  {.    if {$code=
0d80: 3d 22 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f  ="SQLITE_CREATE_
0d90: 54 41 42 4c 45 22 7d 20 7b 0a 20 20 20 20 20 20  TABLE"} {.      
0da0: 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b  set ::authargs [
0db0: 6c 69 73 74 20 24 61 72 67 31 20 24 61 72 67 32  list $arg1 $arg2
0dc0: 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53  ].      return S
0dd0: 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d  QLITE_DENY.    }
0de0: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
0df0: 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63  TE_OK.  }.  catc
0e00: 68 73 71 6c 20 7b 43 52 45 41 54 45 20 54 45 4d  hsql {CREATE TEM
0e10: 50 20 54 41 42 4c 45 20 74 31 28 61 2c 62 2c 63  P TABLE t1(a,b,c
0e20: 29 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74  )}.} {0 {}}.do_t
0e30: 65 73 74 20 61 75 74 68 2d 31 2e 31 38 20 7b 0a  est auth-1.18 {.
0e40: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
0e50: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
0e60: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a  te_temp_master}.
0e70: 7d 20 7b 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61  } {t1}.do_test a
0e80: 75 74 68 2d 31 2e 31 39 2e 31 20 7b 0a 20 20 73  uth-1.19.1 {.  s
0e90: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 7b 7d  et ::authargs {}
0ea0: 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f  .  proc auth {co
0eb0: 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a  de arg1 arg2} {.
0ec0: 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22      if {$code=="
0ed0: 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54 45  SQLITE_CREATE_TE
0ee0: 4d 50 5f 54 41 42 4c 45 22 7d 20 7b 0a 20 20 20  MP_TABLE"} {.   
0ef0: 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67     set ::autharg
0f00: 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61  s [list $arg1 $a
0f10: 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72  rg2].      retur
0f20: 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20  n SQLITE_DENY.  
0f30: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53    }.    return S
0f40: 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63  QLITE_OK.  }.  c
0f50: 61 74 63 68 73 71 6c 20 7b 43 52 45 41 54 45 20  atchsql {CREATE 
0f60: 54 41 42 4c 45 20 74 32 28 61 2c 62 2c 63 29 7d  TABLE t2(a,b,c)}
0f70: 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73  .} {0 {}}.do_tes
0f80: 74 20 61 75 74 68 2d 31 2e 31 39 2e 32 20 7b 0a  t auth-1.19.2 {.
0f90: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
0fa0: 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 61 75  .} {}.do_test au
0fb0: 74 68 2d 31 2e 32 30 20 7b 0a 20 20 65 78 65 63  th-1.20 {.  exec
0fc0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65  sql {SELECT name
0fd0: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
0fe0: 74 65 72 7d 0a 7d 20 7b 74 32 7d 0a 0a 64 6f 5f  ter}.} {t2}..do_
0ff0: 74 65 73 74 20 61 75 74 68 2d 31 2e 32 31 2e 31  test auth-1.21.1
1000: 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b   {.  proc auth {
1010: 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20  code arg1 arg2} 
1020: 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d  {.    if {$code=
1030: 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54 41  ="SQLITE_DROP_TA
1040: 42 4c 45 22 7d 20 7b 0a 20 20 20 20 20 20 73 65  BLE"} {.      se
1050: 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69  t ::authargs [li
1060: 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a  st $arg1 $arg2].
1070: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
1080: 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20  ITE_DENY.    }. 
1090: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
10a0: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
10b0: 71 6c 20 7b 44 52 4f 50 20 54 41 42 4c 45 20 74  ql {DROP TABLE t
10c0: 32 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74  2}.} {1 {not aut
10d0: 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73  horized}}.do_tes
10e0: 74 20 61 75 74 68 2d 31 2e 32 31 2e 32 20 7b 0a  t auth-1.21.2 {.
10f0: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
1100: 0a 7d 20 7b 74 32 20 7b 7d 7d 0a 64 6f 5f 74 65  .} {t2 {}}.do_te
1110: 73 74 20 61 75 74 68 2d 31 2e 32 32 20 7b 0a 20  st auth-1.22 {. 
1120: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
1130: 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74   name FROM sqlit
1140: 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 32 7d  e_master}.} {t2}
1150: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
1160: 32 33 2e 31 20 7b 0a 20 20 70 72 6f 63 20 61 75  23.1 {.  proc au
1170: 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72  th {code arg1 ar
1180: 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63  g2} {.    if {$c
1190: 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f  ode=="SQLITE_DRO
11a0: 50 5f 54 41 42 4c 45 22 7d 20 7b 0a 20 20 20 20  P_TABLE"} {.    
11b0: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
11c0: 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61 72   [list $arg1 $ar
11d0: 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e  g2].      return
11e0: 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a 20   SQLITE_IGNORE. 
11f0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
1200: 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20  SQLITE_OK.  }.  
1210: 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50 20 54  catchsql {DROP T
1220: 41 42 4c 45 20 74 32 7d 0a 7d 20 7b 30 20 7b 7d  ABLE t2}.} {0 {}
1230: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
1240: 2e 32 33 2e 32 20 7b 0a 20 20 73 65 74 20 3a 3a  .23.2 {.  set ::
1250: 61 75 74 68 61 72 67 73 0a 7d 20 7b 74 32 20 7b  authargs.} {t2 {
1260: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
1270: 31 2e 32 34 20 7b 0a 20 20 65 78 65 63 73 71 6c  1.24 {.  execsql
1280: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
1290: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
12a0: 7d 0a 7d 20 7b 74 32 7d 0a 0a 64 6f 5f 74 65 73  }.} {t2}..do_tes
12b0: 74 20 61 75 74 68 2d 31 2e 32 35 20 7b 0a 20 20  t auth-1.25 {.  
12c0: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
12d0: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
12e0: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
12f0: 49 54 45 5f 44 52 4f 50 5f 54 45 4d 50 5f 54 41  ITE_DROP_TEMP_TA
1300: 42 4c 45 22 7d 20 7b 0a 20 20 20 20 20 20 73 65  BLE"} {.      se
1310: 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69  t ::authargs [li
1320: 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a  st $arg1 $arg2].
1330: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
1340: 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20  ITE_DENY.    }. 
1350: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
1360: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
1370: 71 6c 20 7b 44 52 4f 50 20 54 41 42 4c 45 20 74  ql {DROP TABLE t
1380: 31 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74  1}.} {1 {not aut
1390: 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73  horized}}.do_tes
13a0: 74 20 61 75 74 68 2d 31 2e 32 36 20 7b 0a 20 20  t auth-1.26 {.  
13b0: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
13c0: 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65  name FROM sqlite
13d0: 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20  _temp_master}.} 
13e0: 7b 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74  {t1}.do_test aut
13f0: 68 2d 31 2e 32 37 20 7b 0a 20 20 70 72 6f 63 20  h-1.27 {.  proc 
1400: 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20  auth {code arg1 
1410: 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b  arg2} {.    if {
1420: 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44  $code=="SQLITE_D
1430: 52 4f 50 5f 54 45 4d 50 5f 54 41 42 4c 45 22 7d  ROP_TEMP_TABLE"}
1440: 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 61   {.      set ::a
1450: 75 74 68 61 72 67 73 20 5b 6c 69 73 74 20 24 61  uthargs [list $a
1460: 72 67 31 20 24 61 72 67 32 5d 0a 20 20 20 20 20  rg1 $arg2].     
1470: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49   return SQLITE_I
1480: 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20  GNORE.    }.    
1490: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
14a0: 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20  .  }.  catchsql 
14b0: 7b 44 52 4f 50 20 54 41 42 4c 45 20 74 31 7d 0a  {DROP TABLE t1}.
14c0: 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74  } {0 {}}.do_test
14d0: 20 61 75 74 68 2d 31 2e 32 38 20 7b 0a 20 20 65   auth-1.28 {.  e
14e0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e  xecsql {SELECT n
14f0: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
1500: 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  temp_master}.} {
1510: 74 31 7d 0a 0a 64 6f 5f 74 65 73 74 20 61 75 74  t1}..do_test aut
1520: 68 2d 31 2e 32 39 20 7b 0a 20 20 70 72 6f 63 20  h-1.29 {.  proc 
1530: 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20  auth {code arg1 
1540: 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b  arg2} {.    if {
1550: 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 49  $code=="SQLITE_I
1560: 4e 53 45 52 54 22 20 26 26 20 24 61 72 67 31 3d  NSERT" && $arg1=
1570: 3d 22 74 32 22 7d 20 7b 0a 20 20 20 20 20 20 72  ="t2"} {.      r
1580: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e  eturn SQLITE_DEN
1590: 59 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  Y.    }.    retu
15a0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
15b0: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 49 4e 53  .  catchsql {INS
15c0: 45 52 54 20 49 4e 54 4f 20 74 32 20 56 41 4c 55  ERT INTO t2 VALU
15d0: 45 53 28 31 2c 32 2c 33 29 7d 0a 7d 20 7b 31 20  ES(1,2,3)}.} {1 
15e0: 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d  {not authorized}
15f0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
1600: 2e 33 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  .30 {.  execsql 
1610: 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74  {SELECT * FROM t
1620: 32 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20  2}.} {}.do_test 
1630: 61 75 74 68 2d 31 2e 33 31 20 7b 0a 20 20 70 72  auth-1.31 {.  pr
1640: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
1650: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
1660: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
1670: 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24 61 72  E_INSERT" && $ar
1680: 67 31 3d 3d 22 74 32 22 7d 20 7b 0a 20 20 20 20  g1=="t2"} {.    
1690: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
16a0: 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20  IGNORE.    }.   
16b0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
16c0: 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c  K.  }.  catchsql
16d0: 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 32   {INSERT INTO t2
16e0: 20 56 41 4c 55 45 53 28 31 2c 32 2c 33 29 7d 0a   VALUES(1,2,3)}.
16f0: 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74  } {0 {}}.do_test
1700: 20 61 75 74 68 2d 31 2e 33 32 20 7b 0a 20 20 65   auth-1.32 {.  e
1710: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a  xecsql {SELECT *
1720: 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 7d 0a 64   FROM t2}.} {}.d
1730: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 33 33  o_test auth-1.33
1740: 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b   {.  proc auth {
1750: 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20  code arg1 arg2} 
1760: 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d  {.    if {$code=
1770: 3d 22 53 51 4c 49 54 45 5f 49 4e 53 45 52 54 22  ="SQLITE_INSERT"
1780: 20 26 26 20 24 61 72 67 31 3d 3d 22 74 31 22 7d   && $arg1=="t1"}
1790: 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20   {.      return 
17a0: 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20  SQLITE_IGNORE.  
17b0: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53    }.    return S
17c0: 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63  QLITE_OK.  }.  c
17d0: 61 74 63 68 73 71 6c 20 7b 49 4e 53 45 52 54 20  atchsql {INSERT 
17e0: 49 4e 54 4f 20 74 32 20 56 41 4c 55 45 53 28 31  INTO t2 VALUES(1
17f0: 2c 32 2c 33 29 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a  ,2,3)}.} {0 {}}.
1800: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 33  do_test auth-1.3
1810: 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  4 {.  execsql {S
1820: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d  ELECT * FROM t2}
1830: 0a 7d 20 7b 31 20 32 20 33 7d 0a 0a 64 6f 5f 74  .} {1 2 3}..do_t
1840: 65 73 74 20 61 75 74 68 2d 31 2e 33 35 20 7b 0a  est auth-1.35 {.
1850: 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64    proc auth {cod
1860: 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20  e arg1 arg2} {. 
1870: 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53     if {$code=="S
1880: 51 4c 49 54 45 5f 52 45 41 44 22 20 26 26 20 24  QLITE_READ" && $
1890: 61 72 67 31 3d 3d 22 74 32 22 20 26 26 20 24 61  arg1=="t2" && $a
18a0: 72 67 32 3d 3d 22 62 22 7d 20 7b 0a 20 20 20 20  rg2=="b"} {.    
18b0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
18c0: 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20 72  DENY.    }.    r
18d0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
18e0: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
18f0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32  SELECT * FROM t2
1900: 7d 0a 7d 20 7b 31 20 7b 61 63 63 65 73 73 20 74  }.} {1 {access t
1910: 6f 20 74 32 2e 62 20 69 73 20 70 72 6f 68 69 62  o t2.b is prohib
1920: 69 74 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  ited}}.do_test a
1930: 75 74 68 2d 31 2e 33 36 20 7b 0a 20 20 70 72 6f  uth-1.36 {.  pro
1940: 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67  c auth {code arg
1950: 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66  1 arg2} {.    if
1960: 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45   {$code=="SQLITE
1970: 5f 52 45 41 44 22 20 26 26 20 24 61 72 67 31 3d  _READ" && $arg1=
1980: 3d 22 74 32 22 20 26 26 20 24 61 72 67 32 3d 3d  ="t2" && $arg2==
1990: 22 62 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74  "b"} {.      ret
19a0: 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52  urn SQLITE_IGNOR
19b0: 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  E.    }.    retu
19c0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
19d0: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45 4c  .  catchsql {SEL
19e0: 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d 0a 7d  ECT * FROM t2}.}
19f0: 20 7b 30 20 7b 31 20 7b 7d 20 33 7d 7d 0a 64 6f   {0 {1 {} 3}}.do
1a00: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 33 37 20  _test auth-1.37 
1a10: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
1a20: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
1a30: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
1a40: 22 53 51 4c 49 54 45 5f 52 45 41 44 22 20 26 26  "SQLITE_READ" &&
1a50: 20 24 61 72 67 31 3d 3d 22 74 32 22 20 26 26 20   $arg1=="t2" && 
1a60: 24 61 72 67 32 3d 3d 22 62 22 7d 20 7b 0a 20 20  $arg2=="b"} {.  
1a70: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
1a80: 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20  E_IGNORE.    }. 
1a90: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
1aa0: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
1ab0: 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  ql {SELECT * FRO
1ac0: 4d 20 74 32 20 57 48 45 52 45 20 62 3d 32 7d 0a  M t2 WHERE b=2}.
1ad0: 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74  } {0 {}}.do_test
1ae0: 20 61 75 74 68 2d 31 2e 33 38 20 7b 0a 20 20 70   auth-1.38 {.  p
1af0: 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61  roc auth {code a
1b00: 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20  rg1 arg2} {.    
1b10: 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49  if {$code=="SQLI
1b20: 54 45 5f 52 45 41 44 22 20 26 26 20 24 61 72 67  TE_READ" && $arg
1b30: 31 3d 3d 22 74 32 22 20 26 26 20 24 61 72 67 32  1=="t2" && $arg2
1b40: 3d 3d 22 61 22 7d 20 7b 0a 20 20 20 20 20 20 72  =="a"} {.      r
1b50: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e  eturn SQLITE_IGN
1b60: 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  ORE.    }.    re
1b70: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
1b80: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53   }.  catchsql {S
1b90: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 20  ELECT * FROM t2 
1ba0: 57 48 45 52 45 20 62 3d 32 7d 0a 7d 20 7b 30 20  WHERE b=2}.} {0 
1bb0: 7b 7b 7d 20 32 20 33 7d 7d 0a 64 6f 5f 74 65 73  {{} 2 3}}.do_tes
1bc0: 74 20 61 75 74 68 2d 31 2e 33 39 20 7b 0a 20 20  t auth-1.39 {.  
1bd0: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
1be0: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
1bf0: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
1c00: 49 54 45 5f 52 45 41 44 22 20 26 26 20 24 61 72  ITE_READ" && $ar
1c10: 67 31 3d 3d 22 74 32 22 20 26 26 20 24 61 72 67  g1=="t2" && $arg
1c20: 32 3d 3d 22 62 22 7d 20 7b 0a 20 20 20 20 20 20  2=="b"} {.      
1c30: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47  return SQLITE_IG
1c40: 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72  NORE.    }.    r
1c50: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
1c60: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
1c70: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32  SELECT * FROM t2
1c80: 20 57 48 45 52 45 20 62 20 49 53 20 4e 55 4c 4c   WHERE b IS NULL
1c90: 7d 0a 7d 20 7b 30 20 7b 31 20 7b 7d 20 33 7d 7d  }.} {0 {1 {} 3}}
1ca0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
1cb0: 34 30 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68  40 {.  proc auth
1cc0: 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32   {code arg1 arg2
1cd0: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64  } {.    if {$cod
1ce0: 65 3d 3d 22 53 51 4c 49 54 45 5f 52 45 41 44 22  e=="SQLITE_READ"
1cf0: 20 26 26 20 24 61 72 67 31 3d 3d 22 74 32 22 20   && $arg1=="t2" 
1d00: 26 26 20 24 61 72 67 32 3d 3d 22 62 22 7d 20 7b  && $arg2=="b"} {
1d10: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51  .      return SQ
1d20: 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a  LITE_DENY.    }.
1d30: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
1d40: 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68  E_OK.  }.  catch
1d50: 73 71 6c 20 7b 53 45 4c 45 43 54 20 61 2c 63 20  sql {SELECT a,c 
1d60: 46 52 4f 4d 20 74 32 20 57 48 45 52 45 20 62 20  FROM t2 WHERE b 
1d70: 49 53 20 4e 55 4c 4c 7d 0a 7d 20 7b 31 20 7b 61  IS NULL}.} {1 {a
1d80: 63 63 65 73 73 20 74 6f 20 74 32 2e 62 20 69 73  ccess to t2.b is
1d90: 20 70 72 6f 68 69 62 69 74 65 64 7d 7d 0a 20 20   prohibited}}.  
1da0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
1db0: 34 31 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68  41 {.  proc auth
1dc0: 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32   {code arg1 arg2
1dd0: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64  } {.    if {$cod
1de0: 65 3d 3d 22 53 51 4c 49 54 45 5f 55 50 44 41 54  e=="SQLITE_UPDAT
1df0: 45 22 20 26 26 20 24 61 72 67 31 3d 3d 22 74 32  E" && $arg1=="t2
1e00: 22 20 26 26 20 24 61 72 67 32 3d 3d 22 62 22 7d  " && $arg2=="b"}
1e10: 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20   {.      return 
1e20: 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20  SQLITE_DENY.    
1e30: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c  }.    return SQL
1e40: 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74  ITE_OK.  }.  cat
1e50: 63 68 73 71 6c 20 7b 55 50 44 41 54 45 20 74 32  chsql {UPDATE t2
1e60: 20 53 45 54 20 61 3d 31 31 7d 0a 7d 20 7b 30 20   SET a=11}.} {0 
1e70: 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  {}}.do_test auth
1e80: 2d 31 2e 34 32 20 7b 0a 20 20 65 78 65 63 73 71  -1.42 {.  execsq
1e90: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
1ea0: 20 74 32 7d 0a 7d 20 7b 31 31 20 32 20 33 7d 0a   t2}.} {11 2 3}.
1eb0: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 34  do_test auth-1.4
1ec0: 33 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  3 {.  proc auth 
1ed0: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
1ee0: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
1ef0: 3d 3d 22 53 51 4c 49 54 45 5f 55 50 44 41 54 45  =="SQLITE_UPDATE
1f00: 22 20 26 26 20 24 61 72 67 31 3d 3d 22 74 32 22  " && $arg1=="t2"
1f10: 20 26 26 20 24 61 72 67 32 3d 3d 22 62 22 7d 20   && $arg2=="b"} 
1f20: 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53  {.      return S
1f30: 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d  QLITE_DENY.    }
1f40: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
1f50: 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63  TE_OK.  }.  catc
1f60: 68 73 71 6c 20 7b 55 50 44 41 54 45 20 74 32 20  hsql {UPDATE t2 
1f70: 53 45 54 20 62 3d 32 32 2c 20 63 3d 33 33 7d 0a  SET b=22, c=33}.
1f80: 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74 68 6f 72  } {1 {not author
1f90: 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  ized}}.do_test a
1fa0: 75 74 68 2d 31 2e 34 34 20 7b 0a 20 20 65 78 65  uth-1.44 {.  exe
1fb0: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  csql {SELECT * F
1fc0: 52 4f 4d 20 74 32 7d 0a 7d 20 7b 31 31 20 32 20  ROM t2}.} {11 2 
1fd0: 33 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  3}.do_test auth-
1fe0: 31 2e 34 35 20 7b 0a 20 20 70 72 6f 63 20 61 75  1.45 {.  proc au
1ff0: 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72  th {code arg1 ar
2000: 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63  g2} {.    if {$c
2010: 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 55 50 44  ode=="SQLITE_UPD
2020: 41 54 45 22 20 26 26 20 24 61 72 67 31 3d 3d 22  ATE" && $arg1=="
2030: 74 32 22 20 26 26 20 24 61 72 67 32 3d 3d 22 62  t2" && $arg2=="b
2040: 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72  "} {.      retur
2050: 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a  n SQLITE_IGNORE.
2060: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
2070: 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20   SQLITE_OK.  }. 
2080: 20 63 61 74 63 68 73 71 6c 20 7b 55 50 44 41 54   catchsql {UPDAT
2090: 45 20 74 32 20 53 45 54 20 62 3d 32 32 2c 20 63  E t2 SET b=22, c
20a0: 3d 33 33 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f  =33}.} {0 {}}.do
20b0: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 34 36 20  _test auth-1.46 
20c0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
20d0: 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d 0a 7d  ECT * FROM t2}.}
20e0: 20 7b 31 31 20 32 20 33 33 7d 0a 0a 64 6f 5f 74   {11 2 33}..do_t
20f0: 65 73 74 20 61 75 74 68 2d 31 2e 34 37 20 7b 0a  est auth-1.47 {.
2100: 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64    proc auth {cod
2110: 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20  e arg1 arg2} {. 
2120: 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53     if {$code=="S
2130: 51 4c 49 54 45 5f 44 45 4c 45 54 45 22 20 26 26  QLITE_DELETE" &&
2140: 20 24 61 72 67 31 3d 3d 22 74 32 22 7d 20 7b 0a   $arg1=="t2"} {.
2150: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
2160: 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20  ITE_DENY.    }. 
2170: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
2180: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
2190: 71 6c 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20  ql {DELETE FROM 
21a0: 74 32 20 57 48 45 52 45 20 61 3d 31 31 7d 0a 7d  t2 WHERE a=11}.}
21b0: 20 7b 31 20 7b 6e 6f 74 20 61 75 74 68 6f 72 69   {1 {not authori
21c0: 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75  zed}}.do_test au
21d0: 74 68 2d 31 2e 34 38 20 7b 0a 20 20 65 78 65 63  th-1.48 {.  exec
21e0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  sql {SELECT * FR
21f0: 4f 4d 20 74 32 7d 0a 7d 20 7b 31 31 20 32 20 33  OM t2}.} {11 2 3
2200: 33 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  3}.do_test auth-
2210: 31 2e 34 39 20 7b 0a 20 20 70 72 6f 63 20 61 75  1.49 {.  proc au
2220: 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72  th {code arg1 ar
2230: 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63  g2} {.    if {$c
2240: 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 45 4c  ode=="SQLITE_DEL
2250: 45 54 45 22 20 26 26 20 24 61 72 67 31 3d 3d 22  ETE" && $arg1=="
2260: 74 32 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74  t2"} {.      ret
2270: 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52  urn SQLITE_IGNOR
2280: 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  E.    }.    retu
2290: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
22a0: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 44 45 4c  .  catchsql {DEL
22b0: 45 54 45 20 46 52 4f 4d 20 74 32 20 57 48 45 52  ETE FROM t2 WHER
22c0: 45 20 61 3d 31 31 7d 0a 7d 20 7b 30 20 7b 7d 7d  E a=11}.} {0 {}}
22d0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
22e0: 35 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  50 {.  execsql {
22f0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32  SELECT * FROM t2
2300: 7d 0a 7d 20 7b 31 31 20 32 20 33 33 7d 0a 0a 64  }.} {11 2 33}..d
2310: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 35 31  o_test auth-1.51
2320: 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b   {.  proc auth {
2330: 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20  code arg1 arg2} 
2340: 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d  {.    if {$code=
2350: 3d 22 53 51 4c 49 54 45 5f 53 45 4c 45 43 54 22  ="SQLITE_SELECT"
2360: 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  } {.      return
2370: 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20   SQLITE_DENY.   
2380: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51   }.    return SQ
2390: 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61  LITE_OK.  }.  ca
23a0: 74 63 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a  tchsql {SELECT *
23b0: 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 31 20 7b   FROM t2}.} {1 {
23c0: 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d  not authorized}}
23d0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
23e0: 35 32 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68  52 {.  proc auth
23f0: 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32   {code arg1 arg2
2400: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64  } {.    if {$cod
2410: 65 3d 3d 22 53 51 4c 49 54 45 5f 53 45 4c 45 43  e=="SQLITE_SELEC
2420: 54 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75  T"} {.      retu
2430: 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45  rn SQLITE_IGNORE
2440: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
2450: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a  n SQLITE_OK.  }.
2460: 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45 4c 45    catchsql {SELE
2470: 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d 0a 7d 20  CT * FROM t2}.} 
2480: 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  {0 {}}.do_test a
2490: 75 74 68 2d 31 2e 35 33 20 7b 0a 20 20 70 72 6f  uth-1.53 {.  pro
24a0: 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67  c auth {code arg
24b0: 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66  1 arg2} {.    if
24c0: 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45   {$code=="SQLITE
24d0: 5f 53 45 4c 45 43 54 22 7d 20 7b 0a 20 20 20 20  _SELECT"} {.    
24e0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
24f0: 4f 4b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  OK.    }.    ret
2500: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20  urn SQLITE_OK.  
2510: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45  }.  catchsql {SE
2520: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d 0a  LECT * FROM t2}.
2530: 7d 20 7b 30 20 7b 31 31 20 32 20 33 33 7d 7d 0a  } {0 {11 2 33}}.
2540: 0a 73 65 74 20 66 20 5b 6f 70 65 6e 20 64 61 74  .set f [open dat
2550: 61 31 2e 74 78 74 20 77 5d 0a 70 75 74 73 20 24  a1.txt w].puts $
2560: 66 20 22 37 3a 38 3a 39 22 0a 63 6c 6f 73 65 20  f "7:8:9".close 
2570: 24 66 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  $f.do_test auth-
2580: 31 2e 35 34 20 7b 0a 20 20 70 72 6f 63 20 61 75  1.54 {.  proc au
2590: 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72  th {code arg1 ar
25a0: 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63  g2} {.    if {$c
25b0: 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 43 4f 50  ode=="SQLITE_COP
25c0: 59 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  Y"} {.      set 
25d0: 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74  ::authargs [list
25e0: 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20   $arg1 $arg2].  
25f0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
2600: 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20  E_DENY.    }.   
2610: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
2620: 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c  K.  }.  catchsql
2630: 20 7b 43 4f 50 59 20 74 32 20 46 52 4f 4d 20 27   {COPY t2 FROM '
2640: 64 61 74 61 31 2e 74 78 74 27 20 55 53 49 4e 47  data1.txt' USING
2650: 20 44 45 4c 49 4d 49 54 45 52 53 20 27 3a 27 7d   DELIMITERS ':'}
2660: 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74 68 6f  .} {1 {not autho
2670: 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20  rized}}.do_test 
2680: 61 75 74 68 2d 31 2e 35 35 20 7b 0a 20 20 73 65  auth-1.55 {.  se
2690: 74 20 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20 7b  t ::authargs.} {
26a0: 74 32 20 64 61 74 61 31 2e 74 78 74 7d 0a 64 6f  t2 data1.txt}.do
26b0: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 35 36 20  _test auth-1.56 
26c0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
26d0: 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d 0a 7d  ECT * FROM t2}.}
26e0: 20 7b 31 31 20 32 20 33 33 7d 0a 64 6f 5f 74 65   {11 2 33}.do_te
26f0: 73 74 20 61 75 74 68 2d 31 2e 35 37 20 7b 0a 20  st auth-1.57 {. 
2700: 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65   proc auth {code
2710: 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20   arg1 arg2} {.  
2720: 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51    if {$code=="SQ
2730: 4c 49 54 45 5f 43 4f 50 59 22 7d 20 7b 0a 20 20  LITE_COPY"} {.  
2740: 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72      set ::authar
2750: 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24  gs [list $arg1 $
2760: 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75  arg2].      retu
2770: 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45  rn SQLITE_IGNORE
2780: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
2790: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a  n SQLITE_OK.  }.
27a0: 20 20 63 61 74 63 68 73 71 6c 20 7b 43 4f 50 59    catchsql {COPY
27b0: 20 74 32 20 46 52 4f 4d 20 27 64 61 74 61 31 2e   t2 FROM 'data1.
27c0: 74 78 74 27 20 55 53 49 4e 47 20 44 45 4c 49 4d  txt' USING DELIM
27d0: 49 54 45 52 53 20 27 3a 27 7d 0a 7d 20 7b 30 20  ITERS ':'}.} {0 
27e0: 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  {}}.do_test auth
27f0: 2d 31 2e 35 38 20 7b 0a 20 20 73 65 74 20 3a 3a  -1.58 {.  set ::
2800: 61 75 74 68 61 72 67 73 0a 7d 20 7b 74 32 20 64  authargs.} {t2 d
2810: 61 74 61 31 2e 74 78 74 7d 0a 64 6f 5f 74 65 73  ata1.txt}.do_tes
2820: 74 20 61 75 74 68 2d 31 2e 35 39 20 7b 0a 20 20  t auth-1.59 {.  
2830: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
2840: 2a 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 31 31  * FROM t2}.} {11
2850: 20 32 20 33 33 7d 0a 64 6f 5f 74 65 73 74 20 61   2 33}.do_test a
2860: 75 74 68 2d 31 2e 36 30 20 7b 0a 20 20 70 72 6f  uth-1.60 {.  pro
2870: 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67  c auth {code arg
2880: 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66  1 arg2} {.    if
2890: 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45   {$code=="SQLITE
28a0: 5f 43 4f 50 59 22 7d 20 7b 0a 20 20 20 20 20 20  _COPY"} {.      
28b0: 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b  set ::authargs [
28c0: 6c 69 73 74 20 24 61 72 67 31 20 24 61 72 67 32  list $arg1 $arg2
28d0: 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53  ].      return S
28e0: 51 4c 49 54 45 5f 4f 4b 0a 20 20 20 20 7d 0a 20  QLITE_OK.    }. 
28f0: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
2900: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
2910: 71 6c 20 7b 43 4f 50 59 20 74 32 20 46 52 4f 4d  ql {COPY t2 FROM
2920: 20 27 64 61 74 61 31 2e 74 78 74 27 20 55 53 49   'data1.txt' USI
2930: 4e 47 20 44 45 4c 49 4d 49 54 45 52 53 20 27 3a  NG DELIMITERS ':
2940: 27 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74  '}.} {0 {}}.do_t
2950: 65 73 74 20 61 75 74 68 2d 31 2e 36 31 20 7b 0a  est auth-1.61 {.
2960: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
2970: 0a 7d 20 7b 74 32 20 64 61 74 61 31 2e 74 78 74  .} {t2 data1.txt
2980: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
2990: 2e 36 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  .62 {.  execsql 
29a0: 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74  {SELECT * FROM t
29b0: 32 7d 0a 7d 20 7b 31 31 20 32 20 33 33 20 37 20  2}.} {11 2 33 7 
29c0: 38 20 39 7d 0a 0a 64 6f 5f 74 65 73 74 20 61 75  8 9}..do_test au
29d0: 74 68 2d 31 2e 36 33 20 7b 0a 20 20 70 72 6f 63  th-1.63 {.  proc
29e0: 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31   auth {code arg1
29f0: 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20   arg2} {.    if 
2a00: 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f  {$code=="SQLITE_
2a10: 44 45 4c 45 54 45 22 20 26 26 20 24 61 72 67 31  DELETE" && $arg1
2a20: 3d 3d 22 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  =="sqlite_master
2a30: 22 7d 20 7b 0a 20 20 20 20 20 20 20 72 65 74 75  "} {.       retu
2a40: 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20  rn SQLITE_DENY. 
2a50: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
2a60: 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20  SQLITE_OK.  }.  
2a70: 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50 20 54  catchsql {DROP T
2a80: 41 42 4c 45 20 74 32 7d 0a 7d 20 7b 31 20 7b 6e  ABLE t2}.} {1 {n
2a90: 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a  ot authorized}}.
2aa0: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 36  do_test auth-1.6
2ab0: 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  4 {.  execsql {S
2ac0: 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20  ELECT name FROM 
2ad0: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d  sqlite_master}.}
2ae0: 20 7b 74 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75   {t2}.do_test au
2af0: 74 68 2d 31 2e 36 35 20 7b 0a 20 20 70 72 6f 63  th-1.65 {.  proc
2b00: 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31   auth {code arg1
2b10: 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20   arg2} {.    if 
2b20: 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f  {$code=="SQLITE_
2b30: 44 45 4c 45 54 45 22 20 26 26 20 24 61 72 67 31  DELETE" && $arg1
2b40: 3d 3d 22 74 32 22 7d 20 7b 0a 20 20 20 20 20 20  =="t2"} {.      
2b50: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 44   return SQLITE_D
2b60: 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  ENY.    }.    re
2b70: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
2b80: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 44   }.  catchsql {D
2b90: 52 4f 50 20 54 41 42 4c 45 20 74 32 7d 0a 7d 20  ROP TABLE t2}.} 
2ba0: 7b 31 20 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a  {1 {not authoriz
2bb0: 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74  ed}}.do_test aut
2bc0: 68 2d 31 2e 36 36 20 7b 0a 20 20 65 78 65 63 73  h-1.66 {.  execs
2bd0: 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20  ql {SELECT name 
2be0: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74  FROM sqlite_mast
2bf0: 65 72 7d 0a 7d 20 7b 74 32 7d 0a 64 6f 5f 74 65  er}.} {t2}.do_te
2c00: 73 74 20 61 75 74 68 2d 31 2e 36 37 20 7b 0a 20  st auth-1.67 {. 
2c10: 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65   proc auth {code
2c20: 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20   arg1 arg2} {.  
2c30: 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51    if {$code=="SQ
2c40: 4c 49 54 45 5f 44 45 4c 45 54 45 22 20 26 26 20  LITE_DELETE" && 
2c50: 24 61 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f 74  $arg1=="sqlite_t
2c60: 65 6d 70 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20  emp_master"} {. 
2c70: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
2c80: 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20  ITE_DENY.    }. 
2c90: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
2ca0: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
2cb0: 71 6c 20 7b 44 52 4f 50 20 54 41 42 4c 45 20 74  ql {DROP TABLE t
2cc0: 31 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74  1}.} {1 {not aut
2cd0: 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73  horized}}.do_tes
2ce0: 74 20 61 75 74 68 2d 31 2e 36 38 20 7b 0a 20 20  t auth-1.68 {.  
2cf0: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
2d00: 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65  name FROM sqlite
2d10: 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20  _temp_master}.} 
2d20: 7b 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74  {t1}.do_test aut
2d30: 68 2d 31 2e 36 39 20 7b 0a 20 20 70 72 6f 63 20  h-1.69 {.  proc 
2d40: 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20  auth {code arg1 
2d50: 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b  arg2} {.    if {
2d60: 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44  $code=="SQLITE_D
2d70: 45 4c 45 54 45 22 20 26 26 20 24 61 72 67 31 3d  ELETE" && $arg1=
2d80: 3d 22 74 31 22 7d 20 7b 0a 20 20 20 20 20 20 20  ="t1"} {.       
2d90: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 44 45  return SQLITE_DE
2da0: 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  NY.    }.    ret
2db0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20  urn SQLITE_OK.  
2dc0: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52  }.  catchsql {DR
2dd0: 4f 50 20 54 41 42 4c 45 20 74 31 7d 0a 7d 20 7b  OP TABLE t1}.} {
2de0: 31 20 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65  1 {not authorize
2df0: 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  d}}.do_test auth
2e00: 2d 31 2e 37 30 20 7b 0a 20 20 65 78 65 63 73 71  -1.70 {.  execsq
2e10: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
2e20: 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f  ROM sqlite_temp_
2e30: 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 31 7d 0a 0a  master}.} {t1}..
2e40: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 37  do_test auth-1.7
2e50: 31 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  1 {.  proc auth 
2e60: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
2e70: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
2e80: 3d 3d 22 53 51 4c 49 54 45 5f 44 45 4c 45 54 45  =="SQLITE_DELETE
2e90: 22 20 26 26 20 24 61 72 67 31 3d 3d 22 73 71 6c  " && $arg1=="sql
2ea0: 69 74 65 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20  ite_master"} {. 
2eb0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
2ec0: 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d  ITE_IGNORE.    }
2ed0: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
2ee0: 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63  TE_OK.  }.  catc
2ef0: 68 73 71 6c 20 7b 44 52 4f 50 20 54 41 42 4c 45  hsql {DROP TABLE
2f00: 20 74 32 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f   t2}.} {0 {}}.do
2f10: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 37 32 20  _test auth-1.72 
2f20: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
2f30: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
2f40: 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  lite_master}.} {
2f50: 74 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  t2}.do_test auth
2f60: 2d 31 2e 37 33 20 7b 0a 20 20 70 72 6f 63 20 61  -1.73 {.  proc a
2f70: 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61  uth {code arg1 a
2f80: 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24  rg2} {.    if {$
2f90: 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 45  code=="SQLITE_DE
2fa0: 4c 45 54 45 22 20 26 26 20 24 61 72 67 31 3d 3d  LETE" && $arg1==
2fb0: 22 74 32 22 7d 20 7b 0a 20 20 20 20 20 20 20 72  "t2"} {.       r
2fc0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e  eturn SQLITE_IGN
2fd0: 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  ORE.    }.    re
2fe0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
2ff0: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 44   }.  catchsql {D
3000: 52 4f 50 20 54 41 42 4c 45 20 74 32 7d 0a 7d 20  ROP TABLE t2}.} 
3010: 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  {0 {}}.do_test a
3020: 75 74 68 2d 31 2e 37 34 20 7b 0a 20 20 65 78 65  uth-1.74 {.  exe
3030: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d  csql {SELECT nam
3040: 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  e FROM sqlite_ma
3050: 73 74 65 72 7d 0a 7d 20 7b 74 32 7d 0a 64 6f 5f  ster}.} {t2}.do_
3060: 74 65 73 74 20 61 75 74 68 2d 31 2e 37 35 20 7b  test auth-1.75 {
3070: 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f  .  proc auth {co
3080: 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a  de arg1 arg2} {.
3090: 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22      if {$code=="
30a0: 53 51 4c 49 54 45 5f 44 45 4c 45 54 45 22 20 26  SQLITE_DELETE" &
30b0: 26 20 24 61 72 67 31 3d 3d 22 73 71 6c 69 74 65  & $arg1=="sqlite
30c0: 5f 74 65 6d 70 5f 6d 61 73 74 65 72 22 7d 20 7b  _temp_master"} {
30d0: 0a 20 20 20 20 20 20 20 72 65 74 75 72 6e 20 53  .       return S
30e0: 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20  QLITE_IGNORE.   
30f0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51   }.    return SQ
3100: 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61  LITE_OK.  }.  ca
3110: 74 63 68 73 71 6c 20 7b 44 52 4f 50 20 54 41 42  tchsql {DROP TAB
3120: 4c 45 20 74 31 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a  LE t1}.} {0 {}}.
3130: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 37  do_test auth-1.7
3140: 36 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  6 {.  execsql {S
3150: 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20  ELECT name FROM 
3160: 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74  sqlite_temp_mast
3170: 65 72 7d 0a 7d 20 7b 74 31 7d 0a 64 6f 5f 74 65  er}.} {t1}.do_te
3180: 73 74 20 61 75 74 68 2d 31 2e 37 37 20 7b 0a 20  st auth-1.77 {. 
3190: 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65   proc auth {code
31a0: 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20   arg1 arg2} {.  
31b0: 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51    if {$code=="SQ
31c0: 4c 49 54 45 5f 44 45 4c 45 54 45 22 20 26 26 20  LITE_DELETE" && 
31d0: 24 61 72 67 31 3d 3d 22 74 31 22 7d 20 7b 0a 20  $arg1=="t1"} {. 
31e0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
31f0: 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d  ITE_IGNORE.    }
3200: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
3210: 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63  TE_OK.  }.  catc
3220: 68 73 71 6c 20 7b 44 52 4f 50 20 54 41 42 4c 45  hsql {DROP TABLE
3230: 20 74 31 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f   t1}.} {0 {}}.do
3240: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 37 38 20  _test auth-1.78 
3250: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
3260: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
3270: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72  lite_temp_master
3280: 7d 0a 7d 20 7b 74 31 7d 0a 0a 64 6f 5f 74 65 73  }.} {t1}..do_tes
3290: 74 20 61 75 74 68 2d 31 2e 37 39 20 7b 0a 20 20  t auth-1.79 {.  
32a0: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
32b0: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
32c0: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
32d0: 49 54 45 5f 43 52 45 41 54 45 5f 56 49 45 57 22  ITE_CREATE_VIEW"
32e0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a  } {.      set ::
32f0: 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74 20 24  authargs [list $
3300: 61 72 67 31 20 24 61 72 67 32 5d 20 0a 20 20 20  arg1 $arg2] .   
3310: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
3320: 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20  _DENY.    }.    
3330: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
3340: 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20  .  }.  catchsql 
3350: 7b 43 52 45 41 54 45 20 56 49 45 57 20 76 31 20  {CREATE VIEW v1 
3360: 41 53 20 53 45 4c 45 43 54 20 61 2b 31 2c 62 2b  AS SELECT a+1,b+
3370: 31 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 31 20  1 FROM t2}.} {1 
3380: 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d  {not authorized}
3390: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
33a0: 2e 38 30 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75  .80 {.  set ::au
33b0: 74 68 61 72 67 73 0a 7d 20 7b 76 31 20 7b 7d 7d  thargs.} {v1 {}}
33c0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
33d0: 38 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  81 {.  execsql {
33e0: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
33f0: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a   sqlite_master}.
3400: 7d 20 7b 74 32 7d 0a 64 6f 5f 74 65 73 74 20 61  } {t2}.do_test a
3410: 75 74 68 2d 31 2e 38 32 20 7b 0a 20 20 70 72 6f  uth-1.82 {.  pro
3420: 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67  c auth {code arg
3430: 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66  1 arg2} {.    if
3440: 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45   {$code=="SQLITE
3450: 5f 43 52 45 41 54 45 5f 56 49 45 57 22 7d 20 7b  _CREATE_VIEW"} {
3460: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74  .      set ::aut
3470: 68 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67  hargs [list $arg
3480: 31 20 24 61 72 67 32 5d 20 0a 20 20 20 20 20 20  1 $arg2] .      
3490: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47  return SQLITE_IG
34a0: 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72  NORE.    }.    r
34b0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
34c0: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
34d0: 43 52 45 41 54 45 20 56 49 45 57 20 76 31 20 41  CREATE VIEW v1 A
34e0: 53 20 53 45 4c 45 43 54 20 61 2b 31 2c 62 2b 31  S SELECT a+1,b+1
34f0: 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 30 20 7b   FROM t2}.} {0 {
3500: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
3510: 31 2e 38 33 20 7b 0a 20 20 73 65 74 20 3a 3a 61  1.83 {.  set ::a
3520: 75 74 68 61 72 67 73 0a 7d 20 7b 76 31 20 7b 7d  uthargs.} {v1 {}
3530: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
3540: 2e 38 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  .84 {.  execsql 
3550: 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f  {SELECT name FRO
3560: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d  M sqlite_master}
3570: 0a 7d 20 7b 74 32 7d 0a 0a 64 6f 5f 74 65 73 74  .} {t2}..do_test
3580: 20 61 75 74 68 2d 31 2e 38 35 20 7b 0a 20 20 70   auth-1.85 {.  p
3590: 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61  roc auth {code a
35a0: 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20  rg1 arg2} {.    
35b0: 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49  if {$code=="SQLI
35c0: 54 45 5f 43 52 45 41 54 45 5f 54 45 4d 50 5f 56  TE_CREATE_TEMP_V
35d0: 49 45 57 22 7d 20 7b 0a 20 20 20 20 20 20 73 65  IEW"} {.      se
35e0: 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69  t ::authargs [li
35f0: 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d 20  st $arg1 $arg2] 
3600: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51  .      return SQ
3610: 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a  LITE_DENY.    }.
3620: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
3630: 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68  E_OK.  }.  catch
3640: 73 71 6c 20 7b 43 52 45 41 54 45 20 54 45 4d 50  sql {CREATE TEMP
3650: 4f 52 41 52 59 20 56 49 45 57 20 76 31 20 41 53  ORARY VIEW v1 AS
3660: 20 53 45 4c 45 43 54 20 61 2b 31 2c 62 2b 31 20   SELECT a+1,b+1 
3670: 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 31 20 7b 6e  FROM t2}.} {1 {n
3680: 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a  ot authorized}}.
3690: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 38  do_test auth-1.8
36a0: 36 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68  6 {.  set ::auth
36b0: 61 72 67 73 0a 7d 20 7b 76 31 20 7b 7d 7d 0a 64  args.} {v1 {}}.d
36c0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 38 37  o_test auth-1.87
36d0: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45   {.  execsql {SE
36e0: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
36f0: 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65  qlite_temp_maste
3700: 72 7d 0a 7d 20 7b 74 31 7d 0a 64 6f 5f 74 65 73  r}.} {t1}.do_tes
3710: 74 20 61 75 74 68 2d 31 2e 38 38 20 7b 0a 20 20  t auth-1.88 {.  
3720: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
3730: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
3740: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
3750: 49 54 45 5f 43 52 45 41 54 45 5f 54 45 4d 50 5f  ITE_CREATE_TEMP_
3760: 56 49 45 57 22 7d 20 7b 0a 20 20 20 20 20 20 73  VIEW"} {.      s
3770: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c  et ::authargs [l
3780: 69 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d  ist $arg1 $arg2]
3790: 20 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53   .      return S
37a0: 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20  QLITE_IGNORE.   
37b0: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51   }.    return SQ
37c0: 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61  LITE_OK.  }.  ca
37d0: 74 63 68 73 71 6c 20 7b 43 52 45 41 54 45 20 54  tchsql {CREATE T
37e0: 45 4d 50 4f 52 41 52 59 20 56 49 45 57 20 76 31  EMPORARY VIEW v1
37f0: 20 41 53 20 53 45 4c 45 43 54 20 61 2b 31 2c 62   AS SELECT a+1,b
3800: 2b 31 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 30  +1 FROM t2}.} {0
3810: 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   {}}.do_test aut
3820: 68 2d 31 2e 38 39 20 7b 0a 20 20 73 65 74 20 3a  h-1.89 {.  set :
3830: 3a 61 75 74 68 61 72 67 73 0a 7d 20 7b 76 31 20  :authargs.} {v1 
3840: 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  {}}.do_test auth
3850: 2d 31 2e 39 30 20 7b 0a 20 20 65 78 65 63 73 71  -1.90 {.  execsq
3860: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
3870: 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f  ROM sqlite_temp_
3880: 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 31 7d 0a 0a  master}.} {t1}..
3890: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 39  do_test auth-1.9
38a0: 31 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  1 {.  proc auth 
38b0: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
38c0: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
38d0: 3d 3d 22 53 51 4c 49 54 45 5f 49 4e 53 45 52 54  =="SQLITE_INSERT
38e0: 22 20 26 26 20 24 61 72 67 31 3d 3d 22 73 71 6c  " && $arg1=="sql
38f0: 69 74 65 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20  ite_master"} {. 
3900: 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49       return SQLI
3910: 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20  TE_DENY.    }.  
3920: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
3930: 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71  OK.  }.  catchsq
3940: 6c 20 7b 43 52 45 41 54 45 20 56 49 45 57 20 76  l {CREATE VIEW v
3950: 31 20 41 53 20 53 45 4c 45 43 54 20 61 2b 31 2c  1 AS SELECT a+1,
3960: 62 2b 31 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b  b+1 FROM t2}.} {
3970: 31 20 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65  1 {not authorize
3980: 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  d}}.do_test auth
3990: 2d 31 2e 39 32 20 7b 0a 20 20 65 78 65 63 73 71  -1.92 {.  execsq
39a0: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
39b0: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
39c0: 72 7d 0a 7d 20 7b 74 32 7d 0a 64 6f 5f 74 65 73  r}.} {t2}.do_tes
39d0: 74 20 61 75 74 68 2d 31 2e 39 33 20 7b 0a 20 20  t auth-1.93 {.  
39e0: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
39f0: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
3a00: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
3a10: 49 54 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24  ITE_INSERT" && $
3a20: 61 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61  arg1=="sqlite_ma
3a30: 73 74 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72  ster"} {.      r
3a40: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e  eturn SQLITE_IGN
3a50: 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  ORE.    }.    re
3a60: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
3a70: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 43   }.  catchsql {C
3a80: 52 45 41 54 45 20 56 49 45 57 20 76 31 20 41 53  REATE VIEW v1 AS
3a90: 20 53 45 4c 45 43 54 20 61 2b 31 2c 62 2b 31 20   SELECT a+1,b+1 
3aa0: 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 30 20 7b 7d  FROM t2}.} {0 {}
3ab0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
3ac0: 2e 39 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  .94 {.  execsql 
3ad0: 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f  {SELECT name FRO
3ae0: 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d  M sqlite_master}
3af0: 0a 7d 20 7b 74 32 7d 0a 0a 64 6f 5f 74 65 73 74  .} {t2}..do_test
3b00: 20 61 75 74 68 2d 31 2e 39 35 20 7b 0a 20 20 70   auth-1.95 {.  p
3b10: 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61  roc auth {code a
3b20: 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20  rg1 arg2} {.    
3b30: 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49  if {$code=="SQLI
3b40: 54 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24 61  TE_INSERT" && $a
3b50: 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f 74 65 6d  rg1=="sqlite_tem
3b60: 70 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20 20 20  p_master"} {.   
3b70: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
3b80: 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20  _DENY.    }.    
3b90: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
3ba0: 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20  .  }.  catchsql 
3bb0: 7b 43 52 45 41 54 45 20 54 45 4d 50 4f 52 41 52  {CREATE TEMPORAR
3bc0: 59 20 56 49 45 57 20 76 31 20 41 53 20 53 45 4c  Y VIEW v1 AS SEL
3bd0: 45 43 54 20 61 2b 31 2c 62 2b 31 20 46 52 4f 4d  ECT a+1,b+1 FROM
3be0: 20 74 32 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61   t2}.} {1 {not a
3bf0: 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74  uthorized}}.do_t
3c00: 65 73 74 20 61 75 74 68 2d 31 2e 39 36 20 7b 0a  est auth-1.96 {.
3c10: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
3c20: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
3c30: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a  te_temp_master}.
3c40: 7d 20 7b 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61  } {t1}.do_test a
3c50: 75 74 68 2d 31 2e 39 37 20 7b 0a 20 20 70 72 6f  uth-1.97 {.  pro
3c60: 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67  c auth {code arg
3c70: 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66  1 arg2} {.    if
3c80: 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45   {$code=="SQLITE
3c90: 5f 49 4e 53 45 52 54 22 20 26 26 20 24 61 72 67  _INSERT" && $arg
3ca0: 31 3d 3d 22 73 71 6c 69 74 65 5f 74 65 6d 70 5f  1=="sqlite_temp_
3cb0: 6d 61 73 74 65 72 22 7d 20 7b 0a 20 20 20 20 20  master"} {.     
3cc0: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49   return SQLITE_I
3cd0: 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20  GNORE.    }.    
3ce0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
3cf0: 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20  .  }.  catchsql 
3d00: 7b 43 52 45 41 54 45 20 54 45 4d 50 4f 52 41 52  {CREATE TEMPORAR
3d10: 59 20 56 49 45 57 20 76 31 20 41 53 20 53 45 4c  Y VIEW v1 AS SEL
3d20: 45 43 54 20 61 2b 31 2c 62 2b 31 20 46 52 4f 4d  ECT a+1,b+1 FROM
3d30: 20 74 32 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f   t2}.} {0 {}}.do
3d40: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 39 38 20  _test auth-1.98 
3d50: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
3d60: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
3d70: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72  lite_temp_master
3d80: 7d 0a 7d 20 7b 74 31 7d 0a 0a 64 6f 5f 74 65 73  }.} {t1}..do_tes
3d90: 74 20 61 75 74 68 2d 31 2e 39 39 20 7b 0a 20 20  t auth-1.99 {.  
3da0: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
3db0: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
3dc0: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
3dd0: 49 54 45 5f 44 45 4c 45 54 45 22 20 26 26 20 24  ITE_DELETE" && $
3de0: 61 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61  arg1=="sqlite_ma
3df0: 73 74 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72  ster"} {.      r
3e00: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e  eturn SQLITE_DEN
3e10: 59 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  Y.    }.    retu
3e20: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
3e30: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20  .  catchsql {.  
3e40: 20 20 43 52 45 41 54 45 20 56 49 45 57 20 76 32    CREATE VIEW v2
3e50: 20 41 53 20 53 45 4c 45 43 54 20 61 2b 31 2c 62   AS SELECT a+1,b
3e60: 2b 31 20 46 52 4f 4d 20 74 32 3b 0a 20 20 20 20  +1 FROM t2;.    
3e70: 44 52 4f 50 20 56 49 45 57 20 76 32 0a 20 20 7d  DROP VIEW v2.  }
3e80: 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74 68 6f  .} {1 {not autho
3e90: 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20  rized}}.do_test 
3ea0: 61 75 74 68 2d 31 2e 31 30 30 20 7b 0a 20 20 65  auth-1.100 {.  e
3eb0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e  xecsql {SELECT n
3ec0: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
3ed0: 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 32 20 76 32  master}.} {t2 v2
3ee0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
3ef0: 2e 31 30 31 20 7b 0a 20 20 70 72 6f 63 20 61 75  .101 {.  proc au
3f00: 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72  th {code arg1 ar
3f10: 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63  g2} {.    if {$c
3f20: 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f  ode=="SQLITE_DRO
3f30: 50 5f 56 49 45 57 22 7d 20 7b 0a 20 20 20 20 20  P_VIEW"} {.     
3f40: 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20   set ::authargs 
3f50: 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61 72 67  [list $arg1 $arg
3f60: 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  2].      return 
3f70: 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20  SQLITE_DENY.    
3f80: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c  }.    return SQL
3f90: 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74  ITE_OK.  }.  cat
3fa0: 63 68 73 71 6c 20 7b 44 52 4f 50 20 56 49 45 57  chsql {DROP VIEW
3fb0: 20 76 32 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61   v2}.} {1 {not a
3fc0: 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74  uthorized}}.do_t
3fd0: 65 73 74 20 61 75 74 68 2d 31 2e 31 30 32 20 7b  est auth-1.102 {
3fe0: 0a 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67  .  set ::autharg
3ff0: 73 0a 7d 20 7b 76 32 20 7b 7d 7d 0a 64 6f 5f 74  s.} {v2 {}}.do_t
4000: 65 73 74 20 61 75 74 68 2d 31 2e 31 30 33 20 7b  est auth-1.103 {
4010: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
4020: 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c  CT name FROM sql
4030: 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 74  ite_master}.} {t
4040: 32 20 76 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75  2 v2}.do_test au
4050: 74 68 2d 31 2e 31 30 34 20 7b 0a 20 20 70 72 6f  th-1.104 {.  pro
4060: 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67  c auth {code arg
4070: 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66  1 arg2} {.    if
4080: 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45   {$code=="SQLITE
4090: 5f 44 45 4c 45 54 45 22 20 26 26 20 24 61 72 67  _DELETE" && $arg
40a0: 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61 73 74 65  1=="sqlite_maste
40b0: 72 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75  r"} {.      retu
40c0: 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45  rn SQLITE_IGNORE
40d0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
40e0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a  n SQLITE_OK.  }.
40f0: 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50    catchsql {DROP
4100: 20 56 49 45 57 20 76 32 7d 0a 7d 20 7b 30 20 7b   VIEW v2}.} {0 {
4110: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
4120: 31 2e 31 30 35 20 7b 0a 20 20 65 78 65 63 73 71  1.105 {.  execsq
4130: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
4140: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
4150: 72 7d 0a 7d 20 7b 74 32 20 76 32 7d 0a 64 6f 5f  r}.} {t2 v2}.do_
4160: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 30 36 20  test auth-1.106 
4170: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
4180: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
4190: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
41a0: 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 56 49 45  "SQLITE_DROP_VIE
41b0: 57 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  W"} {.      set 
41c0: 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74  ::authargs [list
41d0: 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20   $arg1 $arg2].  
41e0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
41f0: 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20  E_IGNORE.    }. 
4200: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
4210: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
4220: 71 6c 20 7b 44 52 4f 50 20 56 49 45 57 20 76 32  ql {DROP VIEW v2
4230: 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65  }.} {0 {}}.do_te
4240: 73 74 20 61 75 74 68 2d 31 2e 31 30 37 20 7b 0a  st auth-1.107 {.
4250: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
4260: 0a 7d 20 7b 76 32 20 7b 7d 7d 0a 64 6f 5f 74 65  .} {v2 {}}.do_te
4270: 73 74 20 61 75 74 68 2d 31 2e 31 30 38 20 7b 0a  st auth-1.108 {.
4280: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
4290: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
42a0: 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 32  te_master}.} {t2
42b0: 20 76 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   v2}.do_test aut
42c0: 68 2d 31 2e 31 30 39 20 7b 0a 20 20 70 72 6f 63  h-1.109 {.  proc
42d0: 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31   auth {code arg1
42e0: 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20   arg2} {.    if 
42f0: 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f  {$code=="SQLITE_
4300: 44 52 4f 50 5f 56 49 45 57 22 7d 20 7b 0a 20 20  DROP_VIEW"} {.  
4310: 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72      set ::authar
4320: 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24  gs [list $arg1 $
4330: 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75  arg2].      retu
4340: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 20  rn SQLITE_OK.   
4350: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51   }.    return SQ
4360: 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61  LITE_OK.  }.  ca
4370: 74 63 68 73 71 6c 20 7b 44 52 4f 50 20 56 49 45  tchsql {DROP VIE
4380: 57 20 76 32 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64  W v2}.} {0 {}}.d
4390: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 31  o_test auth-1.11
43a0: 30 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68  0 {.  set ::auth
43b0: 61 72 67 73 0a 7d 20 7b 76 32 20 7b 7d 7d 0a 64  args.} {v2 {}}.d
43c0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 31  o_test auth-1.11
43d0: 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  1 {.  execsql {S
43e0: 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20  ELECT name FROM 
43f0: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d  sqlite_master}.}
4400: 20 7b 74 32 7d 0a 0a 0a 64 6f 5f 74 65 73 74 20   {t2}...do_test 
4410: 61 75 74 68 2d 31 2e 31 31 32 20 7b 0a 20 20 70  auth-1.112 {.  p
4420: 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61  roc auth {code a
4430: 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20  rg1 arg2} {.    
4440: 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49  if {$code=="SQLI
4450: 54 45 5f 44 45 4c 45 54 45 22 20 26 26 20 24 61  TE_DELETE" && $a
4460: 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f 74 65 6d  rg1=="sqlite_tem
4470: 70 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20 20 20  p_master"} {.   
4480: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
4490: 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20  _DENY.    }.    
44a0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
44b0: 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20  .  }.  catchsql 
44c0: 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 45 4d  {.    CREATE TEM
44d0: 50 20 56 49 45 57 20 76 31 20 41 53 20 53 45 4c  P VIEW v1 AS SEL
44e0: 45 43 54 20 61 2b 31 2c 62 2b 31 20 46 52 4f 4d  ECT a+1,b+1 FROM
44f0: 20 74 31 3b 0a 20 20 20 20 44 52 4f 50 20 56 49   t1;.    DROP VI
4500: 45 57 20 76 31 0a 20 20 7d 0a 7d 20 7b 31 20 7b  EW v1.  }.} {1 {
4510: 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d  not authorized}}
4520: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
4530: 31 31 33 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  113 {.  execsql 
4540: 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f  {SELECT name FRO
4550: 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61  M sqlite_temp_ma
4560: 73 74 65 72 7d 0a 7d 20 7b 74 31 20 76 31 7d 0a  ster}.} {t1 v1}.
4570: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31  do_test auth-1.1
4580: 31 34 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68  14 {.  proc auth
4590: 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32   {code arg1 arg2
45a0: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64  } {.    if {$cod
45b0: 65 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f  e=="SQLITE_DROP_
45c0: 54 45 4d 50 5f 56 49 45 57 22 7d 20 7b 0a 20 20  TEMP_VIEW"} {.  
45d0: 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72      set ::authar
45e0: 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24  gs [list $arg1 $
45f0: 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75  arg2].      retu
4600: 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20  rn SQLITE_DENY. 
4610: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
4620: 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20  SQLITE_OK.  }.  
4630: 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50 20 56  catchsql {DROP V
4640: 49 45 57 20 76 31 7d 0a 7d 20 7b 31 20 7b 6e 6f  IEW v1}.} {1 {no
4650: 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64  t authorized}}.d
4660: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 31  o_test auth-1.11
4670: 35 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68  5 {.  set ::auth
4680: 61 72 67 73 0a 7d 20 7b 76 31 20 7b 7d 7d 0a 64  args.} {v1 {}}.d
4690: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 31  o_test auth-1.11
46a0: 36 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  6 {.  execsql {S
46b0: 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20  ELECT name FROM 
46c0: 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74  sqlite_temp_mast
46d0: 65 72 7d 0a 7d 20 7b 74 31 20 76 31 7d 0a 64 6f  er}.} {t1 v1}.do
46e0: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 31 37  _test auth-1.117
46f0: 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b   {.  proc auth {
4700: 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20  code arg1 arg2} 
4710: 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d  {.    if {$code=
4720: 3d 22 53 51 4c 49 54 45 5f 44 45 4c 45 54 45 22  ="SQLITE_DELETE"
4730: 20 26 26 20 24 61 72 67 31 3d 3d 22 73 71 6c 69   && $arg1=="sqli
4740: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 22 7d  te_temp_master"}
4750: 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20   {.      return 
4760: 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20  SQLITE_IGNORE.  
4770: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53    }.    return S
4780: 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63  QLITE_OK.  }.  c
4790: 61 74 63 68 73 71 6c 20 7b 44 52 4f 50 20 56 49  atchsql {DROP VI
47a0: 45 57 20 76 31 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a  EW v1}.} {0 {}}.
47b0: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31  do_test auth-1.1
47c0: 31 38 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  18 {.  execsql {
47d0: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
47e0: 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73   sqlite_temp_mas
47f0: 74 65 72 7d 0a 7d 20 7b 74 31 20 76 31 7d 0a 64  ter}.} {t1 v1}.d
4800: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 31  o_test auth-1.11
4810: 39 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  9 {.  proc auth 
4820: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
4830: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
4840: 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54  =="SQLITE_DROP_T
4850: 45 4d 50 5f 56 49 45 57 22 7d 20 7b 0a 20 20 20  EMP_VIEW"} {.   
4860: 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67     set ::autharg
4870: 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61  s [list $arg1 $a
4880: 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72  rg2].      retur
4890: 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a  n SQLITE_IGNORE.
48a0: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
48b0: 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20   SQLITE_OK.  }. 
48c0: 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50 20   catchsql {DROP 
48d0: 56 49 45 57 20 76 31 7d 0a 7d 20 7b 30 20 7b 7d  VIEW v1}.} {0 {}
48e0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
48f0: 2e 31 32 30 20 7b 0a 20 20 73 65 74 20 3a 3a 61  .120 {.  set ::a
4900: 75 74 68 61 72 67 73 0a 7d 20 7b 76 31 20 7b 7d  uthargs.} {v1 {}
4910: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
4920: 2e 31 32 31 20 7b 0a 20 20 65 78 65 63 73 71 6c  .121 {.  execsql
4930: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
4940: 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d  OM sqlite_temp_m
4950: 61 73 74 65 72 7d 0a 7d 20 7b 74 31 20 76 31 7d  aster}.} {t1 v1}
4960: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
4970: 31 32 32 20 7b 0a 20 20 70 72 6f 63 20 61 75 74  122 {.  proc aut
4980: 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67  h {code arg1 arg
4990: 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f  2} {.    if {$co
49a0: 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50  de=="SQLITE_DROP
49b0: 5f 54 45 4d 50 5f 56 49 45 57 22 7d 20 7b 0a 20  _TEMP_VIEW"} {. 
49c0: 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61       set ::autha
49d0: 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20  rgs [list $arg1 
49e0: 24 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74  $arg2].      ret
49f0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20  urn SQLITE_OK.  
4a00: 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53    }.    return S
4a10: 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63  QLITE_OK.  }.  c
4a20: 61 74 63 68 73 71 6c 20 7b 44 52 4f 50 20 56 49  atchsql {DROP VI
4a30: 45 57 20 76 31 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a  EW v1}.} {0 {}}.
4a40: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31  do_test auth-1.1
4a50: 32 33 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74  23 {.  set ::aut
4a60: 68 61 72 67 73 0a 7d 20 7b 76 31 20 7b 7d 7d 0a  hargs.} {v1 {}}.
4a70: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31  do_test auth-1.1
4a80: 32 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  24 {.  execsql {
4a90: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
4aa0: 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73   sqlite_temp_mas
4ab0: 74 65 72 7d 0a 7d 20 7b 74 31 7d 0a 0a 64 6f 5f  ter}.} {t1}..do_
4ac0: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 32 35 20  test auth-1.125 
4ad0: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
4ae0: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
4af0: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
4b00: 22 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54  "SQLITE_CREATE_T
4b10: 52 49 47 47 45 52 22 7d 20 7b 0a 20 20 20 20 20  RIGGER"} {.     
4b20: 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20   set ::authargs 
4b30: 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61 72 67  [list $arg1 $arg
4b40: 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  2].      return 
4b50: 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20  SQLITE_DENY.    
4b60: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c  }.    return SQL
4b70: 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74  ITE_OK.  }.  cat
4b80: 63 68 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41  chsql {.    CREA
4b90: 54 45 20 54 52 49 47 47 45 52 20 72 32 20 44 45  TE TRIGGER r2 DE
4ba0: 4c 45 54 45 20 6f 6e 20 74 32 20 42 45 47 49 4e  LETE on t2 BEGIN
4bb0: 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20  .        SELECT 
4bc0: 4e 55 4c 4c 3b 0a 20 20 20 20 45 4e 44 3b 0a 20  NULL;.    END;. 
4bd0: 20 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74   }.} {1 {not aut
4be0: 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73  horized}}.do_tes
4bf0: 74 20 61 75 74 68 2d 31 2e 31 32 36 20 7b 0a 20  t auth-1.126 {. 
4c00: 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73 0a   set ::authargs.
4c10: 7d 20 7b 72 32 20 74 32 7d 0a 64 6f 5f 74 65 73  } {r2 t2}.do_tes
4c20: 74 20 61 75 74 68 2d 31 2e 31 32 37 20 7b 0a 20  t auth-1.127 {. 
4c30: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
4c40: 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74   name FROM sqlit
4c50: 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 32 7d  e_master}.} {t2}
4c60: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
4c70: 31 32 38 20 7b 0a 20 20 70 72 6f 63 20 61 75 74  128 {.  proc aut
4c80: 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67  h {code arg1 arg
4c90: 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f  2} {.    if {$co
4ca0: 64 65 3d 3d 22 53 51 4c 49 54 45 5f 49 4e 53 45  de=="SQLITE_INSE
4cb0: 52 54 22 20 26 26 20 24 61 72 67 31 3d 3d 22 73  RT" && $arg1=="s
4cc0: 71 6c 69 74 65 5f 6d 61 73 74 65 72 22 7d 20 7b  qlite_master"} {
4cd0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51  .      return SQ
4ce0: 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a  LITE_DENY.    }.
4cf0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
4d00: 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68  E_OK.  }.  catch
4d10: 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45  sql {.    CREATE
4d20: 20 54 52 49 47 47 45 52 20 72 32 20 44 45 4c 45   TRIGGER r2 DELE
4d30: 54 45 20 6f 6e 20 74 32 20 42 45 47 49 4e 0a 20  TE on t2 BEGIN. 
4d40: 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 4e 55         SELECT NU
4d50: 4c 4c 3b 0a 20 20 20 20 45 4e 44 3b 0a 20 20 7d  LL;.    END;.  }
4d60: 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74 68 6f  .} {1 {not autho
4d70: 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20  rized}}.do_test 
4d80: 61 75 74 68 2d 31 2e 31 32 39 20 7b 0a 20 20 65  auth-1.129 {.  e
4d90: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e  xecsql {SELECT n
4da0: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
4db0: 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 32 7d 0a 64  master}.} {t2}.d
4dc0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 33  o_test auth-1.13
4dd0: 30 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  0 {.  proc auth 
4de0: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
4df0: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
4e00: 3d 3d 22 53 51 4c 49 54 45 5f 43 52 45 41 54 45  =="SQLITE_CREATE
4e10: 5f 54 52 49 47 47 45 52 22 7d 20 7b 0a 20 20 20  _TRIGGER"} {.   
4e20: 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67     set ::autharg
4e30: 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61  s [list $arg1 $a
4e40: 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72  rg2].      retur
4e50: 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a  n SQLITE_IGNORE.
4e60: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
4e70: 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20   SQLITE_OK.  }. 
4e80: 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20   catchsql {.    
4e90: 43 52 45 41 54 45 20 54 52 49 47 47 45 52 20 72  CREATE TRIGGER r
4ea0: 32 20 44 45 4c 45 54 45 20 6f 6e 20 74 32 20 42  2 DELETE on t2 B
4eb0: 45 47 49 4e 0a 20 20 20 20 20 20 20 20 53 45 4c  EGIN.        SEL
4ec0: 45 43 54 20 4e 55 4c 4c 3b 0a 20 20 20 20 45 4e  ECT NULL;.    EN
4ed0: 44 3b 0a 20 20 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a  D;.  }.} {0 {}}.
4ee0: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31  do_test auth-1.1
4ef0: 33 31 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74  31 {.  set ::aut
4f00: 68 61 72 67 73 0a 7d 20 7b 72 32 20 74 32 7d 0a  hargs.} {r2 t2}.
4f10: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31  do_test auth-1.1
4f20: 33 32 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  32 {.  execsql {
4f30: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
4f40: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a   sqlite_master}.
4f50: 7d 20 7b 74 32 7d 0a 64 6f 5f 74 65 73 74 20 61  } {t2}.do_test a
4f60: 75 74 68 2d 31 2e 31 33 33 20 7b 0a 20 20 70 72  uth-1.133 {.  pr
4f70: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
4f80: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
4f90: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
4fa0: 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24 61 72  E_INSERT" && $ar
4fb0: 67 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61 73 74  g1=="sqlite_mast
4fc0: 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74  er"} {.      ret
4fd0: 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52  urn SQLITE_IGNOR
4fe0: 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  E.    }.    retu
4ff0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
5000: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20  .  catchsql {.  
5010: 20 20 43 52 45 41 54 45 20 54 52 49 47 47 45 52    CREATE TRIGGER
5020: 20 72 32 20 44 45 4c 45 54 45 20 6f 6e 20 74 32   r2 DELETE on t2
5030: 20 42 45 47 49 4e 0a 20 20 20 20 20 20 20 20 53   BEGIN.        S
5040: 45 4c 45 43 54 20 4e 55 4c 4c 3b 0a 20 20 20 20  ELECT NULL;.    
5050: 45 4e 44 3b 0a 20 20 7d 0a 7d 20 7b 30 20 7b 7d  END;.  }.} {0 {}
5060: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
5070: 2e 31 33 34 20 7b 0a 20 20 65 78 65 63 73 71 6c  .134 {.  execsql
5080: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
5090: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
50a0: 7d 0a 7d 20 7b 74 32 7d 0a 64 6f 5f 74 65 73 74  }.} {t2}.do_test
50b0: 20 61 75 74 68 2d 31 2e 31 33 35 20 7b 0a 20 20   auth-1.135 {.  
50c0: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
50d0: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
50e0: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
50f0: 49 54 45 5f 43 52 45 41 54 45 5f 54 52 49 47 47  ITE_CREATE_TRIGG
5100: 45 52 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  ER"} {.      set
5110: 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73   ::authargs [lis
5120: 74 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20  t $arg1 $arg2]. 
5130: 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49       return SQLI
5140: 54 45 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20 20 20  TE_OK.    }.    
5150: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
5160: 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20  .  }.  catchsql 
5170: 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 52 49  {.    CREATE TRI
5180: 47 47 45 52 20 72 32 20 44 45 4c 45 54 45 20 6f  GGER r2 DELETE o
5190: 6e 20 74 32 20 42 45 47 49 4e 0a 20 20 20 20 20  n t2 BEGIN.     
51a0: 20 20 20 53 45 4c 45 43 54 20 4e 55 4c 4c 3b 0a     SELECT NULL;.
51b0: 20 20 20 20 45 4e 44 3b 0a 20 20 7d 0a 7d 20 7b      END;.  }.} {
51c0: 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75  0 {}}.do_test au
51d0: 74 68 2d 31 2e 31 33 36 20 7b 0a 20 20 73 65 74  th-1.136 {.  set
51e0: 20 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20 7b 72   ::authargs.} {r
51f0: 32 20 74 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75  2 t2}.do_test au
5200: 74 68 2d 31 2e 31 33 37 20 7b 0a 20 20 65 78 65  th-1.137 {.  exe
5210: 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d  csql {SELECT nam
5220: 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61  e FROM sqlite_ma
5230: 73 74 65 72 7d 0a 7d 20 7b 74 32 20 72 32 7d 0a  ster}.} {t2 r2}.
5240: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
5250: 31 33 38 20 7b 0a 20 20 70 72 6f 63 20 61 75 74  138 {.  proc aut
5260: 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67  h {code arg1 arg
5270: 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f  2} {.    if {$co
5280: 64 65 3d 3d 22 53 51 4c 49 54 45 5f 43 52 45 41  de=="SQLITE_CREA
5290: 54 45 5f 54 45 4d 50 5f 54 52 49 47 47 45 52 22  TE_TEMP_TRIGGER"
52a0: 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a  } {.      set ::
52b0: 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74 20 24  authargs [list $
52c0: 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20 20 20  arg1 $arg2].    
52d0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
52e0: 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20 72  DENY.    }.    r
52f0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
5300: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
5310: 0a 20 20 20 20 43 52 45 41 54 45 20 54 52 49 47  .    CREATE TRIG
5320: 47 45 52 20 72 31 20 44 45 4c 45 54 45 20 6f 6e  GER r1 DELETE on
5330: 20 74 31 20 42 45 47 49 4e 0a 20 20 20 20 20 20   t1 BEGIN.      
5340: 20 20 53 45 4c 45 43 54 20 4e 55 4c 4c 3b 0a 20    SELECT NULL;. 
5350: 20 20 20 45 4e 44 3b 0a 20 20 7d 0a 7d 20 7b 31     END;.  }.} {1
5360: 20 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64   {not authorized
5370: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
5380: 31 2e 31 33 39 20 7b 0a 20 20 73 65 74 20 3a 3a  1.139 {.  set ::
5390: 61 75 74 68 61 72 67 73 0a 7d 20 7b 72 31 20 74  authargs.} {r1 t
53a0: 31 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  1}.do_test auth-
53b0: 31 2e 31 34 30 20 7b 0a 20 20 65 78 65 63 73 71  1.140 {.  execsq
53c0: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
53d0: 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f  ROM sqlite_temp_
53e0: 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 31 7d 0a 64  master}.} {t1}.d
53f0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 34  o_test auth-1.14
5400: 31 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  1 {.  proc auth 
5410: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
5420: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
5430: 3d 3d 22 53 51 4c 49 54 45 5f 49 4e 53 45 52 54  =="SQLITE_INSERT
5440: 22 20 26 26 20 24 61 72 67 31 3d 3d 22 73 71 6c  " && $arg1=="sql
5450: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 22  ite_temp_master"
5460: 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  } {.      return
5470: 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20   SQLITE_DENY.   
5480: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51   }.    return SQ
5490: 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61  LITE_OK.  }.  ca
54a0: 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 43 52 45  tchsql {.    CRE
54b0: 41 54 45 20 54 52 49 47 47 45 52 20 72 31 20 44  ATE TRIGGER r1 D
54c0: 45 4c 45 54 45 20 6f 6e 20 74 31 20 42 45 47 49  ELETE on t1 BEGI
54d0: 4e 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43 54  N.        SELECT
54e0: 20 4e 55 4c 4c 3b 0a 20 20 20 20 45 4e 44 3b 0a   NULL;.    END;.
54f0: 20 20 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75    }.} {1 {not au
5500: 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65  thorized}}.do_te
5510: 73 74 20 61 75 74 68 2d 31 2e 31 34 32 20 7b 0a  st auth-1.142 {.
5520: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
5530: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
5540: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a  te_temp_master}.
5550: 7d 20 7b 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61  } {t1}.do_test a
5560: 75 74 68 2d 31 2e 31 34 33 20 7b 0a 20 20 70 72  uth-1.143 {.  pr
5570: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
5580: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
5590: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
55a0: 45 5f 43 52 45 41 54 45 5f 54 45 4d 50 5f 54 52  E_CREATE_TEMP_TR
55b0: 49 47 47 45 52 22 7d 20 7b 0a 20 20 20 20 20 20  IGGER"} {.      
55c0: 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b  set ::authargs [
55d0: 6c 69 73 74 20 24 61 72 67 31 20 24 61 72 67 32  list $arg1 $arg2
55e0: 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53  ].      return S
55f0: 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20  QLITE_IGNORE.   
5600: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51   }.    return SQ
5610: 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61  LITE_OK.  }.  ca
5620: 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 43 52 45  tchsql {.    CRE
5630: 41 54 45 20 54 52 49 47 47 45 52 20 72 31 20 44  ATE TRIGGER r1 D
5640: 45 4c 45 54 45 20 6f 6e 20 74 31 20 42 45 47 49  ELETE on t1 BEGI
5650: 4e 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43 54  N.        SELECT
5660: 20 4e 55 4c 4c 3b 0a 20 20 20 20 45 4e 44 3b 0a   NULL;.    END;.
5670: 20 20 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f    }.} {0 {}}.do_
5680: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 34 34 20  test auth-1.144 
5690: 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72  {.  set ::authar
56a0: 67 73 0a 7d 20 7b 72 31 20 74 31 7d 0a 64 6f 5f  gs.} {r1 t1}.do_
56b0: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 34 35 20  test auth-1.145 
56c0: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
56d0: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
56e0: 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72  lite_temp_master
56f0: 7d 0a 7d 20 7b 74 31 7d 0a 64 6f 5f 74 65 73 74  }.} {t1}.do_test
5700: 20 61 75 74 68 2d 31 2e 31 34 36 20 7b 0a 20 20   auth-1.146 {.  
5710: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
5720: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
5730: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
5740: 49 54 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24  ITE_INSERT" && $
5750: 61 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f 74 65  arg1=="sqlite_te
5760: 6d 70 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20 20  mp_master"} {.  
5770: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
5780: 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20  E_IGNORE.    }. 
5790: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
57a0: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
57b0: 71 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20  ql {.    CREATE 
57c0: 54 52 49 47 47 45 52 20 72 31 20 44 45 4c 45 54  TRIGGER r1 DELET
57d0: 45 20 6f 6e 20 74 31 20 42 45 47 49 4e 0a 20 20  E on t1 BEGIN.  
57e0: 20 20 20 20 20 20 53 45 4c 45 43 54 20 4e 55 4c        SELECT NUL
57f0: 4c 3b 0a 20 20 20 20 45 4e 44 3b 0a 20 20 7d 0a  L;.    END;.  }.
5800: 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74  } {0 {}}.do_test
5810: 20 61 75 74 68 2d 31 2e 31 34 37 20 7b 0a 20 20   auth-1.147 {.  
5820: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
5830: 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65  name FROM sqlite
5840: 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20  _temp_master}.} 
5850: 7b 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74  {t1}.do_test aut
5860: 68 2d 31 2e 31 34 38 20 7b 0a 20 20 70 72 6f 63  h-1.148 {.  proc
5870: 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31   auth {code arg1
5880: 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20   arg2} {.    if 
5890: 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f  {$code=="SQLITE_
58a0: 43 52 45 41 54 45 5f 54 45 4d 50 5f 54 52 49 47  CREATE_TEMP_TRIG
58b0: 47 45 52 22 7d 20 7b 0a 20 20 20 20 20 20 73 65  GER"} {.      se
58c0: 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69  t ::authargs [li
58d0: 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a  st $arg1 $arg2].
58e0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
58f0: 49 54 45 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20 20  ITE_OK.    }.   
5900: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
5910: 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c  K.  }.  catchsql
5920: 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 52   {.    CREATE TR
5930: 49 47 47 45 52 20 72 31 20 44 45 4c 45 54 45 20  IGGER r1 DELETE 
5940: 6f 6e 20 74 31 20 42 45 47 49 4e 0a 20 20 20 20  on t1 BEGIN.    
5950: 20 20 20 20 53 45 4c 45 43 54 20 4e 55 4c 4c 3b      SELECT NULL;
5960: 0a 20 20 20 20 45 4e 44 3b 0a 20 20 7d 0a 7d 20  .    END;.  }.} 
5970: 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  {0 {}}.do_test a
5980: 75 74 68 2d 31 2e 31 34 39 20 7b 0a 20 20 73 65  uth-1.149 {.  se
5990: 74 20 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20 7b  t ::authargs.} {
59a0: 72 31 20 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61  r1 t1}.do_test a
59b0: 75 74 68 2d 31 2e 31 35 30 20 7b 0a 20 20 65 78  uth-1.150 {.  ex
59c0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61  ecsql {SELECT na
59d0: 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 74  me FROM sqlite_t
59e0: 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 74  emp_master}.} {t
59f0: 31 20 72 31 7d 0a 0a 64 6f 5f 74 65 73 74 20 61  1 r1}..do_test a
5a00: 75 74 68 2d 31 2e 31 35 31 20 7b 0a 20 20 70 72  uth-1.151 {.  pr
5a10: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
5a20: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
5a30: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
5a40: 45 5f 44 45 4c 45 54 45 22 20 26 26 20 24 61 72  E_DELETE" && $ar
5a50: 67 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61 73 74  g1=="sqlite_mast
5a60: 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74  er"} {.      ret
5a70: 75 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a  urn SQLITE_DENY.
5a80: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
5a90: 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20   SQLITE_OK.  }. 
5aa0: 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50 20   catchsql {DROP 
5ab0: 54 52 49 47 47 45 52 20 72 32 7d 0a 7d 20 7b 31  TRIGGER r2}.} {1
5ac0: 20 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64   {not authorized
5ad0: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
5ae0: 31 2e 31 35 32 20 7b 0a 20 20 65 78 65 63 73 71  1.152 {.  execsq
5af0: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
5b00: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
5b10: 72 7d 0a 7d 20 7b 74 32 20 72 32 7d 0a 64 6f 5f  r}.} {t2 r2}.do_
5b20: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 35 33 20  test auth-1.153 
5b30: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
5b40: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
5b50: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
5b60: 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54 52 49  "SQLITE_DROP_TRI
5b70: 47 47 45 52 22 7d 20 7b 0a 20 20 20 20 20 20 73  GGER"} {.      s
5b80: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c  et ::authargs [l
5b90: 69 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d  ist $arg1 $arg2]
5ba0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51  .      return SQ
5bb0: 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a  LITE_DENY.    }.
5bc0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
5bd0: 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68  E_OK.  }.  catch
5be0: 73 71 6c 20 7b 44 52 4f 50 20 54 52 49 47 47 45  sql {DROP TRIGGE
5bf0: 52 20 72 32 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20  R r2}.} {1 {not 
5c00: 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f  authorized}}.do_
5c10: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 35 34 20  test auth-1.154 
5c20: 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72  {.  set ::authar
5c30: 67 73 0a 7d 20 7b 72 32 20 74 32 7d 0a 64 6f 5f  gs.} {r2 t2}.do_
5c40: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 35 35 20  test auth-1.155 
5c50: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
5c60: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
5c70: 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  lite_master}.} {
5c80: 74 32 20 72 32 7d 0a 64 6f 5f 74 65 73 74 20 61  t2 r2}.do_test a
5c90: 75 74 68 2d 31 2e 31 35 36 20 7b 0a 20 20 70 72  uth-1.156 {.  pr
5ca0: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
5cb0: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
5cc0: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
5cd0: 45 5f 44 45 4c 45 54 45 22 20 26 26 20 24 61 72  E_DELETE" && $ar
5ce0: 67 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61 73 74  g1=="sqlite_mast
5cf0: 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74  er"} {.      ret
5d00: 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52  urn SQLITE_IGNOR
5d10: 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  E.    }.    retu
5d20: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
5d30: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f  .  catchsql {DRO
5d40: 50 20 54 52 49 47 47 45 52 20 72 32 7d 0a 7d 20  P TRIGGER r2}.} 
5d50: 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  {0 {}}.do_test a
5d60: 75 74 68 2d 31 2e 31 35 37 20 7b 0a 20 20 65 78  uth-1.157 {.  ex
5d70: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61  ecsql {SELECT na
5d80: 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d  me FROM sqlite_m
5d90: 61 73 74 65 72 7d 0a 7d 20 7b 74 32 20 72 32 7d  aster}.} {t2 r2}
5da0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
5db0: 31 35 38 20 7b 0a 20 20 70 72 6f 63 20 61 75 74  158 {.  proc aut
5dc0: 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67  h {code arg1 arg
5dd0: 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f  2} {.    if {$co
5de0: 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50  de=="SQLITE_DROP
5df0: 5f 54 52 49 47 47 45 52 22 7d 20 7b 0a 20 20 20  _TRIGGER"} {.   
5e00: 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67     set ::autharg
5e10: 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61  s [list $arg1 $a
5e20: 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72  rg2].      retur
5e30: 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a  n SQLITE_IGNORE.
5e40: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
5e50: 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20   SQLITE_OK.  }. 
5e60: 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50 20   catchsql {DROP 
5e70: 54 52 49 47 47 45 52 20 72 32 7d 0a 7d 20 7b 30  TRIGGER r2}.} {0
5e80: 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   {}}.do_test aut
5e90: 68 2d 31 2e 31 35 39 20 7b 0a 20 20 73 65 74 20  h-1.159 {.  set 
5ea0: 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20 7b 72 32  ::authargs.} {r2
5eb0: 20 74 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   t2}.do_test aut
5ec0: 68 2d 31 2e 31 36 30 20 7b 0a 20 20 65 78 65 63  h-1.160 {.  exec
5ed0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65  sql {SELECT name
5ee0: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
5ef0: 74 65 72 7d 0a 7d 20 7b 74 32 20 72 32 7d 0a 64  ter}.} {t2 r2}.d
5f00: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 36  o_test auth-1.16
5f10: 31 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  1 {.  proc auth 
5f20: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
5f30: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
5f40: 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54  =="SQLITE_DROP_T
5f50: 52 49 47 47 45 52 22 7d 20 7b 0a 20 20 20 20 20  RIGGER"} {.     
5f60: 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20   set ::authargs 
5f70: 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61 72 67  [list $arg1 $arg
5f80: 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  2].      return 
5f90: 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 20 20 7d 0a  SQLITE_OK.    }.
5fa0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
5fb0: 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68  E_OK.  }.  catch
5fc0: 73 71 6c 20 7b 44 52 4f 50 20 54 52 49 47 47 45  sql {DROP TRIGGE
5fd0: 52 20 72 32 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64  R r2}.} {0 {}}.d
5fe0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 36  o_test auth-1.16
5ff0: 32 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68  2 {.  set ::auth
6000: 61 72 67 73 0a 7d 20 7b 72 32 20 74 32 7d 0a 64  args.} {r2 t2}.d
6010: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 36  o_test auth-1.16
6020: 33 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  3 {.  execsql {S
6030: 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20  ELECT name FROM 
6040: 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d  sqlite_master}.}
6050: 20 7b 74 32 7d 0a 0a 64 6f 5f 74 65 73 74 20 61   {t2}..do_test a
6060: 75 74 68 2d 31 2e 31 36 34 20 7b 0a 20 20 70 72  uth-1.164 {.  pr
6070: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
6080: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
6090: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
60a0: 45 5f 44 45 4c 45 54 45 22 20 26 26 20 24 61 72  E_DELETE" && $ar
60b0: 67 31 3d 3d 22 73 71 6c 69 74 65 5f 74 65 6d 70  g1=="sqlite_temp
60c0: 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20 20 20 20  _master"} {.    
60d0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
60e0: 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20 72  DENY.    }.    r
60f0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
6100: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
6110: 44 52 4f 50 20 54 52 49 47 47 45 52 20 72 31 7d  DROP TRIGGER r1}
6120: 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75 74 68 6f  .} {1 {not autho
6130: 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20  rized}}.do_test 
6140: 61 75 74 68 2d 31 2e 31 36 35 20 7b 0a 20 20 65  auth-1.165 {.  e
6150: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e  xecsql {SELECT n
6160: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
6170: 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  temp_master}.} {
6180: 74 31 20 72 31 7d 0a 64 6f 5f 74 65 73 74 20 61  t1 r1}.do_test a
6190: 75 74 68 2d 31 2e 31 36 36 20 7b 0a 20 20 70 72  uth-1.166 {.  pr
61a0: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
61b0: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
61c0: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
61d0: 45 5f 44 52 4f 50 5f 54 45 4d 50 5f 54 52 49 47  E_DROP_TEMP_TRIG
61e0: 47 45 52 22 7d 20 7b 0a 20 20 20 20 20 20 73 65  GER"} {.      se
61f0: 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69  t ::authargs [li
6200: 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a  st $arg1 $arg2].
6210: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
6220: 49 54 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20  ITE_DENY.    }. 
6230: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
6240: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
6250: 71 6c 20 7b 44 52 4f 50 20 54 52 49 47 47 45 52  ql {DROP TRIGGER
6260: 20 72 31 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61   r1}.} {1 {not a
6270: 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74  uthorized}}.do_t
6280: 65 73 74 20 61 75 74 68 2d 31 2e 31 36 37 20 7b  est auth-1.167 {
6290: 0a 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67  .  set ::autharg
62a0: 73 0a 7d 20 7b 72 31 20 74 31 7d 0a 64 6f 5f 74  s.} {r1 t1}.do_t
62b0: 65 73 74 20 61 75 74 68 2d 31 2e 31 36 38 20 7b  est auth-1.168 {
62c0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
62d0: 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c  CT name FROM sql
62e0: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d  ite_temp_master}
62f0: 0a 7d 20 7b 74 31 20 72 31 7d 0a 64 6f 5f 74 65  .} {t1 r1}.do_te
6300: 73 74 20 61 75 74 68 2d 31 2e 31 36 39 20 7b 0a  st auth-1.169 {.
6310: 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64    proc auth {cod
6320: 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20  e arg1 arg2} {. 
6330: 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53     if {$code=="S
6340: 51 4c 49 54 45 5f 44 45 4c 45 54 45 22 20 26 26  QLITE_DELETE" &&
6350: 20 24 61 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f   $arg1=="sqlite_
6360: 74 65 6d 70 5f 6d 61 73 74 65 72 22 7d 20 7b 0a  temp_master"} {.
6370: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
6380: 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d  ITE_IGNORE.    }
6390: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
63a0: 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63  TE_OK.  }.  catc
63b0: 68 73 71 6c 20 7b 44 52 4f 50 20 54 52 49 47 47  hsql {DROP TRIGG
63c0: 45 52 20 72 31 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a  ER r1}.} {0 {}}.
63d0: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31  do_test auth-1.1
63e0: 37 30 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  70 {.  execsql {
63f0: 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d  SELECT name FROM
6400: 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73   sqlite_temp_mas
6410: 74 65 72 7d 0a 7d 20 7b 74 31 20 72 31 7d 0a 64  ter}.} {t1 r1}.d
6420: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 37  o_test auth-1.17
6430: 31 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  1 {.  proc auth 
6440: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
6450: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
6460: 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 54  =="SQLITE_DROP_T
6470: 45 4d 50 5f 54 52 49 47 47 45 52 22 7d 20 7b 0a  EMP_TRIGGER"} {.
6480: 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68        set ::auth
6490: 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31  args [list $arg1
64a0: 20 24 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65   $arg2].      re
64b0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f  turn SQLITE_IGNO
64c0: 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  RE.    }.    ret
64d0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20  urn SQLITE_OK.  
64e0: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52  }.  catchsql {DR
64f0: 4f 50 20 54 52 49 47 47 45 52 20 72 31 7d 0a 7d  OP TRIGGER r1}.}
6500: 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20   {0 {}}.do_test 
6510: 61 75 74 68 2d 31 2e 31 37 32 20 7b 0a 20 20 73  auth-1.172 {.  s
6520: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20  et ::authargs.} 
6530: 7b 72 31 20 74 31 7d 0a 64 6f 5f 74 65 73 74 20  {r1 t1}.do_test 
6540: 61 75 74 68 2d 31 2e 31 37 33 20 7b 0a 20 20 65  auth-1.173 {.  e
6550: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e  xecsql {SELECT n
6560: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
6570: 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  temp_master}.} {
6580: 74 31 20 72 31 7d 0a 64 6f 5f 74 65 73 74 20 61  t1 r1}.do_test a
6590: 75 74 68 2d 31 2e 31 37 34 20 7b 0a 20 20 70 72  uth-1.174 {.  pr
65a0: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
65b0: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
65c0: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
65d0: 45 5f 44 52 4f 50 5f 54 45 4d 50 5f 54 52 49 47  E_DROP_TEMP_TRIG
65e0: 47 45 52 22 7d 20 7b 0a 20 20 20 20 20 20 73 65  GER"} {.      se
65f0: 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69  t ::authargs [li
6600: 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a  st $arg1 $arg2].
6610: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
6620: 49 54 45 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20 20  ITE_OK.    }.   
6630: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
6640: 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c  K.  }.  catchsql
6650: 20 7b 44 52 4f 50 20 54 52 49 47 47 45 52 20 72   {DROP TRIGGER r
6660: 31 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74  1}.} {0 {}}.do_t
6670: 65 73 74 20 61 75 74 68 2d 31 2e 31 37 35 20 7b  est auth-1.175 {
6680: 0a 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67  .  set ::autharg
6690: 73 0a 7d 20 7b 72 31 20 74 31 7d 0a 64 6f 5f 74  s.} {r1 t1}.do_t
66a0: 65 73 74 20 61 75 74 68 2d 31 2e 31 37 36 20 7b  est auth-1.176 {
66b0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
66c0: 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c  CT name FROM sql
66d0: 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d  ite_temp_master}
66e0: 0a 7d 20 7b 74 31 7d 0a 0a 64 6f 5f 74 65 73 74  .} {t1}..do_test
66f0: 20 61 75 74 68 2d 31 2e 31 37 37 20 7b 0a 20 20   auth-1.177 {.  
6700: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
6710: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
6720: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
6730: 49 54 45 5f 43 52 45 41 54 45 5f 49 4e 44 45 58  ITE_CREATE_INDEX
6740: 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a  "} {.      set :
6750: 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74 20  :authargs [list 
6760: 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20 20  $arg1 $arg2].   
6770: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
6780: 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20  _DENY.    }.    
6790: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b  return SQLITE_OK
67a0: 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20  .  }.  catchsql 
67b0: 7b 43 52 45 41 54 45 20 49 4e 44 45 58 20 69 32  {CREATE INDEX i2
67c0: 20 4f 4e 20 74 32 28 61 29 7d 0a 7d 20 7b 31 20   ON t2(a)}.} {1 
67d0: 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d  {not authorized}
67e0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
67f0: 2e 31 37 38 20 7b 0a 20 20 73 65 74 20 3a 3a 61  .178 {.  set ::a
6800: 75 74 68 61 72 67 73 0a 7d 20 7b 69 32 20 74 32  uthargs.} {i2 t2
6810: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
6820: 2e 31 37 39 20 7b 0a 20 20 65 78 65 63 73 71 6c  .179 {.  execsql
6830: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
6840: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
6850: 7d 0a 7d 20 7b 74 32 7d 0a 64 6f 5f 74 65 73 74  }.} {t2}.do_test
6860: 20 61 75 74 68 2d 31 2e 31 38 30 20 7b 0a 20 20   auth-1.180 {.  
6870: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
6880: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
6890: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
68a0: 49 54 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24  ITE_INSERT" && $
68b0: 61 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61  arg1=="sqlite_ma
68c0: 73 74 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72  ster"} {.      r
68d0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e  eturn SQLITE_DEN
68e0: 59 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  Y.    }.    retu
68f0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
6900: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 43 52 45  .  catchsql {CRE
6910: 41 54 45 20 49 4e 44 45 58 20 69 32 20 4f 4e 20  ATE INDEX i2 ON 
6920: 74 32 28 61 29 7d 0a 7d 20 7b 31 20 7b 6e 6f 74  t2(a)}.} {1 {not
6930: 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f   authorized}}.do
6940: 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 38 31  _test auth-1.181
6950: 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45   {.  execsql {SE
6960: 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73  LECT name FROM s
6970: 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20  qlite_master}.} 
6980: 7b 74 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74  {t2}.do_test aut
6990: 68 2d 31 2e 31 38 32 20 7b 0a 20 20 70 72 6f 63  h-1.182 {.  proc
69a0: 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31   auth {code arg1
69b0: 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20   arg2} {.    if 
69c0: 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f  {$code=="SQLITE_
69d0: 43 52 45 41 54 45 5f 49 4e 44 45 58 22 7d 20 7b  CREATE_INDEX"} {
69e0: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74  .      set ::aut
69f0: 68 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67  hargs [list $arg
6a00: 31 20 24 61 72 67 32 5d 0a 20 20 20 20 20 20 72  1 $arg2].      r
6a10: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e  eturn SQLITE_IGN
6a20: 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  ORE.    }.    re
6a30: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
6a40: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 43   }.  catchsql {C
6a50: 52 45 41 54 45 20 49 4e 44 45 58 20 69 32 20 4f  REATE INDEX i2 O
6a60: 4e 20 74 32 28 62 29 7d 0a 7d 20 7b 30 20 7b 7d  N t2(b)}.} {0 {}
6a70: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
6a80: 2e 31 38 33 20 7b 0a 20 20 73 65 74 20 3a 3a 61  .183 {.  set ::a
6a90: 75 74 68 61 72 67 73 0a 7d 20 7b 69 32 20 74 32  uthargs.} {i2 t2
6aa0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
6ab0: 2e 31 38 34 20 7b 0a 20 20 65 78 65 63 73 71 6c  .184 {.  execsql
6ac0: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
6ad0: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
6ae0: 7d 0a 7d 20 7b 74 32 7d 0a 64 6f 5f 74 65 73 74  }.} {t2}.do_test
6af0: 20 61 75 74 68 2d 31 2e 31 38 35 20 7b 0a 20 20   auth-1.185 {.  
6b00: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
6b10: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
6b20: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
6b30: 49 54 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24  ITE_INSERT" && $
6b40: 61 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f 6d 61  arg1=="sqlite_ma
6b50: 73 74 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72  ster"} {.      r
6b60: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e  eturn SQLITE_IGN
6b70: 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  ORE.    }.    re
6b80: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
6b90: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 43   }.  catchsql {C
6ba0: 52 45 41 54 45 20 49 4e 44 45 58 20 69 32 20 4f  REATE INDEX i2 O
6bb0: 4e 20 74 32 28 62 29 7d 0a 7d 20 7b 30 20 7b 7d  N t2(b)}.} {0 {}
6bc0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
6bd0: 2e 31 38 36 20 7b 0a 20 20 65 78 65 63 73 71 6c  .186 {.  execsql
6be0: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
6bf0: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
6c00: 7d 0a 7d 20 7b 74 32 7d 0a 64 6f 5f 74 65 73 74  }.} {t2}.do_test
6c10: 20 61 75 74 68 2d 31 2e 31 38 37 20 7b 0a 20 20   auth-1.187 {.  
6c20: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
6c30: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
6c40: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
6c50: 49 54 45 5f 43 52 45 41 54 45 5f 49 4e 44 45 58  ITE_CREATE_INDEX
6c60: 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a  "} {.      set :
6c70: 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74 20  :authargs [list 
6c80: 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20 20  $arg1 $arg2].   
6c90: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
6ca0: 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  _OK.    }.    re
6cb0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
6cc0: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 43   }.  catchsql {C
6cd0: 52 45 41 54 45 20 49 4e 44 45 58 20 69 32 20 4f  REATE INDEX i2 O
6ce0: 4e 20 74 32 28 61 29 7d 0a 7d 20 7b 30 20 7b 7d  N t2(a)}.} {0 {}
6cf0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
6d00: 2e 31 38 38 20 7b 0a 20 20 73 65 74 20 3a 3a 61  .188 {.  set ::a
6d10: 75 74 68 61 72 67 73 0a 7d 20 7b 69 32 20 74 32  uthargs.} {i2 t2
6d20: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
6d30: 2e 31 38 39 20 7b 0a 20 20 65 78 65 63 73 71 6c  .189 {.  execsql
6d40: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
6d50: 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72  OM sqlite_master
6d60: 7d 0a 7d 20 7b 74 32 20 69 32 7d 0a 0a 64 6f 5f  }.} {t2 i2}..do_
6d70: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 39 30 20  test auth-1.190 
6d80: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
6d90: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
6da0: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
6db0: 22 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54  "SQLITE_CREATE_T
6dc0: 45 4d 50 5f 49 4e 44 45 58 22 7d 20 7b 0a 20 20  EMP_INDEX"} {.  
6dd0: 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72      set ::authar
6de0: 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24  gs [list $arg1 $
6df0: 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75  arg2].      retu
6e00: 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20  rn SQLITE_DENY. 
6e10: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
6e20: 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20  SQLITE_OK.  }.  
6e30: 63 61 74 63 68 73 71 6c 20 7b 43 52 45 41 54 45  catchsql {CREATE
6e40: 20 49 4e 44 45 58 20 69 31 20 4f 4e 20 74 31 28   INDEX i1 ON t1(
6e50: 61 29 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75  a)}.} {1 {not au
6e60: 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65  thorized}}.do_te
6e70: 73 74 20 61 75 74 68 2d 31 2e 31 39 31 20 7b 0a  st auth-1.191 {.
6e80: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
6e90: 0a 7d 20 7b 69 31 20 74 31 7d 0a 64 6f 5f 74 65  .} {i1 t1}.do_te
6ea0: 73 74 20 61 75 74 68 2d 31 2e 31 39 32 20 7b 0a  st auth-1.192 {.
6eb0: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
6ec0: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
6ed0: 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a  te_temp_master}.
6ee0: 7d 20 7b 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61  } {t1}.do_test a
6ef0: 75 74 68 2d 31 2e 31 39 33 20 7b 0a 20 20 70 72  uth-1.193 {.  pr
6f00: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
6f10: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
6f20: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
6f30: 45 5f 49 4e 53 45 52 54 22 20 26 26 20 24 61 72  E_INSERT" && $ar
6f40: 67 31 3d 3d 22 73 71 6c 69 74 65 5f 74 65 6d 70  g1=="sqlite_temp
6f50: 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20 20 20 20  _master"} {.    
6f60: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
6f70: 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20 72  DENY.    }.    r
6f80: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
6f90: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
6fa0: 43 52 45 41 54 45 20 49 4e 44 45 58 20 69 31 20  CREATE INDEX i1 
6fb0: 4f 4e 20 74 31 28 62 29 7d 0a 7d 20 7b 31 20 7b  ON t1(b)}.} {1 {
6fc0: 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d  not authorized}}
6fd0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
6fe0: 31 39 34 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  194 {.  execsql 
6ff0: 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f  {SELECT name FRO
7000: 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61  M sqlite_temp_ma
7010: 73 74 65 72 7d 0a 7d 20 7b 74 31 7d 0a 64 6f 5f  ster}.} {t1}.do_
7020: 74 65 73 74 20 61 75 74 68 2d 31 2e 31 39 35 20  test auth-1.195 
7030: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
7040: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
7050: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
7060: 22 53 51 4c 49 54 45 5f 43 52 45 41 54 45 5f 54  "SQLITE_CREATE_T
7070: 45 4d 50 5f 49 4e 44 45 58 22 7d 20 7b 0a 20 20  EMP_INDEX"} {.  
7080: 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72      set ::authar
7090: 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24  gs [list $arg1 $
70a0: 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75  arg2].      retu
70b0: 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45  rn SQLITE_IGNORE
70c0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
70d0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a  n SQLITE_OK.  }.
70e0: 20 20 63 61 74 63 68 73 71 6c 20 7b 43 52 45 41    catchsql {CREA
70f0: 54 45 20 49 4e 44 45 58 20 69 31 20 4f 4e 20 74  TE INDEX i1 ON t
7100: 31 28 62 29 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64  1(b)}.} {0 {}}.d
7110: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 39  o_test auth-1.19
7120: 36 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68  6 {.  set ::auth
7130: 61 72 67 73 0a 7d 20 7b 69 31 20 74 31 7d 0a 64  args.} {i1 t1}.d
7140: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 31 39  o_test auth-1.19
7150: 37 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53  7 {.  execsql {S
7160: 45 4c 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20  ELECT name FROM 
7170: 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74  sqlite_temp_mast
7180: 65 72 7d 0a 7d 20 7b 74 31 7d 0a 64 6f 5f 74 65  er}.} {t1}.do_te
7190: 73 74 20 61 75 74 68 2d 31 2e 31 39 38 20 7b 0a  st auth-1.198 {.
71a0: 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64    proc auth {cod
71b0: 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20  e arg1 arg2} {. 
71c0: 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53     if {$code=="S
71d0: 51 4c 49 54 45 5f 49 4e 53 45 52 54 22 20 26 26  QLITE_INSERT" &&
71e0: 20 24 61 72 67 31 3d 3d 22 73 71 6c 69 74 65 5f   $arg1=="sqlite_
71f0: 74 65 6d 70 5f 6d 61 73 74 65 72 22 7d 20 7b 0a  temp_master"} {.
7200: 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c        return SQL
7210: 49 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d  ITE_IGNORE.    }
7220: 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49  .    return SQLI
7230: 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63  TE_OK.  }.  catc
7240: 68 73 71 6c 20 7b 43 52 45 41 54 45 20 49 4e 44  hsql {CREATE IND
7250: 45 58 20 69 31 20 4f 4e 20 74 31 28 63 29 7d 0a  EX i1 ON t1(c)}.
7260: 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74  } {0 {}}.do_test
7270: 20 61 75 74 68 2d 31 2e 31 39 39 20 7b 0a 20 20   auth-1.199 {.  
7280: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
7290: 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65  name FROM sqlite
72a0: 5f 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20  _temp_master}.} 
72b0: 7b 74 31 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74  {t1}.do_test aut
72c0: 68 2d 31 2e 32 30 30 20 7b 0a 20 20 70 72 6f 63  h-1.200 {.  proc
72d0: 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31   auth {code arg1
72e0: 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20   arg2} {.    if 
72f0: 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f  {$code=="SQLITE_
7300: 43 52 45 41 54 45 5f 54 45 4d 50 5f 49 4e 44 45  CREATE_TEMP_INDE
7310: 58 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  X"} {.      set 
7320: 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74  ::authargs [list
7330: 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20   $arg1 $arg2].  
7340: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
7350: 45 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20 20 20 72  E_OK.    }.    r
7360: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
7370: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
7380: 43 52 45 41 54 45 20 49 4e 44 45 58 20 69 31 20  CREATE INDEX i1 
7390: 4f 4e 20 74 31 28 61 29 7d 0a 7d 20 7b 30 20 7b  ON t1(a)}.} {0 {
73a0: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
73b0: 31 2e 32 30 31 20 7b 0a 20 20 73 65 74 20 3a 3a  1.201 {.  set ::
73c0: 61 75 74 68 61 72 67 73 0a 7d 20 7b 69 31 20 74  authargs.} {i1 t
73d0: 31 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  1}.do_test auth-
73e0: 31 2e 32 30 32 20 7b 0a 20 20 65 78 65 63 73 71  1.202 {.  execsq
73f0: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
7400: 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f  ROM sqlite_temp_
7410: 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 31 20 69 31  master}.} {t1 i1
7420: 7d 0a 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }..do_test auth-
7430: 31 2e 32 30 33 20 7b 0a 20 20 70 72 6f 63 20 61  1.203 {.  proc a
7440: 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61  uth {code arg1 a
7450: 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24  rg2} {.    if {$
7460: 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 45  code=="SQLITE_DE
7470: 4c 45 54 45 22 20 26 26 20 24 61 72 67 31 3d 3d  LETE" && $arg1==
7480: 22 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 22 7d  "sqlite_master"}
7490: 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20   {.      return 
74a0: 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20  SQLITE_DENY.    
74b0: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c  }.    return SQL
74c0: 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74  ITE_OK.  }.  cat
74d0: 63 68 73 71 6c 20 7b 44 52 4f 50 20 49 4e 44 45  chsql {DROP INDE
74e0: 58 20 69 32 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20  X i2}.} {1 {not 
74f0: 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f  authorized}}.do_
7500: 74 65 73 74 20 61 75 74 68 2d 31 2e 32 30 34 20  test auth-1.204 
7510: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c  {.  execsql {SEL
7520: 45 43 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71  ECT name FROM sq
7530: 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  lite_master}.} {
7540: 74 32 20 69 32 7d 0a 64 6f 5f 74 65 73 74 20 61  t2 i2}.do_test a
7550: 75 74 68 2d 31 2e 32 30 35 20 7b 0a 20 20 70 72  uth-1.205 {.  pr
7560: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
7570: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
7580: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
7590: 45 5f 44 52 4f 50 5f 49 4e 44 45 58 22 7d 20 7b  E_DROP_INDEX"} {
75a0: 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74  .      set ::aut
75b0: 68 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67  hargs [list $arg
75c0: 31 20 24 61 72 67 32 5d 0a 20 20 20 20 20 20 72  1 $arg2].      r
75d0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e  eturn SQLITE_DEN
75e0: 59 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  Y.    }.    retu
75f0: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
7600: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f  .  catchsql {DRO
7610: 50 20 49 4e 44 45 58 20 69 32 7d 0a 7d 20 7b 31  P INDEX i2}.} {1
7620: 20 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64   {not authorized
7630: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
7640: 31 2e 32 30 36 20 7b 0a 20 20 73 65 74 20 3a 3a  1.206 {.  set ::
7650: 61 75 74 68 61 72 67 73 0a 7d 20 7b 69 32 20 74  authargs.} {i2 t
7660: 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  2}.do_test auth-
7670: 31 2e 32 30 37 20 7b 0a 20 20 65 78 65 63 73 71  1.207 {.  execsq
7680: 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46  l {SELECT name F
7690: 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 74 65  ROM sqlite_maste
76a0: 72 7d 0a 7d 20 7b 74 32 20 69 32 7d 0a 64 6f 5f  r}.} {t2 i2}.do_
76b0: 74 65 73 74 20 61 75 74 68 2d 31 2e 32 30 38 20  test auth-1.208 
76c0: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
76d0: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
76e0: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
76f0: 22 53 51 4c 49 54 45 5f 44 45 4c 45 54 45 22 20  "SQLITE_DELETE" 
7700: 26 26 20 24 61 72 67 31 3d 3d 22 73 71 6c 69 74  && $arg1=="sqlit
7710: 65 5f 6d 61 73 74 65 72 22 7d 20 7b 0a 20 20 20  e_master"} {.   
7720: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
7730: 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20  _IGNORE.    }.  
7740: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
7750: 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71  OK.  }.  catchsq
7760: 6c 20 7b 44 52 4f 50 20 49 4e 44 45 58 20 69 32  l {DROP INDEX i2
7770: 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65  }.} {0 {}}.do_te
7780: 73 74 20 61 75 74 68 2d 31 2e 32 30 39 20 7b 0a  st auth-1.209 {.
7790: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
77a0: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
77b0: 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 32  te_master}.} {t2
77c0: 20 69 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   i2}.do_test aut
77d0: 68 2d 31 2e 32 31 30 20 7b 0a 20 20 70 72 6f 63  h-1.210 {.  proc
77e0: 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31   auth {code arg1
77f0: 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20   arg2} {.    if 
7800: 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f  {$code=="SQLITE_
7810: 44 52 4f 50 5f 49 4e 44 45 58 22 7d 20 7b 0a 20  DROP_INDEX"} {. 
7820: 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68 61       set ::autha
7830: 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31 20  rgs [list $arg1 
7840: 24 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65 74  $arg2].      ret
7850: 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52  urn SQLITE_IGNOR
7860: 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75  E.    }.    retu
7870: 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d  rn SQLITE_OK.  }
7880: 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f  .  catchsql {DRO
7890: 50 20 49 4e 44 45 58 20 69 32 7d 0a 7d 20 7b 30  P INDEX i2}.} {0
78a0: 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   {}}.do_test aut
78b0: 68 2d 31 2e 32 31 31 20 7b 0a 20 20 73 65 74 20  h-1.211 {.  set 
78c0: 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20 7b 69 32  ::authargs.} {i2
78d0: 20 74 32 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   t2}.do_test aut
78e0: 68 2d 31 2e 32 31 32 20 7b 0a 20 20 65 78 65 63  h-1.212 {.  exec
78f0: 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65  sql {SELECT name
7900: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73   FROM sqlite_mas
7910: 74 65 72 7d 0a 7d 20 7b 74 32 20 69 32 7d 0a 64  ter}.} {t2 i2}.d
7920: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 32 31  o_test auth-1.21
7930: 33 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  3 {.  proc auth 
7940: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
7950: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
7960: 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50 5f 49  =="SQLITE_DROP_I
7970: 4e 44 45 58 22 7d 20 7b 0a 20 20 20 20 20 20 73  NDEX"} {.      s
7980: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c  et ::authargs [l
7990: 69 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d  ist $arg1 $arg2]
79a0: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51  .      return SQ
79b0: 4c 49 54 45 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20  LITE_OK.    }.  
79c0: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
79d0: 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71  OK.  }.  catchsq
79e0: 6c 20 7b 44 52 4f 50 20 49 4e 44 45 58 20 69 32  l {DROP INDEX i2
79f0: 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65  }.} {0 {}}.do_te
7a00: 73 74 20 61 75 74 68 2d 31 2e 32 31 34 20 7b 0a  st auth-1.214 {.
7a10: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
7a20: 0a 7d 20 7b 69 32 20 74 32 7d 0a 64 6f 5f 74 65  .} {i2 t2}.do_te
7a30: 73 74 20 61 75 74 68 2d 31 2e 32 31 35 20 7b 0a  st auth-1.215 {.
7a40: 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43    execsql {SELEC
7a50: 54 20 6e 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69  T name FROM sqli
7a60: 74 65 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 32  te_master}.} {t2
7a70: 7d 0a 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }..do_test auth-
7a80: 31 2e 32 31 36 20 7b 0a 20 20 70 72 6f 63 20 61  1.216 {.  proc a
7a90: 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61  uth {code arg1 a
7aa0: 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24  rg2} {.    if {$
7ab0: 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 45  code=="SQLITE_DE
7ac0: 4c 45 54 45 22 20 26 26 20 24 61 72 67 31 3d 3d  LETE" && $arg1==
7ad0: 22 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73  "sqlite_temp_mas
7ae0: 74 65 72 22 7d 20 7b 0a 20 20 20 20 20 20 72 65  ter"} {.      re
7af0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59  turn SQLITE_DENY
7b00: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
7b10: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a  n SQLITE_OK.  }.
7b20: 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50    catchsql {DROP
7b30: 20 49 4e 44 45 58 20 69 31 7d 0a 7d 20 7b 31 20   INDEX i1}.} {1 
7b40: 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d  {not authorized}
7b50: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
7b60: 2e 32 31 37 20 7b 0a 20 20 65 78 65 63 73 71 6c  .217 {.  execsql
7b70: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
7b80: 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d  OM sqlite_temp_m
7b90: 61 73 74 65 72 7d 0a 7d 20 7b 74 31 20 69 31 7d  aster}.} {t1 i1}
7ba0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
7bb0: 32 31 38 20 7b 0a 20 20 70 72 6f 63 20 61 75 74  218 {.  proc aut
7bc0: 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67  h {code arg1 arg
7bd0: 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f  2} {.    if {$co
7be0: 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 52 4f 50  de=="SQLITE_DROP
7bf0: 5f 54 45 4d 50 5f 49 4e 44 45 58 22 7d 20 7b 0a  _TEMP_INDEX"} {.
7c00: 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68        set ::auth
7c10: 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31  args [list $arg1
7c20: 20 24 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65   $arg2].      re
7c30: 74 75 72 6e 20 53 51 4c 49 54 45 5f 44 45 4e 59  turn SQLITE_DENY
7c40: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
7c50: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a  n SQLITE_OK.  }.
7c60: 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50    catchsql {DROP
7c70: 20 49 4e 44 45 58 20 69 31 7d 0a 7d 20 7b 31 20   INDEX i1}.} {1 
7c80: 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d  {not authorized}
7c90: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
7ca0: 2e 32 31 39 20 7b 0a 20 20 73 65 74 20 3a 3a 61  .219 {.  set ::a
7cb0: 75 74 68 61 72 67 73 0a 7d 20 7b 69 31 20 74 31  uthargs.} {i1 t1
7cc0: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
7cd0: 2e 32 32 30 20 7b 0a 20 20 65 78 65 63 73 71 6c  .220 {.  execsql
7ce0: 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20 46 52   {SELECT name FR
7cf0: 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70 5f 6d  OM sqlite_temp_m
7d00: 61 73 74 65 72 7d 0a 7d 20 7b 74 31 20 69 31 7d  aster}.} {t1 i1}
7d10: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
7d20: 32 32 31 20 7b 0a 20 20 70 72 6f 63 20 61 75 74  221 {.  proc aut
7d30: 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67  h {code arg1 arg
7d40: 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f  2} {.    if {$co
7d50: 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 45 4c 45  de=="SQLITE_DELE
7d60: 54 45 22 20 26 26 20 24 61 72 67 31 3d 3d 22 73  TE" && $arg1=="s
7d70: 71 6c 69 74 65 5f 74 65 6d 70 5f 6d 61 73 74 65  qlite_temp_maste
7d80: 72 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75  r"} {.      retu
7d90: 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45  rn SQLITE_IGNORE
7da0: 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72  .    }.    retur
7db0: 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a  n SQLITE_OK.  }.
7dc0: 20 20 63 61 74 63 68 73 71 6c 20 7b 44 52 4f 50    catchsql {DROP
7dd0: 20 49 4e 44 45 58 20 69 31 7d 0a 7d 20 7b 30 20   INDEX i1}.} {0 
7de0: 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  {}}.do_test auth
7df0: 2d 31 2e 32 32 32 20 7b 0a 20 20 65 78 65 63 73  -1.222 {.  execs
7e00: 71 6c 20 7b 53 45 4c 45 43 54 20 6e 61 6d 65 20  ql {SELECT name 
7e10: 46 52 4f 4d 20 73 71 6c 69 74 65 5f 74 65 6d 70  FROM sqlite_temp
7e20: 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b 74 31 20 69  _master}.} {t1 i
7e30: 31 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  1}.do_test auth-
7e40: 31 2e 32 32 33 20 7b 0a 20 20 70 72 6f 63 20 61  1.223 {.  proc a
7e50: 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61  uth {code arg1 a
7e60: 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24  rg2} {.    if {$
7e70: 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 44 52  code=="SQLITE_DR
7e80: 4f 50 5f 54 45 4d 50 5f 49 4e 44 45 58 22 7d 20  OP_TEMP_INDEX"} 
7e90: 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75  {.      set ::au
7ea0: 74 68 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72  thargs [list $ar
7eb0: 67 31 20 24 61 72 67 32 5d 0a 20 20 20 20 20 20  g1 $arg2].      
7ec0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47  return SQLITE_IG
7ed0: 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72  NORE.    }.    r
7ee0: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
7ef0: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
7f00: 44 52 4f 50 20 49 4e 44 45 58 20 69 31 7d 0a 7d  DROP INDEX i1}.}
7f10: 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20   {0 {}}.do_test 
7f20: 61 75 74 68 2d 31 2e 32 32 34 20 7b 0a 20 20 73  auth-1.224 {.  s
7f30: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20  et ::authargs.} 
7f40: 7b 69 31 20 74 31 7d 0a 64 6f 5f 74 65 73 74 20  {i1 t1}.do_test 
7f50: 61 75 74 68 2d 31 2e 32 32 35 20 7b 0a 20 20 65  auth-1.225 {.  e
7f60: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e  xecsql {SELECT n
7f70: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
7f80: 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  temp_master}.} {
7f90: 74 31 20 69 31 7d 0a 64 6f 5f 74 65 73 74 20 61  t1 i1}.do_test a
7fa0: 75 74 68 2d 31 2e 32 32 36 20 7b 0a 20 20 70 72  uth-1.226 {.  pr
7fb0: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
7fc0: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
7fd0: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
7fe0: 45 5f 44 52 4f 50 5f 54 45 4d 50 5f 49 4e 44 45  E_DROP_TEMP_INDE
7ff0: 58 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20  X"} {.      set 
8000: 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74  ::authargs [list
8010: 20 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20   $arg1 $arg2].  
8020: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
8030: 45 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20 20 20 72  E_OK.    }.    r
8040: 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a  eturn SQLITE_OK.
8050: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b    }.  catchsql {
8060: 44 52 4f 50 20 49 4e 44 45 58 20 69 31 7d 0a 7d  DROP INDEX i1}.}
8070: 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20   {0 {}}.do_test 
8080: 61 75 74 68 2d 31 2e 32 32 37 20 7b 0a 20 20 73  auth-1.227 {.  s
8090: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20  et ::authargs.} 
80a0: 7b 69 31 20 74 31 7d 0a 64 6f 5f 74 65 73 74 20  {i1 t1}.do_test 
80b0: 61 75 74 68 2d 31 2e 32 32 38 20 7b 0a 20 20 65  auth-1.228 {.  e
80c0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 6e  xecsql {SELECT n
80d0: 61 6d 65 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f  ame FROM sqlite_
80e0: 74 65 6d 70 5f 6d 61 73 74 65 72 7d 0a 7d 20 7b  temp_master}.} {
80f0: 74 31 7d 0a 0a 64 6f 5f 74 65 73 74 20 61 75 74  t1}..do_test aut
8100: 68 2d 31 2e 32 32 39 20 7b 0a 20 20 70 72 6f 63  h-1.229 {.  proc
8110: 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31   auth {code arg1
8120: 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20   arg2} {.    if 
8130: 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f  {$code=="SQLITE_
8140: 50 52 41 47 4d 41 22 7d 20 7b 0a 20 20 20 20 20  PRAGMA"} {.     
8150: 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20   set ::authargs 
8160: 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61 72 67  [list $arg1 $arg
8170: 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20  2].      return 
8180: 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20 20  SQLITE_DENY.    
8190: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c  }.    return SQL
81a0: 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74  ITE_OK.  }.  cat
81b0: 63 68 73 71 6c 20 7b 50 52 41 47 4d 41 20 66 75  chsql {PRAGMA fu
81c0: 6c 6c 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 73 3d  ll_column_names=
81d0: 6f 6e 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61 75  on}.} {1 {not au
81e0: 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74 65  thorized}}.do_te
81f0: 73 74 20 61 75 74 68 2d 31 2e 32 33 30 20 7b 0a  st auth-1.230 {.
8200: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
8210: 0a 7d 20 7b 66 75 6c 6c 5f 63 6f 6c 75 6d 6e 5f  .} {full_column_
8220: 6e 61 6d 65 73 20 6f 6e 7d 0a 64 6f 5f 74 65 73  names on}.do_tes
8230: 74 20 61 75 74 68 2d 31 2e 32 33 31 20 7b 0a 20  t auth-1.231 {. 
8240: 20 65 78 65 63 73 71 6c 32 20 7b 53 45 4c 45 43   execsql2 {SELEC
8250: 54 20 61 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b  T a FROM t2}.} {
8260: 61 20 31 31 20 61 20 37 7d 0a 64 6f 5f 74 65 73  a 11 a 7}.do_tes
8270: 74 20 61 75 74 68 2d 31 2e 32 33 32 20 7b 0a 20  t auth-1.232 {. 
8280: 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65   proc auth {code
8290: 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20   arg1 arg2} {.  
82a0: 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51    if {$code=="SQ
82b0: 4c 49 54 45 5f 50 52 41 47 4d 41 22 7d 20 7b 0a  LITE_PRAGMA"} {.
82c0: 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75 74 68        set ::auth
82d0: 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72 67 31  args [list $arg1
82e0: 20 24 61 72 67 32 5d 0a 20 20 20 20 20 20 72 65   $arg2].      re
82f0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f  turn SQLITE_IGNO
8300: 52 45 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  RE.    }.    ret
8310: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20  urn SQLITE_OK.  
8320: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 50 52  }.  catchsql {PR
8330: 41 47 4d 41 20 66 75 6c 6c 5f 63 6f 6c 75 6d 6e  AGMA full_column
8340: 5f 6e 61 6d 65 73 3d 6f 6e 7d 0a 7d 20 7b 30 20  _names=on}.} {0 
8350: 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  {}}.do_test auth
8360: 2d 31 2e 32 33 33 20 7b 0a 20 20 73 65 74 20 3a  -1.233 {.  set :
8370: 3a 61 75 74 68 61 72 67 73 0a 7d 20 7b 66 75 6c  :authargs.} {ful
8380: 6c 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 73 20 6f  l_column_names o
8390: 6e 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  n}.do_test auth-
83a0: 31 2e 32 33 34 20 7b 0a 20 20 65 78 65 63 73 71  1.234 {.  execsq
83b0: 6c 32 20 7b 53 45 4c 45 43 54 20 61 20 46 52 4f  l2 {SELECT a FRO
83c0: 4d 20 74 32 7d 0a 7d 20 7b 61 20 31 31 20 61 20  M t2}.} {a 11 a 
83d0: 37 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  7}.do_test auth-
83e0: 31 2e 32 33 35 20 7b 0a 20 20 70 72 6f 63 20 61  1.235 {.  proc a
83f0: 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61  uth {code arg1 a
8400: 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24  rg2} {.    if {$
8410: 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 50 52  code=="SQLITE_PR
8420: 41 47 4d 41 22 7d 20 7b 0a 20 20 20 20 20 20 73  AGMA"} {.      s
8430: 65 74 20 3a 3a 61 75 74 68 61 72 67 73 20 5b 6c  et ::authargs [l
8440: 69 73 74 20 24 61 72 67 31 20 24 61 72 67 32 5d  ist $arg1 $arg2]
8450: 0a 20 20 20 20 20 20 72 65 74 75 72 6e 20 53 51  .      return SQ
8460: 4c 49 54 45 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20  LITE_OK.    }.  
8470: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
8480: 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73 71  OK.  }.  catchsq
8490: 6c 20 7b 50 52 41 47 4d 41 20 66 75 6c 6c 5f 63  l {PRAGMA full_c
84a0: 6f 6c 75 6d 6e 5f 6e 61 6d 65 73 3d 6f 6e 7d 0a  olumn_names=on}.
84b0: 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74  } {0 {}}.do_test
84c0: 20 61 75 74 68 2d 31 2e 32 33 36 20 7b 0a 20 20   auth-1.236 {.  
84d0: 65 78 65 63 73 71 6c 32 20 7b 53 45 4c 45 43 54  execsql2 {SELECT
84e0: 20 61 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 74   a FROM t2}.} {t
84f0: 32 2e 61 20 31 31 20 74 32 2e 61 20 37 7d 0a 64  2.a 11 t2.a 7}.d
8500: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 32 33  o_test auth-1.23
8510: 37 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  7 {.  proc auth 
8520: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
8530: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
8540: 3d 3d 22 53 51 4c 49 54 45 5f 50 52 41 47 4d 41  =="SQLITE_PRAGMA
8550: 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 3a  "} {.      set :
8560: 3a 61 75 74 68 61 72 67 73 20 5b 6c 69 73 74 20  :authargs [list 
8570: 24 61 72 67 31 20 24 61 72 67 32 5d 0a 20 20 20  $arg1 $arg2].   
8580: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
8590: 5f 4f 4b 0a 20 20 20 20 7d 0a 20 20 20 20 72 65  _OK.    }.    re
85a0: 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20  turn SQLITE_OK. 
85b0: 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 50   }.  catchsql {P
85c0: 52 41 47 4d 41 20 66 75 6c 6c 5f 63 6f 6c 75 6d  RAGMA full_colum
85d0: 6e 5f 6e 61 6d 65 73 3d 4f 46 46 7d 0a 7d 20 7b  n_names=OFF}.} {
85e0: 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75  0 {}}.do_test au
85f0: 74 68 2d 31 2e 32 33 38 20 7b 0a 20 20 73 65 74  th-1.238 {.  set
8600: 20 3a 3a 61 75 74 68 61 72 67 73 0a 7d 20 7b 66   ::authargs.} {f
8610: 75 6c 6c 5f 63 6f 6c 75 6d 6e 5f 6e 61 6d 65 73  ull_column_names
8620: 20 4f 46 46 7d 0a 64 6f 5f 74 65 73 74 20 61 75   OFF}.do_test au
8630: 74 68 2d 31 2e 32 33 39 20 7b 0a 20 20 65 78 65  th-1.239 {.  exe
8640: 63 73 71 6c 32 20 7b 53 45 4c 45 43 54 20 61 20  csql2 {SELECT a 
8650: 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 61 20 31 31  FROM t2}.} {a 11
8660: 20 61 20 37 7d 0a 0a 64 6f 5f 74 65 73 74 20 61   a 7}..do_test a
8670: 75 74 68 2d 31 2e 32 34 30 20 7b 0a 20 20 70 72  uth-1.240 {.  pr
8680: 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20 61 72  oc auth {code ar
8690: 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20 20 69  g1 arg2} {.    i
86a0: 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c 49 54  f {$code=="SQLIT
86b0: 45 5f 54 52 41 4e 53 41 43 54 49 4f 4e 22 7d 20  E_TRANSACTION"} 
86c0: 7b 0a 20 20 20 20 20 20 73 65 74 20 3a 3a 61 75  {.      set ::au
86d0: 74 68 61 72 67 73 20 5b 6c 69 73 74 20 24 61 72  thargs [list $ar
86e0: 67 31 20 24 61 72 67 32 5d 0a 20 20 20 20 20 20  g1 $arg2].      
86f0: 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 44 45  return SQLITE_DE
8700: 4e 59 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  NY.    }.    ret
8710: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20  urn SQLITE_OK.  
8720: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 42 45  }.  catchsql {BE
8730: 47 49 4e 7d 0a 7d 20 7b 31 20 7b 6e 6f 74 20 61  GIN}.} {1 {not a
8740: 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64 6f 5f 74  uthorized}}.do_t
8750: 65 73 74 20 61 75 74 68 2d 31 2e 32 34 31 20 7b  est auth-1.241 {
8760: 0a 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67  .  set ::autharg
8770: 73 0a 7d 20 7b 42 45 47 49 4e 20 7b 7d 7d 0a 64  s.} {BEGIN {}}.d
8780: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 32 34  o_test auth-1.24
8790: 32 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  2 {.  proc auth 
87a0: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
87b0: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
87c0: 3d 3d 22 53 51 4c 49 54 45 5f 54 52 41 4e 53 41  =="SQLITE_TRANSA
87d0: 43 54 49 4f 4e 22 20 26 26 20 24 61 72 67 31 21  CTION" && $arg1!
87e0: 3d 22 42 45 47 49 4e 22 7d 20 7b 0a 20 20 20 20  ="BEGIN"} {.    
87f0: 20 20 73 65 74 20 3a 3a 61 75 74 68 61 72 67 73    set ::authargs
8800: 20 5b 6c 69 73 74 20 24 61 72 67 31 20 24 61 72   [list $arg1 $ar
8810: 67 32 5d 0a 20 20 20 20 20 20 72 65 74 75 72 6e  g2].      return
8820: 20 53 51 4c 49 54 45 5f 44 45 4e 59 0a 20 20 20   SQLITE_DENY.   
8830: 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 53 51   }.    return SQ
8840: 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61  LITE_OK.  }.  ca
8850: 74 63 68 73 71 6c 20 7b 42 45 47 49 4e 3b 20 49  tchsql {BEGIN; I
8860: 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 20 56 41  NSERT INTO t2 VA
8870: 4c 55 45 53 28 34 34 2c 35 35 2c 36 36 29 3b 20  LUES(44,55,66); 
8880: 43 4f 4d 4d 49 54 7d 0a 7d 20 7b 31 20 7b 6e 6f  COMMIT}.} {1 {no
8890: 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d 0a 64  t authorized}}.d
88a0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 32 34  o_test auth-1.24
88b0: 33 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75 74 68  3 {.  set ::auth
88c0: 61 72 67 73 0a 7d 20 7b 43 4f 4d 4d 49 54 20 7b  args.} {COMMIT {
88d0: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
88e0: 31 2e 32 34 34 20 7b 0a 20 20 65 78 65 63 73 71  1.244 {.  execsq
88f0: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
8900: 20 74 32 7d 0a 7d 20 7b 31 31 20 32 20 33 33 20   t2}.} {11 2 33 
8910: 37 20 38 20 39 20 34 34 20 35 35 20 36 36 7d 0a  7 8 9 44 55 66}.
8920: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e 32  do_test auth-1.2
8930: 34 35 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  45 {.  catchsql 
8940: 7b 52 4f 4c 4c 42 41 43 4b 7d 0a 7d 20 7b 31 20  {ROLLBACK}.} {1 
8950: 7b 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d  {not authorized}
8960: 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31  }.do_test auth-1
8970: 2e 32 34 36 20 7b 0a 20 20 73 65 74 20 3a 3a 61  .246 {.  set ::a
8980: 75 74 68 61 72 67 73 0a 7d 20 7b 52 4f 4c 4c 42  uthargs.} {ROLLB
8990: 41 43 4b 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20  ACK {}}.do_test 
89a0: 61 75 74 68 2d 31 2e 32 34 37 20 7b 0a 20 20 63  auth-1.247 {.  c
89b0: 61 74 63 68 73 71 6c 20 7b 45 4e 44 20 54 52 41  atchsql {END TRA
89c0: 4e 53 41 43 54 49 4f 4e 7d 0a 7d 20 7b 31 20 7b  NSACTION}.} {1 {
89d0: 6e 6f 74 20 61 75 74 68 6f 72 69 7a 65 64 7d 7d  not authorized}}
89e0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 31 2e  .do_test auth-1.
89f0: 32 34 38 20 7b 0a 20 20 73 65 74 20 3a 3a 61 75  248 {.  set ::au
8a00: 74 68 61 72 67 73 0a 7d 20 7b 43 4f 4d 4d 49 54  thargs.} {COMMIT
8a10: 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74   {}}.do_test aut
8a20: 68 2d 31 2e 32 34 39 20 7b 0a 20 20 73 71 6c 69  h-1.249 {.  sqli
8a30: 74 65 5f 73 65 74 5f 61 75 74 68 6f 72 69 7a 65  te_set_authorize
8a40: 72 20 24 3a 3a 44 42 20 7b 7d 0a 20 20 63 61 74  r $::DB {}.  cat
8a50: 63 68 73 71 6c 20 7b 52 4f 4c 4c 42 41 43 4b 7d  chsql {ROLLBACK}
8a60: 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73  .} {0 {}}.do_tes
8a70: 74 20 61 75 74 68 2d 31 2e 32 35 30 20 7b 0a 20  t auth-1.250 {. 
8a80: 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54   execsql {SELECT
8a90: 20 2a 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 31   * FROM t2}.} {1
8aa0: 31 20 32 20 33 33 20 37 20 38 20 39 7d 0a 0a 64  1 2 33 7 8 9}..d
8ab0: 6f 5f 74 65 73 74 20 61 75 74 68 2d 32 2e 31 20  o_test auth-2.1 
8ac0: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
8ad0: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
8ae0: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
8af0: 22 53 51 4c 49 54 45 5f 52 45 41 44 22 20 26 26  "SQLITE_READ" &&
8b00: 20 24 61 72 67 31 3d 3d 22 74 33 22 20 26 26 20   $arg1=="t3" && 
8b10: 24 61 72 67 32 3d 3d 22 78 22 7d 20 7b 0a 20 20  $arg2=="x"} {.  
8b20: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
8b30: 45 5f 44 45 4e 59 0a 20 20 20 20 7d 0a 20 20 20  E_DENY.    }.   
8b40: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
8b50: 4b 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 5f 73  K.  }.  sqlite_s
8b60: 65 74 5f 61 75 74 68 6f 72 69 7a 65 72 20 24 3a  et_authorizer $:
8b70: 3a 44 42 20 3a 3a 61 75 74 68 0a 20 20 65 78 65  :DB ::auth.  exe
8b80: 63 73 71 6c 20 7b 43 52 45 41 54 45 20 54 41 42  csql {CREATE TAB
8b90: 4c 45 20 74 33 28 78 20 49 4e 54 45 47 45 52 20  LE t3(x INTEGER 
8ba0: 50 52 49 4d 41 52 59 20 4b 45 59 2c 20 79 2c 20  PRIMARY KEY, y, 
8bb0: 7a 29 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  z)}.  catchsql {
8bc0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 33  SELECT * FROM t3
8bd0: 7d 0a 7d 20 7b 31 20 7b 61 63 63 65 73 73 20 74  }.} {1 {access t
8be0: 6f 20 74 33 2e 78 20 69 73 20 70 72 6f 68 69 62  o t3.x is prohib
8bf0: 69 74 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  ited}}.do_test a
8c00: 75 74 68 2d 32 2e 31 20 7b 0a 20 20 63 61 74 63  uth-2.1 {.  catc
8c10: 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 79 2c 7a  hsql {SELECT y,z
8c20: 20 46 52 4f 4d 20 74 33 7d 0a 7d 20 7b 30 20 7b   FROM t3}.} {0 {
8c30: 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d  }}.do_test auth-
8c40: 32 2e 32 20 7b 0a 20 20 63 61 74 63 68 73 71 6c  2.2 {.  catchsql
8c50: 20 7b 53 45 4c 45 43 54 20 52 4f 57 49 44 2c 79   {SELECT ROWID,y
8c60: 2c 7a 20 46 52 4f 4d 20 74 33 7d 0a 7d 20 7b 31  ,z FROM t3}.} {1
8c70: 20 7b 61 63 63 65 73 73 20 74 6f 20 74 33 2e 78   {access to t3.x
8c80: 20 69 73 20 70 72 6f 68 69 62 69 74 65 64 7d 7d   is prohibited}}
8c90: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 32 2e  .do_test auth-2.
8ca0: 33 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  3 {.  catchsql {
8cb0: 53 45 4c 45 43 54 20 4f 49 44 2c 79 2c 7a 20 46  SELECT OID,y,z F
8cc0: 52 4f 4d 20 74 33 7d 0a 7d 20 7b 31 20 7b 61 63  ROM t3}.} {1 {ac
8cd0: 63 65 73 73 20 74 6f 20 74 33 2e 78 20 69 73 20  cess to t3.x is 
8ce0: 70 72 6f 68 69 62 69 74 65 64 7d 7d 0a 64 6f 5f  prohibited}}.do_
8cf0: 74 65 73 74 20 61 75 74 68 2d 32 2e 34 20 7b 0a  test auth-2.4 {.
8d00: 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64    proc auth {cod
8d10: 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20  e arg1 arg2} {. 
8d20: 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53     if {$code=="S
8d30: 51 4c 49 54 45 5f 52 45 41 44 22 20 26 26 20 24  QLITE_READ" && $
8d40: 61 72 67 31 3d 3d 22 74 33 22 20 26 26 20 24 61  arg1=="t3" && $a
8d50: 72 67 32 3d 3d 22 78 22 7d 20 7b 0a 20 20 20 20  rg2=="x"} {.    
8d60: 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f    return SQLITE_
8d70: 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20 20 20  IGNORE.    }.   
8d80: 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45 5f 4f   return SQLITE_O
8d90: 4b 0a 20 20 7d 0a 20 20 65 78 65 63 73 71 6c 20  K.  }.  execsql 
8da0: 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 33 20  {INSERT INTO t3 
8db0: 56 41 4c 55 45 53 28 34 34 2c 35 35 2c 36 36 29  VALUES(44,55,66)
8dc0: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45  }.  catchsql {SE
8dd0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 33 7d 0a  LECT * FROM t3}.
8de0: 7d 20 7b 30 20 7b 7b 7d 20 35 35 20 36 36 7d 7d  } {0 {{} 55 66}}
8df0: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 32 2e  .do_test auth-2.
8e00: 35 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b  5 {.  catchsql {
8e10: 53 45 4c 45 43 54 20 72 6f 77 69 64 2c 79 2c 7a  SELECT rowid,y,z
8e20: 20 46 52 4f 4d 20 74 33 7d 0a 7d 20 7b 30 20 7b   FROM t3}.} {0 {
8e30: 7b 7d 20 35 35 20 36 36 7d 7d 0a 64 6f 5f 74 65  {} 55 66}}.do_te
8e40: 73 74 20 61 75 74 68 2d 32 2e 36 20 7b 0a 20 20  st auth-2.6 {.  
8e50: 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65 20  proc auth {code 
8e60: 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20 20  arg1 arg2} {.   
8e70: 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51 4c   if {$code=="SQL
8e80: 49 54 45 5f 52 45 41 44 22 20 26 26 20 24 61 72  ITE_READ" && $ar
8e90: 67 31 3d 3d 22 74 33 22 20 26 26 20 24 61 72 67  g1=="t3" && $arg
8ea0: 32 3d 3d 22 52 4f 57 49 44 22 7d 20 7b 0a 20 20  2=="ROWID"} {.  
8eb0: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
8ec0: 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a 20  E_IGNORE.    }. 
8ed0: 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54 45     return SQLITE
8ee0: 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68 73  _OK.  }.  catchs
8ef0: 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  ql {SELECT * FRO
8f00: 4d 20 74 33 7d 0a 7d 20 7b 30 20 7b 34 34 20 35  M t3}.} {0 {44 5
8f10: 35 20 36 36 7d 7d 0a 64 6f 5f 74 65 73 74 20 61  5 66}}.do_test a
8f20: 75 74 68 2d 32 2e 37 20 7b 0a 20 20 63 61 74 63  uth-2.7 {.  catc
8f30: 68 73 71 6c 20 7b 53 45 4c 45 43 54 20 52 4f 57  hsql {SELECT ROW
8f40: 49 44 2c 79 2c 7a 20 46 52 4f 4d 20 74 33 7d 0a  ID,y,z FROM t3}.
8f50: 7d 20 7b 30 20 7b 34 34 20 35 35 20 36 36 7d 7d  } {0 {44 55 66}}
8f60: 0a 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 32 2e  .do_test auth-2.
8f70: 38 20 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20  8 {.  proc auth 
8f80: 7b 63 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d  {code arg1 arg2}
8f90: 20 7b 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65   {.    if {$code
8fa0: 3d 3d 22 53 51 4c 49 54 45 5f 52 45 41 44 22 20  =="SQLITE_READ" 
8fb0: 26 26 20 24 61 72 67 31 3d 3d 22 74 32 22 20 26  && $arg1=="t2" &
8fc0: 26 20 24 61 72 67 32 3d 3d 22 52 4f 57 49 44 22  & $arg2=="ROWID"
8fd0: 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72 6e  } {.      return
8fe0: 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a 20   SQLITE_IGNORE. 
8ff0: 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e 20     }.    return 
9000: 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20 20  SQLITE_OK.  }.  
9010: 63 61 74 63 68 73 71 6c 20 7b 53 45 4c 45 43 54  catchsql {SELECT
9020: 20 52 4f 57 49 44 2c 62 2c 63 20 46 52 4f 4d 20   ROWID,b,c FROM 
9030: 74 32 7d 0a 7d 20 7b 30 20 7b 7b 7d 20 32 20 33  t2}.} {0 {{} 2 3
9040: 33 20 7b 7d 20 38 20 39 7d 7d 0a 64 6f 5f 74 65  3 {} 8 9}}.do_te
9050: 73 74 20 61 75 74 68 2d 32 2e 39 2e 31 20 7b 0a  st auth-2.9.1 {.
9060: 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64    proc auth {cod
9070: 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20  e arg1 arg2} {. 
9080: 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53     if {$code=="S
9090: 51 4c 49 54 45 5f 52 45 41 44 22 20 26 26 20 24  QLITE_READ" && $
90a0: 61 72 67 31 3d 3d 22 74 32 22 20 26 26 20 24 61  arg1=="t2" && $a
90b0: 72 67 32 3d 3d 22 52 4f 57 49 44 22 7d 20 7b 0a  rg2=="ROWID"} {.
90c0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 62 6f 67        return bog
90d0: 75 73 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  us.    }.    ret
90e0: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20  urn SQLITE_OK.  
90f0: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45  }.  catchsql {SE
9100: 4c 45 43 54 20 52 4f 57 49 44 2c 62 2c 63 20 46  LECT ROWID,b,c F
9110: 52 4f 4d 20 74 32 7d 0a 7d 20 7b 31 20 7b 69 6c  ROM t2}.} {1 {il
9120: 6c 65 67 61 6c 20 72 65 74 75 72 6e 20 76 61 6c  legal return val
9130: 75 65 20 28 39 39 39 29 20 66 72 6f 6d 20 74 68  ue (999) from th
9140: 65 20 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 20  e authorization 
9150: 66 75 6e 63 74 69 6f 6e 20 2d 20 73 68 6f 75 6c  function - shoul
9160: 64 20 62 65 20 53 51 4c 49 54 45 5f 4f 4b 2c 20  d be SQLITE_OK, 
9170: 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 2c 20 6f  SQLITE_IGNORE, o
9180: 72 20 53 51 4c 49 54 45 5f 44 45 4e 59 7d 7d 0a  r SQLITE_DENY}}.
9190: 64 6f 5f 74 65 73 74 20 61 75 74 68 2d 32 2e 39  do_test auth-2.9
91a0: 2e 32 20 7b 0a 20 20 64 62 20 65 72 72 6f 72 63  .2 {.  db errorc
91b0: 6f 64 65 0a 7d 20 7b 32 31 7d 0a 64 6f 5f 74 65  ode.} {21}.do_te
91c0: 73 74 20 61 75 74 68 2d 32 2e 31 30 20 7b 0a 20  st auth-2.10 {. 
91d0: 20 70 72 6f 63 20 61 75 74 68 20 7b 63 6f 64 65   proc auth {code
91e0: 20 61 72 67 31 20 61 72 67 32 7d 20 7b 0a 20 20   arg1 arg2} {.  
91f0: 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d 22 53 51    if {$code=="SQ
9200: 4c 49 54 45 5f 53 45 4c 45 43 54 22 7d 20 7b 0a  LITE_SELECT"} {.
9210: 20 20 20 20 20 20 72 65 74 75 72 6e 20 62 6f 67        return bog
9220: 75 73 0a 20 20 20 20 7d 0a 20 20 20 20 72 65 74  us.    }.    ret
9230: 75 72 6e 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20  urn SQLITE_OK.  
9240: 7d 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 53 45  }.  catchsql {SE
9250: 4c 45 43 54 20 52 4f 57 49 44 2c 62 2c 63 20 46  LECT ROWID,b,c F
9260: 52 4f 4d 20 74 32 7d 0a 7d 20 7b 31 20 7b 69 6c  ROM t2}.} {1 {il
9270: 6c 65 67 61 6c 20 72 65 74 75 72 6e 20 76 61 6c  legal return val
9280: 75 65 20 28 31 29 20 66 72 6f 6d 20 74 68 65 20  ue (1) from the 
9290: 61 75 74 68 6f 72 69 7a 61 74 69 6f 6e 20 66 75  authorization fu
92a0: 6e 63 74 69 6f 6e 20 2d 20 73 68 6f 75 6c 64 20  nction - should 
92b0: 62 65 20 53 51 4c 49 54 45 5f 4f 4b 2c 20 53 51  be SQLITE_OK, SQ
92c0: 4c 49 54 45 5f 49 47 4e 4f 52 45 2c 20 6f 72 20  LITE_IGNORE, or 
92d0: 53 51 4c 49 54 45 5f 44 45 4e 59 7d 7d 0a 64 6f  SQLITE_DENY}}.do
92e0: 5f 74 65 73 74 20 61 75 74 68 2d 32 2e 31 31 20  _test auth-2.11 
92f0: 7b 0a 20 20 70 72 6f 63 20 61 75 74 68 20 7b 63  {.  proc auth {c
9300: 6f 64 65 20 61 72 67 31 20 61 72 67 32 7d 20 7b  ode arg1 arg2} {
9310: 0a 20 20 20 20 69 66 20 7b 24 63 6f 64 65 3d 3d  .    if {$code==
9320: 22 53 51 4c 49 54 45 5f 52 45 41 44 22 20 26 26  "SQLITE_READ" &&
9330: 20 24 61 72 67 32 3d 3d 22 61 22 7d 20 7b 0a 20   $arg2=="a"} {. 
9340: 20 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49       return SQLI
9350: 54 45 5f 49 47 4e 4f 52 45 0a 20 20 20 20 7d 0a  TE_IGNORE.    }.
9360: 20 20 20 20 72 65 74 75 72 6e 20 53 51 4c 49 54      return SQLIT
9370: 45 5f 4f 4b 0a 20 20 7d 0a 20 20 63 61 74 63 68  E_OK.  }.  catch
9380: 73 71 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52  sql {SELECT * FR
9390: 4f 4d 20 74 32 2c 20 74 33 7d 0a 7d 20 7b 30 20  OM t2, t3}.} {0 
93a0: 7b 7b 7d 20 32 20 33 33 20 34 34 20 35 35 20 36  {{} 2 33 44 55 6
93b0: 36 20 7b 7d 20 38 20 39 20 34 34 20 35 35 20 36  6 {} 8 9 44 55 6
93c0: 36 7d 7d 0a 64 6f 5f 74 65 73 74 20 61 75 74 68  6}}.do_test auth
93d0: 2d 32 2e 31 31 20 7b 0a 20 20 70 72 6f 63 20 61  -2.11 {.  proc a
93e0: 75 74 68 20 7b 63 6f 64 65 20 61 72 67 31 20 61  uth {code arg1 a
93f0: 72 67 32 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24  rg2} {.    if {$
9400: 63 6f 64 65 3d 3d 22 53 51 4c 49 54 45 5f 52 45  code=="SQLITE_RE
9410: 41 44 22 20 26 26 20 24 61 72 67 32 3d 3d 22 78  AD" && $arg2=="x
9420: 22 7d 20 7b 0a 20 20 20 20 20 20 72 65 74 75 72  "} {.      retur
9430: 6e 20 53 51 4c 49 54 45 5f 49 47 4e 4f 52 45 0a  n SQLITE_IGNORE.
9440: 20 20 20 20 7d 0a 20 20 20 20 72 65 74 75 72 6e      }.    return
9450: 20 53 51 4c 49 54 45 5f 4f 4b 0a 20 20 7d 0a 20   SQLITE_OK.  }. 
9460: 20 63 61 74 63 68 73 71 6c 20 7b 53 45 4c 45 43   catchsql {SELEC
9470: 54 20 2a 20 46 52 4f 4d 20 74 32 2c 20 74 33 7d  T * FROM t2, t3}
9480: 0a 7d 20 7b 30 20 7b 31 31 20 32 20 33 33 20 7b  .} {0 {11 2 33 {
9490: 7d 20 35 35 20 36 36 20 37 20 38 20 39 20 7b 7d  } 55 66 7 8 9 {}
94a0: 20 35 35 20 36 36 7d 7d 0a 0a 7d 20 3b 23 20 45   55 66}}..} ;# E
94b0: 6e 64 20 6f 66 20 74 68 65 20 22 69 66 28 20 64  nd of the "if( d
94c0: 62 20 63 6f 6d 6d 61 6e 64 20 65 78 69 73 74 73  b command exists
94d0: 20 29 22 0a 0a 66 69 6e 69 73 68 5f 74 65 73 74   )"..finish_test
94e0: 0a                                               .