/ Hex Artifact Content
Login

Artifact 3c34719944ba045cc6c188a4852ba04680728912:


0000: 23 20 32 30 30 32 20 4d 61 79 20 31 30 0a 23 0a  # 2002 May 10.#.
0010: 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73  # The author dis
0020: 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74  claims copyright
0030: 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20   to this source 
0040: 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20  code.  In place 
0050: 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74  of.# a legal not
0060: 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62  ice, here is a b
0070: 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20  lessing:.#.#    
0080: 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20  May you do good 
0090: 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20  and not evil..# 
00a0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00b0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00c0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00d0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20  give others..#  
00e0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20    May you share 
00f0: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61  freely, never ta
0100: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79  king more than y
0110: 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a  ou 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 0a 23 20 54 68 69 73 20 66 69 6c 65 20  ***.# This file 
0170: 69 6d 70 6c 65 6d 65 6e 74 73 20 72 65 67 72 65  implements regre
0180: 73 73 69 6f 6e 20 74 65 73 74 73 20 66 6f 72 20  ssion tests for 
0190: 53 51 4c 69 74 65 20 6c 69 62 72 61 72 79 2e 0a  SQLite library..
01a0: 23 0a 23 20 54 68 69 73 20 66 69 6c 65 20 69 6d  #.# This file im
01b0: 70 6c 65 6d 65 6e 74 73 20 74 65 73 74 73 20 66  plements tests f
01c0: 6f 72 20 74 68 65 20 53 51 4c 49 54 45 5f 4d 49  or the SQLITE_MI
01d0: 53 55 53 45 20 64 65 74 65 63 74 69 6f 6e 20 6c  SUSE detection l
01e0: 6f 67 69 63 2e 0a 23 20 54 68 69 73 20 74 65 73  ogic..# This tes
01f0: 74 20 66 69 6c 65 20 6c 65 61 6b 73 20 6d 65 6d  t file leaks mem
0200: 6f 72 79 20 61 6e 64 20 66 69 6c 65 20 64 65 73  ory and file des
0210: 63 72 69 70 74 6f 72 73 2e 0a 23 0a 23 20 24 49  criptors..#.# $I
0220: 64 3a 20 6d 69 73 75 73 65 2e 74 65 73 74 2c 76  d: misuse.test,v
0230: 20 31 2e 31 31 20 32 30 30 36 2f 30 31 2f 30 33   1.11 2006/01/03
0240: 20 30 30 3a 33 33 3a 35 30 20 64 72 68 20 45 78   00:33:50 drh Ex
0250: 70 20 24 0a 0a 73 65 74 20 74 65 73 74 64 69 72  p $..set testdir
0260: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24   [file dirname $
0270: 61 72 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74  argv0].source $t
0280: 65 73 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63  estdir/tester.tc
0290: 6c 0a 0a 70 72 6f 63 20 63 61 74 63 68 73 71 6c  l..proc catchsql
02a0: 32 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20  2 {sql} {.  set 
02b0: 72 20 5b 0a 20 20 20 20 63 61 74 63 68 20 7b 0a  r [.    catch {.
02c0: 20 20 20 20 20 20 73 65 74 20 72 65 73 20 5b 6c        set res [l
02d0: 69 73 74 5d 0a 20 20 20 20 20 20 64 62 20 65 76  ist].      db ev
02e0: 61 6c 20 24 73 71 6c 20 64 61 74 61 20 7b 0a 20  al $sql data {. 
02f0: 20 20 20 20 20 20 20 69 66 20 7b 20 24 72 65 73         if { $res
0300: 3d 3d 5b 6c 69 73 74 5d 20 7d 20 7b 0a 20 20 20  ==[list] } {.   
0310: 20 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 66         foreach f
0320: 20 24 64 61 74 61 28 2a 29 20 7b 6c 61 70 70 65   $data(*) {lappe
0330: 6e 64 20 72 65 73 20 24 66 7d 0a 20 20 20 20 20  nd res $f}.     
0340: 20 20 20 7d 0a 20 20 20 20 20 20 20 20 66 6f 72     }.        for
0350: 65 61 63 68 20 66 20 24 64 61 74 61 28 2a 29 20  each f $data(*) 
0360: 7b 6c 61 70 70 65 6e 64 20 72 65 73 20 24 64 61  {lappend res $da
0370: 74 61 28 24 66 29 7d 0a 20 20 20 20 20 20 7d 0a  ta($f)}.      }.
0380: 20 20 20 20 20 20 73 65 74 20 72 65 73 0a 20 20        set res.  
0390: 20 20 7d 20 6d 73 67 0a 20 20 5d 0a 20 20 6c 61    } msg.  ].  la
03a0: 70 70 65 6e 64 20 72 20 24 6d 73 67 0a 7d 0a 0a  ppend r $msg.}..
03b0: 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 74 68 65  .# Make sure the
03c0: 20 74 65 73 74 20 6c 6f 67 69 63 20 77 6f 72 6b   test logic work
03d0: 73 0a 23 0a 64 6f 5f 74 65 73 74 20 6d 69 73 75  s.#.do_test misu
03e0: 73 65 2d 31 2e 31 20 7b 0a 20 20 64 62 20 63 6c  se-1.1 {.  db cl
03f0: 6f 73 65 0a 20 20 63 61 74 63 68 20 7b 66 6f 72  ose.  catch {for
0400: 63 65 64 65 6c 65 74 65 20 74 65 73 74 32 2e 64  cedelete test2.d
0410: 62 7d 0a 20 20 63 61 74 63 68 20 7b 66 6f 72 63  b}.  catch {forc
0420: 65 64 65 6c 65 74 65 20 74 65 73 74 32 2e 64 62  edelete test2.db
0430: 2d 6a 6f 75 72 6e 61 6c 7d 0a 20 20 73 71 6c 69  -journal}.  sqli
0440: 74 65 33 20 64 62 20 74 65 73 74 32 2e 64 62 3b  te3 db test2.db;
0450: 20 73 65 74 20 3a 3a 44 42 20 5b 73 71 6c 69 74   set ::DB [sqlit
0460: 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e 5f 70 6f  e3_connection_po
0470: 69 6e 74 65 72 20 64 62 5d 0a 20 20 65 78 65 63  inter db].  exec
0480: 73 71 6c 20 7b 0a 20 20 20 20 43 52 45 41 54 45  sql {.    CREATE
0490: 20 54 41 42 4c 45 20 74 31 28 61 2c 62 29 3b 0a   TABLE t1(a,b);.
04a0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
04b0: 74 31 20 56 41 4c 55 45 53 28 31 2c 32 29 3b 0a  t1 VALUES(1,2);.
04c0: 20 20 7d 0a 20 20 63 61 74 63 68 73 71 6c 32 20    }.  catchsql2 
04d0: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46  {.    SELECT * F
04e0: 52 4f 4d 20 74 31 0a 20 20 7d 0a 7d 20 7b 30 20  ROM t1.  }.} {0 
04f0: 7b 61 20 62 20 31 20 32 7d 7d 0a 64 6f 5f 74 65  {a b 1 2}}.do_te
0500: 73 74 20 6d 69 73 75 73 65 2d 31 2e 32 20 7b 0a  st misuse-1.2 {.
0510: 20 20 63 61 74 63 68 73 71 6c 32 20 7b 0a 20 20    catchsql2 {.  
0520: 20 20 53 45 4c 45 43 54 20 78 5f 63 6f 61 6c 65    SELECT x_coale
0530: 73 63 65 28 4e 55 4c 4c 2c 61 29 20 41 53 20 27  sce(NULL,a) AS '
0540: 78 79 7a 27 20 46 52 4f 4d 20 74 31 0a 20 20 7d  xyz' FROM t1.  }
0550: 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20 66  .} {1 {no such f
0560: 75 6e 63 74 69 6f 6e 3a 20 78 5f 63 6f 61 6c 65  unction: x_coale
0570: 73 63 65 7d 7d 0a 64 6f 5f 74 65 73 74 20 6d 69  sce}}.do_test mi
0580: 73 75 73 65 2d 31 2e 33 20 7b 0a 20 20 73 71 6c  suse-1.3 {.  sql
0590: 69 74 65 33 5f 63 72 65 61 74 65 5f 66 75 6e 63  ite3_create_func
05a0: 74 69 6f 6e 20 24 3a 3a 44 42 0a 20 20 63 61 74  tion $::DB.  cat
05b0: 63 68 73 71 6c 32 20 7b 0a 20 20 20 20 53 45 4c  chsql2 {.    SEL
05c0: 45 43 54 20 78 5f 63 6f 61 6c 65 73 63 65 28 4e  ECT x_coalesce(N
05d0: 55 4c 4c 2c 61 29 20 41 53 20 27 78 79 7a 27 20  ULL,a) AS 'xyz' 
05e0: 46 52 4f 4d 20 74 31 0a 20 20 7d 0a 7d 20 7b 30  FROM t1.  }.} {0
05f0: 20 7b 78 79 7a 20 31 7d 7d 0a 0a 23 20 55 73 65   {xyz 1}}..# Use
0600: 20 74 68 65 20 78 5f 73 71 6c 69 74 65 5f 65 78   the x_sqlite_ex
0610: 65 63 28 29 20 53 51 4c 20 66 75 6e 63 74 69 6f  ec() SQL functio
0620: 6e 20 74 6f 20 73 69 6d 75 6c 61 74 65 20 74 68  n to simulate th
0630: 65 20 65 66 66 65 63 74 20 6f 66 20 74 77 6f 0a  e effect of two.
0640: 23 20 74 68 72 65 61 64 73 20 74 72 79 69 6e 67  # threads trying
0650: 20 74 6f 20 75 73 65 20 74 68 65 20 73 61 6d 65   to use the same
0660: 20 64 61 74 61 62 61 73 65 20 61 74 20 74 68 65   database at the
0670: 20 73 61 6d 65 20 74 69 6d 65 2e 0a 23 0a 23 20   same time..#.# 
0680: 49 74 20 75 73 65 64 20 74 6f 20 62 65 20 70 72  It used to be pr
0690: 6f 68 69 62 69 74 65 64 20 74 6f 20 69 6e 76 6f  ohibited to invo
06a0: 6b 65 20 73 71 6c 69 74 65 5f 65 78 65 63 28 29  ke sqlite_exec()
06b0: 20 66 72 6f 6d 20 77 69 74 68 69 6e 20 61 20 66   from within a f
06c0: 75 6e 63 74 69 6f 6e 2c 0a 23 20 62 75 74 20 74  unction,.# but t
06d0: 68 61 74 20 68 61 73 20 63 68 61 6e 67 65 64 2e  hat has changed.
06e0: 20 20 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20    The following 
06f0: 74 65 73 74 73 20 75 73 65 64 20 74 6f 20 63 61  tests used to ca
0700: 75 73 65 20 65 72 72 6f 72 73 20 62 75 74 20 6e  use errors but n
0710: 6f 77 0a 23 20 74 68 65 79 20 64 6f 20 6e 6f 74  ow.# they do not
0720: 2e 0a 23 0a 69 66 63 61 70 61 62 6c 65 20 7b 75  ..#.ifcapable {u
0730: 74 66 31 36 7d 20 7b 0a 20 20 64 6f 5f 74 65 73  tf16} {.  do_tes
0740: 74 20 6d 69 73 75 73 65 2d 31 2e 34 20 7b 0a 20  t misuse-1.4 {. 
0750: 20 20 20 63 61 74 63 68 73 71 6c 32 20 7b 0a 20     catchsql2 {. 
0760: 20 20 20 20 20 20 53 45 4c 45 43 54 20 78 5f 73        SELECT x_s
0770: 71 6c 69 74 65 5f 65 78 65 63 28 27 53 45 4c 45  qlite_exec('SELE
0780: 43 54 20 2a 20 46 52 4f 4d 20 74 31 27 29 20 41  CT * FROM t1') A
0790: 53 20 78 79 7a 3b 0a 20 20 20 20 7d 20 0a 20 20  S xyz;.    } .  
07a0: 7d 20 7b 30 20 7b 78 79 7a 20 7b 31 20 32 7d 7d  } {0 {xyz {1 2}}
07b0: 7d 0a 7d 0a 64 6f 5f 74 65 73 74 20 6d 69 73 75  }.}.do_test misu
07c0: 73 65 2d 31 2e 35 20 7b 0a 20 20 63 61 74 63 68  se-1.5 {.  catch
07d0: 73 71 6c 32 20 7b 53 45 4c 45 43 54 20 2a 20 46  sql2 {SELECT * F
07e0: 52 4f 4d 20 74 31 7d 0a 7d 20 7b 30 20 7b 61 20  ROM t1}.} {0 {a 
07f0: 62 20 31 20 32 7d 7d 0a 64 6f 5f 74 65 73 74 20  b 1 2}}.do_test 
0800: 6d 69 73 75 73 65 2d 31 2e 36 20 7b 0a 20 20 63  misuse-1.6 {.  c
0810: 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 53 45  atchsql {.    SE
0820: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 0a 20  LECT * FROM t1. 
0830: 20 7d 0a 7d 20 7b 30 20 7b 31 20 32 7d 7d 0a 0a   }.} {0 {1 2}}..
0840: 23 20 41 74 74 65 6d 70 74 20 74 6f 20 72 65 67  # Attempt to reg
0850: 69 73 74 65 72 20 61 20 6e 65 77 20 53 51 4c 20  ister a new SQL 
0860: 66 75 6e 63 74 69 6f 6e 20 77 68 69 6c 65 20 61  function while a
0870: 6e 20 73 71 6c 69 74 65 5f 65 78 65 63 28 29 20  n sqlite_exec() 
0880: 69 73 20 61 63 74 69 76 65 2e 0a 23 0a 64 6f 5f  is active..#.do_
0890: 74 65 73 74 20 6d 69 73 75 73 65 2d 32 2e 31 20  test misuse-2.1 
08a0: 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 73  {.  db close.  s
08b0: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 32 2e  qlite3 db test2.
08c0: 64 62 3b 20 73 65 74 20 3a 3a 44 42 20 5b 73 71  db; set ::DB [sq
08d0: 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f 6e  lite3_connection
08e0: 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20 65  _pointer db].  e
08f0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c  xecsql {.    SEL
0900: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 0a 20 20  ECT * FROM t1.  
0910: 7d 0a 7d 20 7b 31 20 32 7d 0a 64 6f 5f 74 65 73  }.} {1 2}.do_tes
0920: 74 20 6d 69 73 75 73 65 2d 32 2e 32 20 7b 0a 20  t misuse-2.2 {. 
0930: 20 63 61 74 63 68 73 71 6c 32 20 7b 53 45 4c 45   catchsql2 {SELE
0940: 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d 0a 7d 20  CT * FROM t1}.} 
0950: 7b 30 20 7b 61 20 62 20 31 20 32 7d 7d 0a 0a 23  {0 {a b 1 2}}..#
0960: 20 57 65 20 75 73 65 64 20 74 6f 20 64 69 73 61   We used to disa
0970: 6c 6c 6f 77 20 63 72 65 61 74 69 6e 67 20 6e 65  llow creating ne
0980: 77 20 66 75 6e 63 74 69 6f 6e 20 66 72 6f 6d 20  w function from 
0990: 77 69 74 68 69 6e 20 61 6e 20 65 78 65 63 28 29  within an exec()
09a0: 2e 0a 23 20 42 75 74 20 6e 6f 77 20 74 68 69 73  ..# But now this
09b0: 20 69 73 20 61 63 63 65 70 74 61 62 6c 65 2e 0a   is acceptable..
09c0: 64 6f 5f 74 65 73 74 20 6d 69 73 75 73 65 2d 32  do_test misuse-2
09d0: 2e 33 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 61  .3 {.  set v [ca
09e0: 74 63 68 20 7b 0a 20 20 20 20 64 62 20 65 76 61  tch {.    db eva
09f0: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  l {SELECT * FROM
0a00: 20 74 31 7d 20 7b 7d 20 7b 0a 20 20 20 20 20 20   t1} {} {.      
0a10: 73 71 6c 69 74 65 33 5f 63 72 65 61 74 65 5f 66  sqlite3_create_f
0a20: 75 6e 63 74 69 6f 6e 20 24 3a 3a 44 42 0a 20 20  unction $::DB.  
0a30: 20 20 7d 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 6c    }.  } msg].  l
0a40: 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20  append v $msg.} 
0a50: 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 6d  {0 {}}.do_test m
0a60: 69 73 75 73 65 2d 32 2e 34 20 7b 0a 20 20 63 61  isuse-2.4 {.  ca
0a70: 74 63 68 73 71 6c 32 20 7b 53 45 4c 45 43 54 20  tchsql2 {SELECT 
0a80: 2a 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b 30 20  * FROM t1}.} {0 
0a90: 7b 61 20 62 20 31 20 32 7d 7d 0a 64 6f 5f 74 65  {a b 1 2}}.do_te
0aa0: 73 74 20 6d 69 73 75 73 65 2d 32 2e 35 20 7b 0a  st misuse-2.5 {.
0ab0: 20 20 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20    catchsql {.   
0ac0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
0ad0: 31 0a 20 20 7d 0a 7d 20 7b 30 20 7b 31 20 32 7d  1.  }.} {0 {1 2}
0ae0: 7d 0a 0a 23 20 41 74 74 65 6d 70 74 20 74 6f 20  }..# Attempt to 
0af0: 72 65 67 69 73 74 65 72 20 61 20 6e 65 77 20 53  register a new S
0b00: 51 4c 20 61 67 67 72 65 67 61 74 65 20 77 68 69  QL aggregate whi
0b10: 6c 65 20 61 6e 20 73 71 6c 69 74 65 5f 65 78 65  le an sqlite_exe
0b20: 63 28 29 20 69 73 20 61 63 74 69 76 65 2e 0a 23  c() is active..#
0b30: 0a 64 6f 5f 74 65 73 74 20 6d 69 73 75 73 65 2d  .do_test misuse-
0b40: 33 2e 31 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65  3.1 {.  db close
0b50: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65  .  sqlite3 db te
0b60: 73 74 32 2e 64 62 3b 20 73 65 74 20 3a 3a 44 42  st2.db; set ::DB
0b70: 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63   [sqlite3_connec
0b80: 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d  tion_pointer db]
0b90: 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20  .  execsql {.   
0ba0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
0bb0: 31 0a 20 20 7d 0a 7d 20 7b 31 20 32 7d 0a 64 6f  1.  }.} {1 2}.do
0bc0: 5f 74 65 73 74 20 6d 69 73 75 73 65 2d 33 2e 32  _test misuse-3.2
0bd0: 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 32 20 7b   {.  catchsql2 {
0be0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
0bf0: 7d 0a 7d 20 7b 30 20 7b 61 20 62 20 31 20 32 7d  }.} {0 {a b 1 2}
0c00: 7d 0a 0a 23 20 57 65 20 75 73 65 64 20 74 6f 20  }..# We used to 
0c10: 64 69 73 61 6c 6c 6f 77 20 63 72 65 61 74 69 6e  disallow creatin
0c20: 67 20 6e 65 77 20 66 75 6e 63 74 69 6f 6e 20 66  g new function f
0c30: 72 6f 6d 20 77 69 74 68 69 6e 20 61 6e 20 65 78  rom within an ex
0c40: 65 63 28 29 2e 0a 23 20 42 75 74 20 6e 6f 77 20  ec()..# But now 
0c50: 74 68 69 73 20 69 73 20 61 63 63 65 70 74 61 62  this is acceptab
0c60: 6c 65 2e 0a 64 6f 5f 74 65 73 74 20 6d 69 73 75  le..do_test misu
0c70: 73 65 2d 33 2e 33 20 7b 0a 20 20 73 65 74 20 76  se-3.3 {.  set v
0c80: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 64 62   [catch {.    db
0c90: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20   eval {SELECT * 
0ca0: 46 52 4f 4d 20 74 31 7d 20 7b 7d 20 7b 0a 20 20  FROM t1} {} {.  
0cb0: 20 20 20 20 73 71 6c 69 74 65 33 5f 63 72 65 61      sqlite3_crea
0cc0: 74 65 5f 61 67 67 72 65 67 61 74 65 20 24 3a 3a  te_aggregate $::
0cd0: 44 42 0a 20 20 20 20 7d 0a 20 20 7d 20 6d 73 67  DB.    }.  } msg
0ce0: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d  ].  lappend v $m
0cf0: 73 67 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74  sg.} {0 {}}.do_t
0d00: 65 73 74 20 6d 69 73 75 73 65 2d 33 2e 34 20 7b  est misuse-3.4 {
0d10: 0a 20 20 63 61 74 63 68 73 71 6c 32 20 7b 53 45  .  catchsql2 {SE
0d20: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d 0a  LECT * FROM t1}.
0d30: 7d 20 7b 30 20 7b 61 20 62 20 31 20 32 7d 7d 0a  } {0 {a b 1 2}}.
0d40: 64 6f 5f 74 65 73 74 20 6d 69 73 75 73 65 2d 33  do_test misuse-3
0d50: 2e 35 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 20  .5 {.  catchsql 
0d60: 7b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46  {.    SELECT * F
0d70: 52 4f 4d 20 74 31 0a 20 20 7d 0a 7d 20 7b 30 20  ROM t1.  }.} {0 
0d80: 7b 31 20 32 7d 7d 0a 0a 23 20 41 74 74 65 6d 70  {1 2}}..# Attemp
0d90: 74 20 74 6f 20 63 6c 6f 73 65 20 74 68 65 20 64  t to close the d
0da0: 61 74 61 62 61 73 65 20 66 72 6f 6d 20 61 6e 20  atabase from an 
0db0: 73 71 6c 69 74 65 5f 65 78 65 63 20 63 61 6c 6c  sqlite_exec call
0dc0: 62 61 63 6b 2e 0a 23 0a 23 20 55 70 64 61 74 65  back..#.# Update
0dd0: 20 66 6f 72 20 76 33 3a 20 54 68 65 20 64 62 20   for v3: The db 
0de0: 63 61 6e 6e 6f 74 20 62 65 20 63 6c 6f 73 65 64  cannot be closed
0df0: 20 62 65 63 61 75 73 65 20 74 68 65 72 65 20 61   because there a
0e00: 72 65 20 61 63 74 69 76 65 0a 23 20 56 4d 73 2e  re active.# VMs.
0e10: 20 54 68 65 20 73 71 6c 69 74 65 33 5f 63 6c 6f   The sqlite3_clo
0e20: 73 65 20 63 61 6c 6c 20 77 6f 75 6c 64 20 72 65  se call would re
0e30: 74 75 72 6e 20 53 51 4c 49 54 45 5f 42 55 53 59  turn SQLITE_BUSY
0e40: 2e 0a 64 6f 5f 74 65 73 74 20 6d 69 73 75 73 65  ..do_test misuse
0e50: 2d 34 2e 31 20 7b 0a 20 20 64 62 20 63 6c 6f 73  -4.1 {.  db clos
0e60: 65 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74  e.  sqlite3 db t
0e70: 65 73 74 32 2e 64 62 3b 20 73 65 74 20 3a 3a 44  est2.db; set ::D
0e80: 42 20 5b 73 71 6c 69 74 65 33 5f 63 6f 6e 6e 65  B [sqlite3_conne
0e90: 63 74 69 6f 6e 5f 70 6f 69 6e 74 65 72 20 64 62  ction_pointer db
0ea0: 5d 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20  ].  execsql {.  
0eb0: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20    SELECT * FROM 
0ec0: 74 31 0a 20 20 7d 0a 7d 20 7b 31 20 32 7d 0a 64  t1.  }.} {1 2}.d
0ed0: 6f 5f 74 65 73 74 20 6d 69 73 75 73 65 2d 34 2e  o_test misuse-4.
0ee0: 32 20 7b 0a 20 20 63 61 74 63 68 73 71 6c 32 20  2 {.  catchsql2 
0ef0: 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74  {SELECT * FROM t
0f00: 31 7d 0a 7d 20 7b 30 20 7b 61 20 62 20 31 20 32  1}.} {0 {a b 1 2
0f10: 7d 7d 0a 64 6f 5f 74 65 73 74 20 6d 69 73 75 73  }}.do_test misus
0f20: 65 2d 34 2e 33 20 7b 0a 20 20 73 65 74 20 76 20  e-4.3 {.  set v 
0f30: 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 64 62 20  [catch {.    db 
0f40: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  eval {SELECT * F
0f50: 52 4f 4d 20 74 31 7d 20 7b 7d 20 7b 0a 20 20 20  ROM t1} {} {.   
0f60: 20 20 20 73 65 74 20 72 20 5b 73 71 6c 69 74 65     set r [sqlite
0f70: 33 5f 63 6c 6f 73 65 20 24 3a 3a 44 42 5d 0a 20  3_close $::DB]. 
0f80: 20 20 20 7d 0a 20 20 7d 20 6d 73 67 5d 0a 20 20     }.  } msg].  
0f90: 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 20 24  lappend v $msg $
0fa0: 72 0a 7d 20 7b 30 20 7b 7d 20 53 51 4c 49 54 45  r.} {0 {} SQLITE
0fb0: 5f 42 55 53 59 7d 0a 0a 69 66 20 7b 5b 63 6c 61  _BUSY}..if {[cla
0fc0: 6e 67 5f 73 61 6e 69 74 69 7a 65 5f 61 64 64 72  ng_sanitize_addr
0fd0: 65 73 73 5d 3d 3d 30 7d 20 7b 0a 20 20 64 6f 5f  ess]==0} {.  do_
0fe0: 74 65 73 74 20 6d 69 73 75 73 65 2d 34 2e 34 20  test misuse-4.4 
0ff0: 7b 0a 20 20 23 20 46 6c 75 73 68 20 74 68 65 20  {.  # Flush the 
1000: 54 43 4c 20 73 74 61 74 65 6d 65 6e 74 20 63 61  TCL statement ca
1010: 63 68 65 20 68 65 72 65 2c 20 6f 74 68 65 72 77  che here, otherw
1020: 69 73 65 20 74 68 65 20 73 71 6c 69 74 65 33 5f  ise the sqlite3_
1030: 63 6c 6f 73 65 28 29 20 77 69 6c 6c 0a 20 20 23  close() will.  #
1040: 20 66 61 69 6c 20 62 65 63 61 75 73 65 20 74 68   fail because th
1050: 65 72 65 20 61 72 65 20 73 74 69 6c 6c 20 75 6e  ere are still un
1060: 2d 66 69 6e 61 6c 69 7a 65 64 28 29 20 56 44 42  -finalized() VDB
1070: 45 73 2e 0a 20 20 20 20 64 62 20 63 61 63 68 65  Es..    db cache
1080: 20 66 6c 75 73 68 0a 20 20 20 20 20 20 73 71 6c   flush.      sql
1090: 69 74 65 33 5f 63 6c 6f 73 65 20 24 3a 3a 44 42  ite3_close $::DB
10a0: 0a 20 20 20 20 20 20 63 61 74 63 68 73 71 6c 32  .      catchsql2
10b0: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
10c0: 74 31 7d 0a 20 20 7d 20 7b 31 20 7b 6c 69 62 72  t1}.  } {1 {libr
10d0: 61 72 79 20 72 6f 75 74 69 6e 65 20 63 61 6c 6c  ary routine call
10e0: 65 64 20 6f 75 74 20 6f 66 20 73 65 71 75 65 6e  ed out of sequen
10f0: 63 65 7d 7d 0a 20 20 64 6f 5f 74 65 73 74 20 6d  ce}}.  do_test m
1100: 69 73 75 73 65 2d 34 2e 35 20 7b 0a 20 20 20 20  isuse-4.5 {.    
1110: 63 61 74 63 68 73 71 6c 20 7b 0a 20 20 20 20 20  catchsql {.     
1120: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
1130: 31 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 31 20 7b  1.    }.  } {1 {
1140: 6c 69 62 72 61 72 79 20 72 6f 75 74 69 6e 65 20  library routine 
1150: 63 61 6c 6c 65 64 20 6f 75 74 20 6f 66 20 73 65  called out of se
1160: 71 75 65 6e 63 65 7d 7d 0a 0a 20 20 23 20 41 74  quence}}..  # At
1170: 74 65 6d 70 74 20 74 6f 20 75 73 65 20 61 20 64  tempt to use a d
1180: 61 74 61 62 61 73 65 20 61 66 74 65 72 20 69 74  atabase after it
1190: 20 68 61 73 20 62 65 65 6e 20 63 6c 6f 73 65 64   has been closed
11a0: 2e 0a 20 20 23 0a 20 20 64 6f 5f 74 65 73 74 20  ..  #.  do_test 
11b0: 6d 69 73 75 73 65 2d 35 2e 31 20 7b 0a 20 20 20  misuse-5.1 {.   
11c0: 20 64 62 20 63 6c 6f 73 65 0a 20 20 20 20 20 20   db close.      
11d0: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 32  sqlite3 db test2
11e0: 2e 64 62 3b 20 73 65 74 20 3a 3a 44 42 20 5b 73  .db; set ::DB [s
11f0: 71 6c 69 74 65 33 5f 63 6f 6e 6e 65 63 74 69 6f  qlite3_connectio
1200: 6e 5f 70 6f 69 6e 74 65 72 20 64 62 5d 0a 20 20  n_pointer db].  
1210: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20      execsql {.  
1220: 20 20 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46        SELECT * F
1230: 52 4f 4d 20 74 31 0a 20 20 20 20 20 20 7d 0a 20  ROM t1.      }. 
1240: 20 7d 20 7b 31 20 32 7d 0a 20 20 64 6f 5f 74 65   } {1 2}.  do_te
1250: 73 74 20 6d 69 73 75 73 65 2d 35 2e 32 20 7b 0a  st misuse-5.2 {.
1260: 20 20 20 20 63 61 74 63 68 73 71 6c 32 20 7b 53      catchsql2 {S
1270: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d  ELECT * FROM t1}
1280: 0a 20 20 7d 20 7b 30 20 7b 61 20 62 20 31 20 32  .  } {0 {a b 1 2
1290: 7d 7d 0a 20 20 64 6f 5f 74 65 73 74 20 6d 69 73  }}.  do_test mis
12a0: 75 73 65 2d 35 2e 33 20 7b 0a 20 20 20 20 64 62  use-5.3 {.    db
12b0: 20 63 6c 6f 73 65 0a 20 20 20 20 20 20 73 65 74   close.      set
12c0: 20 72 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20   r [catch {.    
12d0: 20 20 20 20 73 71 6c 69 74 65 33 5f 70 72 65 70      sqlite3_prep
12e0: 61 72 65 20 24 3a 3a 44 42 20 7b 53 45 4c 45 43  are $::DB {SELEC
12f0: 54 20 2a 20 46 52 4f 4d 20 74 31 7d 20 2d 31 20  T * FROM t1} -1 
1300: 54 41 49 4c 0a 20 20 20 20 20 20 7d 20 6d 73 67  TAIL.      } msg
1310: 5d 0a 20 20 20 20 6c 61 70 70 65 6e 64 20 72 20  ].    lappend r 
1320: 24 6d 73 67 0a 20 20 7d 20 7b 31 20 7b 28 32 31  $msg.  } {1 {(21
1330: 29 20 6c 69 62 72 61 72 79 20 72 6f 75 74 69 6e  ) library routin
1340: 65 20 63 61 6c 6c 65 64 20 6f 75 74 20 6f 66 20  e called out of 
1350: 73 65 71 75 65 6e 63 65 7d 7d 0a 7d 0a 0a 66 69  sequence}}.}..fi
1360: 6e 69 73 68 5f 74 65 73 74 0a                    nish_test.