/ Hex Artifact Content
Login

Artifact ddafe133653093eb9a99ccd6264884ae43f9c9b8:


0000: 23 20 32 30 31 30 20 53 65 70 74 65 6d 62 65 72  # 2010 September
0010: 20 31 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f   1.#.# The autho
0020: 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79  r disclaims copy
0030: 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f  right to this so
0040: 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70  urce code.  In p
0050: 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61  lace of.# a lega
0060: 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69  l notice, here i
0070: 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a  s a blessing:.#.
0080: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20  #    May you do 
0090: 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69  good and not evi
00a0: 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  l..#    May you 
00b0: 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73  find forgiveness
00c0: 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e   for yourself an
00d0: 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73  d forgive others
00e0: 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73  ..#    May you s
00f0: 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76  hare freely, nev
0100: 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74  er taking more t
0110: 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a  han you give..#.
0120: 23 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 2a 2a 2a 2a 0a 23 0a 0a 73 65 74 20  ********.#..set 
0170: 74 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69  testdir [file di
0180: 72 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f  rname $argv0].so
0190: 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 74 65  urce $testdir/te
01a0: 73 74 65 72 2e 74 63 6c 0a 73 6f 75 72 63 65 20  ster.tcl.source 
01b0: 24 74 65 73 74 64 69 72 2f 6d 61 6c 6c 6f 63 5f  $testdir/malloc_
01c0: 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a 0a 64 62 20 63  common.tcl..db c
01d0: 6c 6f 73 65 0a 0a 64 6f 5f 74 65 73 74 20 71 75  lose..do_test qu
01e0: 6f 74 61 2d 31 2e 31 20 7b 20 73 71 6c 69 74 65  ota-1.1 { sqlite
01f0: 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c 69  3_quota_initiali
0200: 7a 65 20 6e 6f 73 75 63 68 76 66 73 20 31 20 7d  ze nosuchvfs 1 }
0210: 20 7b 53 51 4c 49 54 45 5f 45 52 52 4f 52 7d 0a   {SQLITE_ERROR}.
0220: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 31 2e  do_test quota-1.
0230: 32 20 7b 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  2 { sqlite3_quot
0240: 61 5f 69 6e 69 74 69 61 6c 69 7a 65 20 22 22 20  a_initialize "" 
0250: 31 20 7d 20 20 20 20 20 20 20 20 7b 53 51 4c 49  1 }        {SQLI
0260: 54 45 5f 4f 4b 7d 0a 64 6f 5f 74 65 73 74 20 71  TE_OK}.do_test q
0270: 75 6f 74 61 2d 31 2e 33 20 7b 20 73 71 6c 69 74  uota-1.3 { sqlit
0280: 65 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c  e3_quota_initial
0290: 69 7a 65 20 22 22 20 31 20 7d 20 20 20 20 20 20  ize "" 1 }      
02a0: 20 20 7b 53 51 4c 49 54 45 5f 4d 49 53 55 53 45    {SQLITE_MISUSE
02b0: 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d  }.do_test quota-
02c0: 31 2e 34 20 7b 20 73 71 6c 69 74 65 33 5f 71 75  1.4 { sqlite3_qu
02d0: 6f 74 61 5f 73 68 75 74 64 6f 77 6e 20 7d 20 20  ota_shutdown }  
02e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7b 53 51               {SQ
02f0: 4c 49 54 45 5f 4f 4b 7d 0a 0a 64 6f 5f 74 65 73  LITE_OK}..do_tes
0300: 74 20 71 75 6f 74 61 2d 31 2e 35 20 7b 20 73 71  t quota-1.5 { sq
0310: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 69 6e 69 74  lite3_quota_init
0320: 69 61 6c 69 7a 65 20 22 22 20 30 20 7d 20 20 20  ialize "" 0 }   
0330: 20 20 20 20 20 7b 53 51 4c 49 54 45 5f 4f 4b 7d       {SQLITE_OK}
0340: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 31  .do_test quota-1
0350: 2e 36 20 7b 20 73 71 6c 69 74 65 33 5f 71 75 6f  .6 { sqlite3_quo
0360: 74 61 5f 73 68 75 74 64 6f 77 6e 20 7d 20 20 20  ta_shutdown }   
0370: 20 20 20 20 20 20 20 20 20 20 20 20 7b 53 51 4c              {SQL
0380: 49 54 45 5f 4f 4b 7d 0a 64 6f 5f 74 65 73 74 20  ITE_OK}.do_test 
0390: 71 75 6f 74 61 2d 31 2e 37 20 7b 20 73 71 6c 69  quota-1.7 { sqli
03a0: 74 65 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61  te3_quota_initia
03b0: 6c 69 7a 65 20 22 22 20 31 20 7d 20 20 20 20 20  lize "" 1 }     
03c0: 20 20 20 7b 53 51 4c 49 54 45 5f 4f 4b 7d 0a 64     {SQLITE_OK}.d
03d0: 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 31 2e 38  o_test quota-1.8
03e0: 20 7b 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61   { sqlite3_quota
03f0: 5f 73 68 75 74 64 6f 77 6e 20 7d 20 20 20 20 20  _shutdown }     
0400: 20 20 20 20 20 20 20 20 20 20 7b 53 51 4c 49 54            {SQLIT
0410: 45 5f 4f 4b 7d 0a 0a 0a 23 2d 2d 2d 2d 2d 2d 2d  E_OK}...#-------
0420: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0460: 2d 2d 0a 23 20 53 6f 6d 65 20 73 69 6d 70 6c 65  --.# Some simple
0470: 20 77 61 72 6d 2d 62 6f 64 79 20 74 65 73 74 73   warm-body tests
0480: 20 77 69 74 68 20 61 20 73 69 6e 67 6c 65 20 64   with a single d
0490: 61 74 61 62 61 73 65 20 66 69 6c 65 20 69 6e 20  atabase file in 
04a0: 72 6f 6c 6c 62 61 63 6b 20 0a 23 20 6d 6f 64 65  rollback .# mode
04b0: 3a 0a 23 0a 23 20 20 20 71 75 6f 74 61 2d 32 2e  :.#.#   quota-2.
04c0: 31 2e 2a 3a 20 54 65 73 74 20 74 68 61 74 20 53  1.*: Test that S
04d0: 51 4c 49 54 45 5f 46 55 4c 4c 20 69 73 20 72 65  QLITE_FULL is re
04e0: 74 75 72 6e 65 64 20 69 66 20 74 68 65 20 64 61  turned if the da
04f0: 74 61 62 61 73 65 20 77 6f 75 6c 64 0a 23 20 20  tabase would.#  
0500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 78                ex
0510: 63 65 65 64 20 74 68 65 20 63 6f 6e 66 69 67 75  ceed the configu
0520: 72 65 64 20 71 75 6f 74 61 2e 0a 23 0a 23 20 20  red quota..#.#  
0530: 20 71 75 6f 74 61 2d 32 2e 32 2e 2a 3a 20 54 65   quota-2.2.*: Te
0540: 73 74 20 74 68 61 74 20 53 51 4c 49 54 45 5f 46  st that SQLITE_F
0550: 55 4c 4c 20 69 73 20 6e 6f 74 20 72 65 74 75 72  ULL is not retur
0560: 6e 65 64 20 61 6e 64 20 74 68 65 20 64 61 74 61  ned and the data
0570: 62 61 73 65 0a 23 20 20 20 20 20 20 20 20 20 20  base.#          
0580: 20 20 20 20 20 20 67 72 6f 77 73 20 69 66 20 74        grows if t
0590: 68 65 20 63 61 6c 6c 62 61 63 6b 20 65 78 74 65  he callback exte
05a0: 6e 64 73 20 74 68 65 20 71 75 6f 74 61 20 77 68  nds the quota wh
05b0: 65 6e 20 74 68 65 20 64 61 74 61 62 61 73 65 0a  en the database.
05c0: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  #               
05d0: 20 61 74 74 65 6d 70 74 73 20 74 6f 20 67 72 6f   attempts to gro
05e0: 77 20 62 65 79 6f 6e 64 20 74 68 65 20 63 6f 6e  w beyond the con
05f0: 66 69 67 75 72 65 64 20 71 75 6f 74 61 2e 0a 23  figured quota..#
0600: 0a 23 20 20 20 71 75 6f 74 61 2d 32 2e 33 2e 2a  .#   quota-2.3.*
0610: 3a 20 4f 70 65 6e 20 61 6e 64 20 63 6c 6f 73 65  : Open and close
0620: 20 61 20 64 62 20 74 68 61 74 20 69 73 20 6e 6f   a db that is no
0630: 74 20 70 61 72 74 20 6f 66 20 61 6e 79 20 71 75  t part of any qu
0640: 6f 74 61 20 67 72 6f 75 70 2e 20 41 74 0a 23 20  ota group. At.# 
0650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f                 o
0660: 6e 65 20 70 6f 69 6e 74 20 74 68 69 73 20 77 61  ne point this wa
0670: 73 20 63 61 75 73 69 6e 67 20 6d 75 74 65 78 20  s causing mutex 
0680: 72 65 66 73 20 74 6f 20 62 65 20 6c 65 61 6b 65  refs to be leake
0690: 64 2e 0a 23 0a 23 20 20 20 71 75 6f 74 61 2d 32  d..#.#   quota-2
06a0: 2e 34 2e 2a 3a 20 54 72 79 20 74 6f 20 73 68 75  .4.*: Try to shu
06b0: 74 64 6f 77 6e 20 74 68 65 20 71 75 6f 74 61 20  tdown the quota 
06c0: 73 79 73 74 65 6d 20 62 65 66 6f 72 65 20 63 6c  system before cl
06d0: 6f 73 69 6e 67 20 74 68 65 20 64 62 0a 23 20 20  osing the db.#  
06e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69                fi
06f0: 6c 65 2e 20 43 68 65 63 6b 20 74 68 61 74 20 74  le. Check that t
0700: 68 69 73 20 66 61 69 6c 73 20 61 6e 64 20 74 68  his fails and th
0710: 65 20 71 75 6f 74 61 20 73 79 73 74 65 6d 20 73  e quota system s
0720: 74 69 6c 6c 20 77 6f 72 6b 73 0a 23 20 20 20 20  till works.#    
0730: 20 20 20 20 20 20 20 20 20 20 20 20 61 66 74 65              afte
0740: 72 77 61 72 64 73 2e 20 54 68 65 6e 20 63 6c 6f  rwards. Then clo
0750: 73 65 20 74 68 65 20 64 61 74 61 62 61 73 65 20  se the database 
0760: 61 6e 64 20 73 75 63 63 65 73 73 66 75 6c 6c 79  and successfully
0770: 20 73 68 75 74 0a 23 20 20 20 20 20 20 20 20 20   shut.#         
0780: 20 20 20 20 20 20 20 64 6f 77 6e 20 74 68 65 20         down the 
0790: 71 75 6f 74 61 20 73 79 73 74 65 6d 2e 0a 23 20  quota system..# 
07a0: 20 20 0a 73 71 6c 69 74 65 33 5f 71 75 6f 74 61    .sqlite3_quota
07b0: 5f 69 6e 69 74 69 61 6c 69 7a 65 20 22 22 20 31  _initialize "" 1
07c0: 0a 0a 70 72 6f 63 20 71 75 6f 74 61 5f 63 68 65  ..proc quota_che
07d0: 63 6b 20 7b 66 69 6c 65 6e 61 6d 65 20 6c 69 6d  ck {filename lim
07e0: 69 74 76 61 72 20 73 69 7a 65 7d 20 7b 0a 20 20  itvar size} {.  
07f0: 75 70 76 61 72 20 24 6c 69 6d 69 74 76 61 72 20  upvar $limitvar 
0800: 6c 69 6d 69 74 0a 0a 20 20 6c 61 70 70 65 6e 64  limit..  lappend
0810: 20 3a 3a 71 75 6f 74 61 20 5b 73 65 74 20 6c 69   ::quota [set li
0820: 6d 69 74 5d 20 24 73 69 7a 65 0a 20 20 69 66 20  mit] $size.  if 
0830: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a  {[info exists ::
0840: 71 75 6f 74 61 5f 72 65 71 75 65 73 74 5f 6f 6b  quota_request_ok
0850: 5d 7d 20 7b 20 73 65 74 20 6c 69 6d 69 74 20 24  ]} { set limit $
0860: 73 69 7a 65 20 7d 0a 7d 0a 0a 64 6f 5f 74 65 73  size }.}..do_tes
0870: 74 20 71 75 6f 74 61 2d 32 2e 31 2e 31 20 7b 0a  t quota-2.1.1 {.
0880: 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f    sqlite3_quota_
0890: 73 65 74 20 2a 74 65 73 74 2e 64 62 20 34 30 39  set *test.db 409
08a0: 36 20 71 75 6f 74 61 5f 63 68 65 63 6b 0a 7d 20  6 quota_check.} 
08b0: 7b 53 51 4c 49 54 45 5f 4f 4b 7d 0a 64 6f 5f 74  {SQLITE_OK}.do_t
08c0: 65 73 74 20 71 75 6f 74 61 2d 32 2e 31 2e 32 20  est quota-2.1.2 
08d0: 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74  {.  sqlite3 db t
08e0: 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c  est.db.  execsql
08f0: 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 70 61   {.    PRAGMA pa
0900: 67 65 5f 73 69 7a 65 3d 31 30 32 34 3b 0a 20 20  ge_size=1024;.  
0910: 20 20 50 52 41 47 4d 41 20 61 75 74 6f 5f 76 61    PRAGMA auto_va
0920: 63 75 75 6d 3d 4f 46 46 3b 0a 20 20 20 20 50 52  cuum=OFF;.    PR
0930: 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64  AGMA journal_mod
0940: 65 3d 44 45 4c 45 54 45 3b 0a 20 20 7d 0a 20 20  e=DELETE;.  }.  
0950: 73 65 74 20 3a 3a 71 75 6f 74 61 20 5b 6c 69 73  set ::quota [lis
0960: 74 5d 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  t].  execsql {. 
0970: 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20     CREATE TABLE 
0980: 74 31 28 61 2c 20 62 29 3b 0a 20 20 20 20 49 4e  t1(a, b);.    IN
0990: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
09a0: 55 45 53 28 31 2c 20 72 61 6e 64 6f 6d 62 6c 6f  UES(1, randomblo
09b0: 62 28 31 31 30 30 29 29 3b 0a 20 20 20 20 49 4e  b(1100));.    IN
09c0: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
09d0: 55 45 53 28 32 2c 20 72 61 6e 64 6f 6d 62 6c 6f  UES(2, randomblo
09e0: 62 28 31 31 30 30 29 29 3b 0a 20 20 7d 0a 20 20  b(1100));.  }.  
09f0: 73 65 74 20 3a 3a 71 75 6f 74 61 0a 7d 20 7b 7d  set ::quota.} {}
0a00: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 32  .do_test quota-2
0a10: 2e 31 2e 33 20 7b 20 66 69 6c 65 20 73 69 7a 65  .1.3 { file size
0a20: 20 74 65 73 74 2e 64 62 20 7d 20 7b 34 30 39 36   test.db } {4096
0a30: 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d  }.do_test quota-
0a40: 32 2e 31 2e 34 20 7b 0a 20 20 63 61 74 63 68 73  2.1.4 {.  catchs
0a50: 71 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f  ql { INSERT INTO
0a60: 20 74 31 20 56 41 4c 55 45 53 28 33 2c 20 72 61   t1 VALUES(3, ra
0a70: 6e 64 6f 6d 62 6c 6f 62 28 31 31 30 30 29 29 20  ndomblob(1100)) 
0a80: 7d 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65  }.} {1 {database
0a90: 20 6f 72 20 64 69 73 6b 20 69 73 20 66 75 6c 6c   or disk is full
0aa0: 7d 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  }}.do_test quota
0ab0: 2d 32 2e 31 2e 35 20 7b 20 73 65 74 20 3a 3a 71  -2.1.5 { set ::q
0ac0: 75 6f 74 61 20 7d 20 7b 34 30 39 36 20 35 31 32  uota } {4096 512
0ad0: 30 7d 0a 0a 73 65 74 20 3a 3a 71 75 6f 74 61 5f  0}..set ::quota_
0ae0: 72 65 71 75 65 73 74 5f 6f 6b 20 31 0a 73 65 74  request_ok 1.set
0af0: 20 3a 3a 71 75 6f 74 61 20 5b 6c 69 73 74 5d 0a   ::quota [list].
0b00: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 32 2e  do_test quota-2.
0b10: 32 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20  2.1 {.  execsql 
0b20: 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31  { INSERT INTO t1
0b30: 20 56 41 4c 55 45 53 28 33 2c 20 72 61 6e 64 6f   VALUES(3, rando
0b40: 6d 62 6c 6f 62 28 31 31 30 30 29 29 20 7d 0a 7d  mblob(1100)) }.}
0b50: 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74   {}.do_test quot
0b60: 61 2d 32 2e 32 2e 32 20 7b 20 73 65 74 20 3a 3a  a-2.2.2 { set ::
0b70: 71 75 6f 74 61 20 7d 20 7b 34 30 39 36 20 35 31  quota } {4096 51
0b80: 32 30 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74  20}.do_test quot
0b90: 61 2d 32 2e 32 2e 33 20 7b 20 66 69 6c 65 20 73  a-2.2.3 { file s
0ba0: 69 7a 65 20 74 65 73 74 2e 64 62 20 7d 20 7b 35  ize test.db } {5
0bb0: 31 32 30 7d 0a 75 6e 73 65 74 20 3a 3a 71 75 6f  120}.unset ::quo
0bc0: 74 61 5f 72 65 71 75 65 73 74 5f 6f 6b 0a 0a 64  ta_request_ok..d
0bd0: 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 32 2e 33  o_test quota-2.3
0be0: 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64  .1 {.  sqlite3 d
0bf0: 62 32 20 62 61 6b 2e 64 62 0a 20 20 64 62 32 20  b2 bak.db.  db2 
0c00: 63 6c 6f 73 65 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74  close.} {}..do_t
0c10: 65 73 74 20 71 75 6f 74 61 2d 32 2e 34 2e 31 20  est quota-2.4.1 
0c20: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  {.  sqlite3_quot
0c30: 61 5f 73 68 75 74 64 6f 77 6e 0a 7d 20 7b 53 51  a_shutdown.} {SQ
0c40: 4c 49 54 45 5f 4d 49 53 55 53 45 7d 0a 73 65 74  LITE_MISUSE}.set
0c50: 20 3a 3a 71 75 6f 74 61 20 5b 6c 69 73 74 5d 0a   ::quota [list].
0c60: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 32 2e  do_test quota-2.
0c70: 34 2e 32 20 7b 0a 20 20 63 61 74 63 68 73 71 6c  4.2 {.  catchsql
0c80: 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74   { INSERT INTO t
0c90: 31 20 56 41 4c 55 45 53 28 33 2c 20 72 61 6e 64  1 VALUES(3, rand
0ca0: 6f 6d 62 6c 6f 62 28 31 31 30 30 29 29 20 7d 0a  omblob(1100)) }.
0cb0: 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 6f  } {1 {database o
0cc0: 72 20 64 69 73 6b 20 69 73 20 66 75 6c 6c 7d 7d  r disk is full}}
0cd0: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 32  .do_test quota-2
0ce0: 2e 34 2e 33 20 7b 20 73 65 74 20 3a 3a 71 75 6f  .4.3 { set ::quo
0cf0: 74 61 20 7d 20 7b 35 31 32 30 20 36 31 34 34 7d  ta } {5120 6144}
0d00: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 32  .do_test quota-2
0d10: 2e 34 2e 34 20 7b 20 66 69 6c 65 20 73 69 7a 65  .4.4 { file size
0d20: 20 74 65 73 74 2e 64 62 20 7d 20 7b 35 31 32 30   test.db } {5120
0d30: 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d  }.do_test quota-
0d40: 32 2e 34 2e 39 39 20 7b 0a 20 20 64 62 20 63 6c  2.4.99 {.  db cl
0d50: 6f 73 65 0a 20 20 73 71 6c 69 74 65 33 5f 71 75  ose.  sqlite3_qu
0d60: 6f 74 61 5f 73 68 75 74 64 6f 77 6e 0a 7d 20 7b  ota_shutdown.} {
0d70: 53 51 4c 49 54 45 5f 4f 4b 7d 0a 0a 23 2d 2d 2d  SQLITE_OK}..#---
0d80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0d90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0da0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0db0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0dc0: 2d 2d 2d 2d 2d 2d 0a 23 20 54 72 79 20 73 6f 6d  ------.# Try som
0dd0: 65 20 74 65 73 74 73 20 77 69 74 68 20 6d 6f 72  e tests with mor
0de0: 65 20 74 68 61 6e 20 6f 6e 65 20 63 6f 6e 6e 65  e than one conne
0df0: 63 74 69 6f 6e 20 74 6f 20 61 20 64 61 74 61 62  ction to a datab
0e00: 61 73 65 20 66 69 6c 65 2e 20 53 74 69 6c 6c 0a  ase file. Still.
0e10: 23 20 69 6e 20 72 6f 6c 6c 62 61 63 6b 20 6d 6f  # in rollback mo
0e20: 64 65 2e 0a 23 0a 23 20 20 20 71 75 6f 74 61 2d  de..#.#   quota-
0e30: 33 2e 31 2e 2a 3a 20 54 77 6f 20 63 6f 6e 6e 65  3.1.*: Two conne
0e40: 63 74 69 6f 6e 73 20 74 6f 20 61 20 73 69 6e 67  ctions to a sing
0e50: 6c 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65  le database file
0e60: 2e 0a 23 0a 23 20 20 20 71 75 6f 74 61 2d 33 2e  ..#.#   quota-3.
0e70: 32 2e 2a 3a 20 54 77 6f 20 63 6f 6e 6e 65 63 74  2.*: Two connect
0e80: 69 6f 6e 73 20 74 6f 20 65 61 63 68 20 6f 66 20  ions to each of 
0e90: 73 65 76 65 72 61 6c 20 64 61 74 61 62 61 73 65  several database
0ea0: 20 66 69 6c 65 73 20 28 74 68 61 74 0a 23 20 20   files (that.#  
0eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72                ar
0ec0: 65 20 69 6e 20 74 68 65 20 73 61 6d 65 20 71 75  e in the same qu
0ed0: 6f 74 61 20 67 72 6f 75 70 29 2e 0a 23 0a 70 72  ota group)..#.pr
0ee0: 6f 63 20 71 75 6f 74 61 5f 63 68 65 63 6b 20 7b  oc quota_check {
0ef0: 66 69 6c 65 6e 61 6d 65 20 6c 69 6d 69 74 76 61  filename limitva
0f00: 72 20 73 69 7a 65 7d 20 7b 0a 20 20 75 70 76 61  r size} {.  upva
0f10: 72 20 24 6c 69 6d 69 74 76 61 72 20 6c 69 6d 69  r $limitvar limi
0f20: 74 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a 71 75  t.  lappend ::qu
0f30: 6f 74 61 20 5b 73 65 74 20 6c 69 6d 69 74 5d 20  ota [set limit] 
0f40: 24 73 69 7a 65 0a 20 20 69 66 20 7b 5b 69 6e 66  $size.  if {[inf
0f50: 6f 20 65 78 69 73 74 73 20 3a 3a 71 75 6f 74 61  o exists ::quota
0f60: 5f 72 65 71 75 65 73 74 5f 6f 6b 5d 7d 20 7b 20  _request_ok]} { 
0f70: 73 65 74 20 6c 69 6d 69 74 20 24 73 69 7a 65 20  set limit $size 
0f80: 7d 0a 7d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f  }.}..do_test quo
0f90: 74 61 2d 33 2e 31 2e 31 20 7b 0a 20 20 66 69 6c  ta-3.1.1 {.  fil
0fa0: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
0fb0: 74 65 73 74 2e 64 62 0a 20 20 73 71 6c 69 74 65  test.db.  sqlite
0fc0: 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c 69  3_quota_initiali
0fd0: 7a 65 20 22 22 20 31 0a 20 20 73 71 6c 69 74 65  ze "" 1.  sqlite
0fe0: 33 5f 71 75 6f 74 61 5f 73 65 74 20 2a 74 65 73  3_quota_set *tes
0ff0: 74 2e 64 62 20 34 30 39 36 20 71 75 6f 74 61 5f  t.db 4096 quota_
1000: 63 68 65 63 6b 0a 7d 20 7b 53 51 4c 49 54 45 5f  check.} {SQLITE_
1010: 4f 4b 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74  OK}.do_test quot
1020: 61 2d 33 2e 31 2e 32 20 7b 0a 20 20 73 71 6c 69  a-3.1.2 {.  sqli
1030: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 20  te3 db test.db. 
1040: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 50   execsql {.    P
1050: 52 41 47 4d 41 20 70 61 67 65 5f 73 69 7a 65 20  RAGMA page_size 
1060: 3d 20 31 30 32 34 3b 0a 20 20 20 20 50 52 41 47  = 1024;.    PRAG
1070: 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20  MA journal_mode 
1080: 3d 20 64 65 6c 65 74 65 3b 0a 20 20 20 20 50 52  = delete;.    PR
1090: 41 47 4d 41 20 61 75 74 6f 5f 76 61 63 75 75 6d  AGMA auto_vacuum
10a0: 20 3d 20 6f 66 66 3b 0a 20 20 20 20 43 52 45 41   = off;.    CREA
10b0: 54 45 20 54 41 42 4c 45 20 74 31 28 61 20 50 52  TE TABLE t1(a PR
10c0: 49 4d 41 52 59 20 4b 45 59 2c 20 62 29 3b 0a 20  IMARY KEY, b);. 
10d0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
10e0: 31 20 56 41 4c 55 45 53 28 31 2c 20 27 6f 6e 65  1 VALUES(1, 'one
10f0: 27 29 3b 0a 20 20 7d 0a 20 20 66 69 6c 65 20 73  ');.  }.  file s
1100: 69 7a 65 20 74 65 73 74 2e 64 62 0a 7d 20 7b 33  ize test.db.} {3
1110: 30 37 32 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f  072}.do_test quo
1120: 74 61 2d 33 2e 31 2e 33 20 7b 0a 20 20 73 71 6c  ta-3.1.3 {.  sql
1130: 69 74 65 33 20 64 62 32 20 74 65 73 74 2e 64 62  ite3 db2 test.db
1140: 0a 20 20 73 65 74 20 3a 3a 71 75 6f 74 61 20 5b  .  set ::quota [
1150: 6c 69 73 74 5d 0a 20 20 65 78 65 63 73 71 6c 20  list].  execsql 
1160: 7b 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74  { CREATE TABLE t
1170: 32 28 61 2c 20 62 29 20 7d 20 64 62 32 0a 20 20  2(a, b) } db2.  
1180: 73 65 74 20 3a 3a 71 75 6f 74 61 0a 7d 20 7b 7d  set ::quota.} {}
1190: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 33  .do_test quota-3
11a0: 2e 31 2e 34 20 7b 0a 20 20 63 61 74 63 68 73 71  .1.4 {.  catchsq
11b0: 6c 20 7b 20 43 52 45 41 54 45 20 54 41 42 4c 45  l { CREATE TABLE
11c0: 20 74 33 28 61 2c 20 62 29 20 7d 0a 7d 20 7b 31   t3(a, b) }.} {1
11d0: 20 7b 64 61 74 61 62 61 73 65 20 6f 72 20 64 69   {database or di
11e0: 73 6b 20 69 73 20 66 75 6c 6c 7d 7d 0a 64 6f 5f  sk is full}}.do_
11f0: 74 65 73 74 20 71 75 6f 74 61 2d 33 2e 31 2e 35  test quota-3.1.5
1200: 20 7b 0a 20 20 73 65 74 20 3a 3a 71 75 6f 74 61   {.  set ::quota
1210: 5f 72 65 71 75 65 73 74 5f 6f 6b 20 31 0a 20 20  _request_ok 1.  
1220: 65 78 65 63 73 71 6c 20 7b 20 43 52 45 41 54 45  execsql { CREATE
1230: 20 54 41 42 4c 45 20 74 33 28 61 2c 20 62 29 20   TABLE t3(a, b) 
1240: 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 71  }.} {}.do_test q
1250: 75 6f 74 61 2d 33 2e 31 2e 36 20 7b 0a 20 20 64  uota-3.1.6 {.  d
1260: 62 20 63 6c 6f 73 65 0a 20 20 64 62 32 20 63 6c  b close.  db2 cl
1270: 6f 73 65 0a 20 20 73 71 6c 69 74 65 33 5f 71 75  ose.  sqlite3_qu
1280: 6f 74 61 5f 73 65 74 20 2a 74 65 73 74 2e 64 62  ota_set *test.db
1290: 20 30 20 7b 7d 0a 7d 20 7b 53 51 4c 49 54 45 5f   0 {}.} {SQLITE_
12a0: 4f 4b 7d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f  OK}..do_test quo
12b0: 74 61 2d 33 2e 32 2e 31 20 7b 0a 20 20 66 69 6c  ta-3.2.1 {.  fil
12c0: 65 20 64 65 6c 65 74 65 20 66 6f 72 63 65 20 74  e delete force t
12d0: 65 73 74 2e 64 62 20 74 65 73 74 32 2e 64 62 20  est.db test2.db 
12e0: 0a 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  ..  sqlite3_quot
12f0: 61 5f 73 65 74 20 2a 20 34 30 39 36 20 7b 7d 0a  a_set * 4096 {}.
1300: 20 20 73 71 6c 69 74 65 33 20 64 62 31 61 20 74    sqlite3 db1a t
1310: 65 73 74 2e 64 62 0a 20 20 73 71 6c 69 74 65 33  est.db.  sqlite3
1320: 20 64 62 32 61 20 74 65 73 74 32 2e 64 62 0a 0a   db2a test2.db..
1330: 20 20 66 6f 72 65 61 63 68 20 64 62 20 7b 64 62    foreach db {db
1340: 31 61 20 64 62 32 61 7d 20 7b 0a 20 20 20 20 65  1a db2a} {.    e
1350: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 50  xecsql {.      P
1360: 52 41 47 4d 41 20 70 61 67 65 5f 73 69 7a 65 20  RAGMA page_size 
1370: 3d 20 31 30 32 34 3b 0a 20 20 20 20 20 20 50 52  = 1024;.      PR
1380: 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64  AGMA journal_mod
1390: 65 20 3d 20 64 65 6c 65 74 65 3b 0a 20 20 20 20  e = delete;.    
13a0: 20 20 50 52 41 47 4d 41 20 61 75 74 6f 5f 76 61    PRAGMA auto_va
13b0: 63 75 75 6d 20 3d 20 6f 66 66 3b 0a 20 20 20 20  cuum = off;.    
13c0: 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 74    CREATE TABLE t
13d0: 31 28 61 2c 20 62 29 3b 0a 20 20 20 20 7d 20 24  1(a, b);.    } $
13e0: 64 62 0a 20 20 7d 0a 0a 20 20 73 71 6c 69 74 65  db.  }..  sqlite
13f0: 33 20 64 62 31 62 20 74 65 73 74 2e 64 62 0a 20  3 db1b test.db. 
1400: 20 73 71 6c 69 74 65 33 20 64 62 32 62 20 74 65   sqlite3 db2b te
1410: 73 74 32 2e 64 62 0a 0a 20 20 6c 69 73 74 20 5b  st2.db..  list [
1420: 66 69 6c 65 20 73 69 7a 65 20 74 65 73 74 2e 64  file size test.d
1430: 62 5d 20 5b 66 69 6c 65 20 73 69 7a 65 20 74 65  b] [file size te
1440: 73 74 32 2e 64 62 5d 0a 7d 20 7b 32 30 34 38 20  st2.db].} {2048 
1450: 32 30 34 38 7d 0a 0a 63 61 74 63 68 20 7b 20 75  2048}..catch { u
1460: 6e 73 65 74 20 3a 3a 71 75 6f 74 61 5f 72 65 71  nset ::quota_req
1470: 75 65 73 74 5f 6f 6b 20 7d 0a 0a 64 6f 5f 74 65  uest_ok }..do_te
1480: 73 74 20 71 75 6f 74 61 2d 33 2e 32 2e 32 20 7b  st quota-3.2.2 {
1490: 20 65 78 65 63 73 71 6c 20 7b 20 49 4e 53 45 52   execsql { INSER
14a0: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
14b0: 28 27 78 27 2c 20 27 79 27 29 20 7d 20 64 62 31  ('x', 'y') } db1
14c0: 61 20 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 71  a } {}.do_test q
14d0: 75 6f 74 61 2d 33 2e 32 2e 33 20 7b 20 65 78 65  uota-3.2.3 { exe
14e0: 63 73 71 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e  csql { INSERT IN
14f0: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 27 76 27  TO t1 VALUES('v'
1500: 2c 20 27 77 27 29 20 7d 20 64 62 31 62 20 7d 20  , 'w') } db1b } 
1510: 7b 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  {}.do_test quota
1520: 2d 33 2e 32 2e 34 20 7b 20 65 78 65 63 73 71 6c  -3.2.4 { execsql
1530: 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74   { INSERT INTO t
1540: 31 20 56 41 4c 55 45 53 28 27 74 27 2c 20 27 75  1 VALUES('t', 'u
1550: 27 29 20 7d 20 64 62 32 61 20 7d 20 7b 7d 0a 64  ') } db2a } {}.d
1560: 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 33 2e 32  o_test quota-3.2
1570: 2e 35 20 7b 20 65 78 65 63 73 71 6c 20 7b 20 49  .5 { execsql { I
1580: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
1590: 4c 55 45 53 28 27 72 27 2c 20 27 73 27 29 20 7d  LUES('r', 's') }
15a0: 20 64 62 32 62 20 7d 20 7b 7d 0a 0a 64 6f 5f 74   db2b } {}..do_t
15b0: 65 73 74 20 71 75 6f 74 61 2d 33 2e 32 2e 36 20  est quota-3.2.6 
15c0: 7b 20 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 20  { .  catchsql { 
15d0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
15e0: 41 4c 55 45 53 28 72 61 6e 64 6f 6d 62 6c 6f 62  ALUES(randomblob
15f0: 28 35 30 30 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f  (500), randomblo
1600: 62 28 35 30 30 29 29 20 7d 20 64 62 31 61 0a 7d  b(500)) } db1a.}
1610: 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 6f 72   {1 {database or
1620: 20 64 69 73 6b 20 69 73 20 66 75 6c 6c 7d 7d 0a   disk is full}}.
1630: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 33 2e  do_test quota-3.
1640: 32 2e 37 20 7b 20 0a 20 20 63 61 74 63 68 73 71  2.7 { .  catchsq
1650: 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  l { INSERT INTO 
1660: 74 31 20 56 41 4c 55 45 53 28 72 61 6e 64 6f 6d  t1 VALUES(random
1670: 62 6c 6f 62 28 35 30 30 29 2c 20 72 61 6e 64 6f  blob(500), rando
1680: 6d 62 6c 6f 62 28 35 30 30 29 29 20 7d 20 64 62  mblob(500)) } db
1690: 31 62 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73  1b.} {1 {databas
16a0: 65 20 6f 72 20 64 69 73 6b 20 69 73 20 66 75 6c  e or disk is ful
16b0: 6c 7d 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74  l}}.do_test quot
16c0: 61 2d 33 2e 32 2e 38 20 7b 20 0a 20 20 63 61 74  a-3.2.8 { .  cat
16d0: 63 68 73 71 6c 20 7b 20 49 4e 53 45 52 54 20 49  chsql { INSERT I
16e0: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72 61  NTO t1 VALUES(ra
16f0: 6e 64 6f 6d 62 6c 6f 62 28 35 30 30 29 2c 20 72  ndomblob(500), r
1700: 61 6e 64 6f 6d 62 6c 6f 62 28 35 30 30 29 29 20  andomblob(500)) 
1710: 7d 20 64 62 32 61 0a 7d 20 7b 31 20 7b 64 61 74  } db2a.} {1 {dat
1720: 61 62 61 73 65 20 6f 72 20 64 69 73 6b 20 69 73  abase or disk is
1730: 20 66 75 6c 6c 7d 7d 0a 64 6f 5f 74 65 73 74 20   full}}.do_test 
1740: 71 75 6f 74 61 2d 33 2e 32 2e 39 20 7b 20 0a 20  quota-3.2.9 { . 
1750: 20 63 61 74 63 68 73 71 6c 20 7b 20 49 4e 53 45   catchsql { INSE
1760: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
1770: 53 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30 30  S(randomblob(500
1780: 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30  ), randomblob(50
1790: 30 29 29 20 7d 20 64 62 32 62 0a 7d 20 7b 31 20  0)) } db2b.} {1 
17a0: 7b 64 61 74 61 62 61 73 65 20 6f 72 20 64 69 73  {database or dis
17b0: 6b 20 69 73 20 66 75 6c 6c 7d 7d 0a 0a 73 65 74  k is full}}..set
17c0: 20 3a 3a 71 75 6f 74 61 20 5b 6c 69 73 74 5d 0a   ::quota [list].
17d0: 70 72 6f 63 20 71 75 6f 74 61 5f 63 61 6c 6c 62  proc quota_callb
17e0: 61 63 6b 20 7b 66 69 6c 65 20 6c 69 6d 69 74 76  ack {file limitv
17f0: 61 72 20 73 69 7a 65 7d 20 7b 0a 20 20 75 70 76  ar size} {.  upv
1800: 61 72 20 24 6c 69 6d 69 74 76 61 72 20 6c 69 6d  ar $limitvar lim
1810: 69 74 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a 71  it.  lappend ::q
1820: 75 6f 74 61 20 24 66 69 6c 65 20 24 73 69 7a 65  uota $file $size
1830: 0a 20 20 73 65 74 20 6c 69 6d 69 74 20 30 0a 7d  .  set limit 0.}
1840: 0a 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73  .sqlite3_quota_s
1850: 65 74 20 2a 20 34 30 39 36 20 71 75 6f 74 61 5f  et * 4096 quota_
1860: 63 61 6c 6c 62 61 63 6b 0a 64 6f 5f 74 65 73 74  callback.do_test
1870: 20 71 75 6f 74 61 2d 33 2e 33 2e 31 20 7b 20 0a   quota-3.3.1 { .
1880: 20 20 65 78 65 63 73 71 6c 20 7b 20 49 4e 53 45    execsql { INSE
1890: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
18a0: 53 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30 30  S(randomblob(500
18b0: 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30  ), randomblob(50
18c0: 30 29 29 20 7d 20 64 62 31 61 0a 20 20 65 78 65  0)) } db1a.  exe
18d0: 63 73 71 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e  csql { INSERT IN
18e0: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72 61 6e  TO t1 VALUES(ran
18f0: 64 6f 6d 62 6c 6f 62 28 35 30 30 29 2c 20 72 61  domblob(500), ra
1900: 6e 64 6f 6d 62 6c 6f 62 28 35 30 30 29 29 20 7d  ndomblob(500)) }
1910: 20 64 62 31 62 0a 20 20 65 78 65 63 73 71 6c 20   db1b.  execsql 
1920: 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31  { INSERT INTO t1
1930: 20 56 41 4c 55 45 53 28 72 61 6e 64 6f 6d 62 6c   VALUES(randombl
1940: 6f 62 28 35 30 30 29 2c 20 72 61 6e 64 6f 6d 62  ob(500), randomb
1950: 6c 6f 62 28 35 30 30 29 29 20 7d 20 64 62 32 61  lob(500)) } db2a
1960: 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 49 4e 53  .  execsql { INS
1970: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
1980: 45 53 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30  ES(randomblob(50
1990: 30 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 35  0), randomblob(5
19a0: 30 30 29 29 20 7d 20 64 62 32 62 0a 20 20 73 65  00)) } db2b.  se
19b0: 74 20 3a 3a 71 75 6f 74 61 0a 7d 20 5b 6c 69 73  t ::quota.} [lis
19c0: 74 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77  t [file join [pw
19d0: 64 5d 20 74 65 73 74 2e 64 62 5d 20 35 31 32 30  d] test.db] 5120
19e0: 5d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  ]..do_test quota
19f0: 2d 33 2e 32 2e 58 20 7b 0a 20 20 66 6f 72 65 61  -3.2.X {.  forea
1a00: 63 68 20 64 62 20 7b 64 62 31 61 20 64 62 32 61  ch db {db1a db2a
1a10: 20 64 62 32 62 20 64 62 31 62 7d 20 7b 20 63 61   db2b db1b} { ca
1a20: 74 63 68 20 7b 20 24 64 62 20 63 6c 6f 73 65 20  tch { $db close 
1a30: 7d 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75  } }.  sqlite3_qu
1a40: 6f 74 61 5f 73 65 74 20 2a 20 30 20 7b 7d 0a 7d  ota_set * 0 {}.}
1a50: 20 7b 53 51 4c 49 54 45 5f 4f 4b 7d 0a 0a 23 2d   {SQLITE_OK}..#-
1a60: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1aa0: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 51 75 6f 74 61  --------.# Quota
1ab0: 73 20 61 72 65 20 64 65 6c 65 74 65 64 20 77 68  s are deleted wh
1ac0: 65 6e 20 75 6e 75 73 65 64 20 61 6e 64 20 77 68  en unused and wh
1ad0: 65 6e 20 74 68 65 72 65 20 6c 69 6d 69 74 20 69  en there limit i
1ae0: 73 20 73 65 74 20 74 6f 20 7a 65 72 6f 0a 23 0a  s set to zero.#.
1af0: 0a 23 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74  .# Return a list
1b00: 20 6f 66 20 61 6c 6c 20 63 75 72 72 65 6e 74 6c   of all currentl
1b10: 79 20 64 65 66 69 6e 65 64 20 71 75 6f 74 61 73  y defined quotas
1b20: 2e 20 20 45 61 63 68 20 71 75 6f 74 61 20 69 73  .  Each quota is
1b30: 20 69 64 65 6e 74 69 66 69 65 64 0a 23 20 62 79   identified.# by
1b40: 20 69 74 73 20 70 61 74 74 65 72 6e 2e 0a 70 72   its pattern..pr
1b50: 6f 63 20 71 75 6f 74 61 5f 6c 69 73 74 20 7b 7d  oc quota_list {}
1b60: 20 7b 0a 20 20 73 65 74 20 61 6c 6c 71 20 7b 7d   {.  set allq {}
1b70: 0a 20 20 66 6f 72 65 61 63 68 20 71 20 5b 73 71  .  foreach q [sq
1b80: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 64 75 6d 70  lite3_quota_dump
1b90: 5d 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64 20  ] {.    lappend 
1ba0: 61 6c 6c 71 20 5b 6c 69 6e 64 65 78 20 24 71 20  allq [lindex $q 
1bb0: 30 5d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  0].  }.  return 
1bc0: 5b 6c 73 6f 72 74 20 24 61 6c 6c 71 5d 0a 7d 0a  [lsort $allq].}.
1bd0: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34  .do_test quota-4
1be0: 2e 31 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65 33  .1.1 {.  sqlite3
1bf0: 5f 71 75 6f 74 61 5f 73 65 74 20 2a 74 65 73 74  _quota_set *test
1c00: 2e 64 62 20 30 20 7b 7d 0a 20 20 71 75 6f 74 61  .db 0 {}.  quota
1c10: 5f 6c 69 73 74 0a 7d 20 7b 7d 0a 64 6f 5f 74 65  _list.} {}.do_te
1c20: 73 74 20 71 75 6f 74 61 2d 34 2e 31 2e 32 20 7b  st quota-4.1.2 {
1c30: 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  .  sqlite3_quota
1c40: 5f 73 65 74 20 2a 74 65 73 74 2e 64 62 20 34 30  _set *test.db 40
1c50: 39 36 20 7b 7d 0a 20 20 71 75 6f 74 61 5f 6c 69  96 {}.  quota_li
1c60: 73 74 0a 7d 20 7b 2a 74 65 73 74 2e 64 62 7d 0a  st.} {*test.db}.
1c70: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e  do_test quota-4.
1c80: 31 2e 33 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  1.3 {.  sqlite3_
1c90: 71 75 6f 74 61 5f 73 65 74 20 2a 74 65 73 74 32  quota_set *test2
1ca0: 2e 64 62 20 30 20 7b 7d 0a 20 20 71 75 6f 74 61  .db 0 {}.  quota
1cb0: 5f 6c 69 73 74 0a 7d 20 7b 2a 74 65 73 74 2e 64  _list.} {*test.d
1cc0: 62 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  b}.do_test quota
1cd0: 2d 34 2e 31 2e 34 20 7b 0a 20 20 73 71 6c 69 74  -4.1.4 {.  sqlit
1ce0: 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 2a 74 65  e3_quota_set *te
1cf0: 73 74 32 2e 64 62 20 31 30 30 30 30 30 20 7b 7d  st2.db 100000 {}
1d00: 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a 7d 20  .  quota_list.} 
1d10: 7b 2a 74 65 73 74 2e 64 62 20 2a 74 65 73 74 32  {*test.db *test2
1d20: 2e 64 62 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f  .db}.do_test quo
1d30: 74 61 2d 34 2e 31 2e 35 20 7b 0a 20 20 73 71 6c  ta-4.1.5 {.  sql
1d40: 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 2a  ite3_quota_set *
1d50: 74 65 73 74 2e 64 62 20 30 20 7b 7d 0a 20 20 71  test.db 0 {}.  q
1d60: 75 6f 74 61 5f 6c 69 73 74 0a 7d 20 7b 2a 74 65  uota_list.} {*te
1d70: 73 74 32 2e 64 62 7d 0a 64 6f 5f 74 65 73 74 20  st2.db}.do_test 
1d80: 71 75 6f 74 61 2d 34 2e 31 2e 36 20 7b 0a 20 20  quota-4.1.6 {.  
1d90: 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72  file delete -for
1da0: 63 65 20 74 65 73 74 32 2e 64 62 20 74 65 73 74  ce test2.db test
1db0: 32 2e 64 62 2d 6a 6f 75 72 6e 61 6c 20 74 65 73  2.db-journal tes
1dc0: 74 32 2e 64 62 2d 77 61 6c 0a 20 20 73 71 6c 69  t2.db-wal.  sqli
1dd0: 74 65 33 20 64 62 20 74 65 73 74 32 2e 64 62 0a  te3 db test2.db.
1de0: 20 20 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54    db eval {CREAT
1df0: 45 20 54 41 42 4c 45 20 74 32 28 78 29 3b 20 49  E TABLE t2(x); I
1e00: 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 20 56 41  NSERT INTO t2 VA
1e10: 4c 55 45 53 28 27 74 61 62 2d 74 32 27 29 3b 7d  LUES('tab-t2');}
1e20: 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a 7d 20  .  quota_list.} 
1e30: 7b 2a 74 65 73 74 32 2e 64 62 7d 0a 64 6f 5f 74  {*test2.db}.do_t
1e40: 65 73 74 20 71 75 6f 74 61 2d 34 2e 31 2e 37 20  est quota-4.1.7 
1e50: 7b 0a 20 20 63 61 74 63 68 73 71 6c 20 7b 49 4e  {.  catchsql {IN
1e60: 53 45 52 54 20 49 4e 54 4f 20 74 32 20 56 41 4c  SERT INTO t2 VAL
1e70: 55 45 53 28 7a 65 72 6f 62 6c 6f 62 28 32 30 30  UES(zeroblob(200
1e80: 30 30 30 29 29 7d 0a 7d 20 7b 31 20 7b 64 61 74  000))}.} {1 {dat
1e90: 61 62 61 73 65 20 6f 72 20 64 69 73 6b 20 69 73  abase or disk is
1ea0: 20 66 75 6c 6c 7d 7d 0a 64 6f 5f 74 65 73 74 20   full}}.do_test 
1eb0: 71 75 6f 74 61 2d 34 2e 31 2e 38 20 7b 0a 20 20  quota-4.1.8 {.  
1ec0: 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73 74  sqlite3 db2 test
1ed0: 32 2e 64 62 0a 20 20 64 62 32 20 65 76 61 6c 20  2.db.  db2 eval 
1ee0: 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74  {SELECT * FROM t
1ef0: 32 7d 0a 7d 20 7b 74 61 62 2d 74 32 7d 0a 64 6f  2}.} {tab-t2}.do
1f00: 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e 31 2e  _test quota-4.1.
1f10: 39 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 71 75  9 {.  sqlite3_qu
1f20: 6f 74 61 5f 73 65 74 20 2a 74 65 73 74 32 2e 64  ota_set *test2.d
1f30: 62 20 30 20 7b 7d 0a 20 20 63 61 74 63 68 73 71  b 0 {}.  catchsq
1f40: 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  l {INSERT INTO t
1f50: 32 20 56 41 4c 55 45 53 28 7a 65 72 6f 62 6c 6f  2 VALUES(zeroblo
1f60: 62 28 32 30 30 30 30 30 29 29 7d 0a 7d 20 7b 30  b(200000))}.} {0
1f70: 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f   {}}.do_test quo
1f80: 74 61 2d 34 2e 31 2e 31 30 20 7b 0a 20 20 71 75  ta-4.1.10 {.  qu
1f90: 6f 74 61 5f 6c 69 73 74 0a 7d 20 7b 2a 74 65 73  ota_list.} {*tes
1fa0: 74 32 2e 64 62 7d 0a 64 6f 5f 74 65 73 74 20 71  t2.db}.do_test q
1fb0: 75 6f 74 61 2d 34 2e 31 2e 31 31 20 7b 0a 20 20  uota-4.1.11 {.  
1fc0: 64 62 32 20 63 6c 6f 73 65 0a 20 20 71 75 6f 74  db2 close.  quot
1fd0: 61 5f 6c 69 73 74 0a 7d 20 7b 2a 74 65 73 74 32  a_list.} {*test2
1fe0: 2e 64 62 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f  .db}.do_test quo
1ff0: 74 61 2d 34 2e 31 2e 31 32 20 7b 0a 20 20 64 62  ta-4.1.12 {.  db
2000: 20 63 6c 6f 73 65 0a 20 20 71 75 6f 74 61 5f 6c   close.  quota_l
2010: 69 73 74 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73  ist.} {}..do_tes
2020: 74 20 71 75 6f 74 61 2d 34 2e 32 2e 31 20 7b 0a  t quota-4.2.1 {.
2030: 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f    sqlite3_quota_
2040: 73 65 74 20 41 20 31 30 30 30 20 7b 7d 0a 20 20  set A 1000 {}.  
2050: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65  sqlite3_quota_se
2060: 74 20 42 20 31 30 30 30 20 7b 7d 0a 20 20 73 71  t B 1000 {}.  sq
2070: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20  lite3_quota_set 
2080: 43 20 31 30 30 30 20 7b 7d 0a 20 20 73 71 6c 69  C 1000 {}.  sqli
2090: 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 44 20  te3_quota_set D 
20a0: 31 30 30 30 20 7b 7d 0a 20 20 71 75 6f 74 61 5f  1000 {}.  quota_
20b0: 6c 69 73 74 0a 7d 20 7b 41 20 42 20 43 20 44 7d  list.} {A B C D}
20c0: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34  .do_test quota-4
20d0: 2e 32 2e 32 20 7b 0a 20 20 73 71 6c 69 74 65 33  .2.2 {.  sqlite3
20e0: 5f 71 75 6f 74 61 5f 73 65 74 20 43 20 30 20 7b  _quota_set C 0 {
20f0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  }.  sqlite3_quot
2100: 61 5f 73 65 74 20 42 20 30 20 7b 7d 0a 20 20 71  a_set B 0 {}.  q
2110: 75 6f 74 61 5f 6c 69 73 74 0a 7d 20 7b 41 20 44  uota_list.} {A D
2120: 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d  }.do_test quota-
2130: 34 2e 32 2e 33 20 7b 0a 20 20 73 71 6c 69 74 65  4.2.3 {.  sqlite
2140: 33 5f 71 75 6f 74 61 5f 73 65 74 20 41 20 30 20  3_quota_set A 0 
2150: 7b 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f  {}.  sqlite3_quo
2160: 74 61 5f 73 65 74 20 44 20 30 20 7b 7d 0a 20 20  ta_set D 0 {}.  
2170: 71 75 6f 74 61 5f 6c 69 73 74 0a 7d 20 7b 7d 0a  quota_list.} {}.
2180: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e  do_test quota-4.
2190: 32 2e 34 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  2.4 {.  sqlite3_
21a0: 71 75 6f 74 61 5f 73 65 74 20 41 20 31 30 30 30  quota_set A 1000
21b0: 20 7b 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75   {}.  sqlite3_qu
21c0: 6f 74 61 5f 73 65 74 20 42 20 31 30 30 30 20 7b  ota_set B 1000 {
21d0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  }.  sqlite3_quot
21e0: 61 5f 73 65 74 20 43 20 31 30 30 30 20 7b 7d 0a  a_set C 1000 {}.
21f0: 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f    sqlite3_quota_
2200: 73 65 74 20 41 20 30 20 7b 7d 0a 20 20 73 71 6c  set A 0 {}.  sql
2210: 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 42  ite3_quota_set B
2220: 20 30 20 7b 7d 0a 20 20 73 71 6c 69 74 65 33 5f   0 {}.  sqlite3_
2230: 71 75 6f 74 61 5f 73 65 74 20 43 20 30 20 7b 7d  quota_set C 0 {}
2240: 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a 7d 20  .  quota_list.} 
2250: 7b 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  {}.do_test quota
2260: 2d 34 2e 32 2e 35 20 7b 0a 20 20 73 71 6c 69 74  -4.2.5 {.  sqlit
2270: 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 41 20 31  e3_quota_set A 1
2280: 30 30 30 20 7b 7d 0a 20 20 73 71 6c 69 74 65 33  000 {}.  sqlite3
2290: 5f 71 75 6f 74 61 5f 73 65 74 20 42 20 31 30 30  _quota_set B 100
22a0: 30 20 7b 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71  0 {}.  sqlite3_q
22b0: 75 6f 74 61 5f 73 65 74 20 43 20 31 30 30 30 20  uota_set C 1000 
22c0: 7b 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f  {}.  sqlite3_quo
22d0: 74 61 5f 73 65 74 20 43 20 30 20 7b 7d 0a 20 20  ta_set C 0 {}.  
22e0: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65  sqlite3_quota_se
22f0: 74 20 42 20 30 20 7b 7d 0a 20 20 73 71 6c 69 74  t B 0 {}.  sqlit
2300: 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 41 20 30  e3_quota_set A 0
2310: 20 7b 7d 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74   {}.  quota_list
2320: 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 71  .} {}..do_test q
2330: 75 6f 74 61 2d 34 2e 33 2e 31 20 7b 0a 20 20 73  uota-4.3.1 {.  s
2340: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74  qlite3_quota_set
2350: 20 41 20 31 30 30 30 20 71 75 6f 74 61 5f 63 61   A 1000 quota_ca
2360: 6c 6c 62 61 63 6b 0a 20 20 73 71 6c 69 74 65 33  llback.  sqlite3
2370: 20 64 62 20 41 0a 20 20 73 71 6c 69 74 65 33 5f   db A.  sqlite3_
2380: 71 75 6f 74 61 5f 73 65 74 20 41 20 30 20 71 75  quota_set A 0 qu
2390: 6f 74 61 5f 63 61 6c 6c 62 61 63 6b 0a 20 20 64  ota_callback.  d
23a0: 62 20 63 6c 6f 73 65 0a 20 20 71 75 6f 74 61 5f  b close.  quota_
23b0: 6c 69 73 74 0a 7d 20 7b 7d 0a 0a 64 6f 5f 74 65  list.} {}..do_te
23c0: 73 74 20 71 75 6f 74 61 2d 34 2e 34 2e 31 20 7b  st quota-4.4.1 {
23d0: 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  .  sqlite3_quota
23e0: 5f 73 65 74 20 41 20 31 30 30 30 20 71 75 6f 74  _set A 1000 quot
23f0: 61 5f 63 61 6c 6c 62 61 63 6b 0a 20 20 73 71 6c  a_callback.  sql
2400: 69 74 65 33 5f 71 75 6f 74 61 5f 73 68 75 74 64  ite3_quota_shutd
2410: 6f 77 6e 0a 7d 20 7b 53 51 4c 49 54 45 5f 4f 4b  own.} {SQLITE_OK
2420: 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d  }.do_test quota-
2430: 34 2e 34 2e 32 20 7b 0a 20 20 71 75 6f 74 61 5f  4.4.2 {.  quota_
2440: 6c 69 73 74 0a 7d 20 7b 7d 0a 0a 23 2d 2d 2d 2d  list.} {}..#----
2450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2490: 2d 2d 2d 2d 2d 0a 23 20 54 68 65 20 66 6f 6c 6c  -----.# The foll
24a0: 6f 77 69 6e 67 20 74 65 73 74 73 20 74 65 73 74  owing tests test
24b0: 20 74 68 61 74 20 74 68 65 20 71 75 6f 74 61 20   that the quota 
24c0: 56 46 53 20 68 61 6e 64 6c 65 73 20 6d 61 6c 6c  VFS handles mall
24d0: 6f 63 20 61 6e 64 20 49 4f 20 0a 23 20 65 72 72  oc and IO .# err
24e0: 6f 72 73 2e 0a 23 0a 0a 73 71 6c 69 74 65 33 5f  ors..#..sqlite3_
24f0: 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c 69 7a 65  quota_initialize
2500: 20 22 22 20 31 0a 73 71 6c 69 74 65 33 5f 71 75   "" 1.sqlite3_qu
2510: 6f 74 61 5f 73 65 74 20 2a 74 65 73 74 2e 64 62  ota_set *test.db
2520: 20 34 30 39 36 20 7b 7d 0a 0a 64 6f 5f 66 61 75   4096 {}..do_fau
2530: 6c 74 73 69 6d 5f 74 65 73 74 20 71 75 6f 74 61  ltsim_test quota
2540: 2d 35 2e 31 20 2d 70 72 65 70 20 7b 0a 20 20 63  -5.1 -prep {.  c
2550: 61 74 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a  atch {db close}.
2560: 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 73 71 6c 69  } -body {.  sqli
2570: 74 65 33 20 64 62 20 74 65 73 74 32 2e 64 62 0a  te3 db test2.db.
2580: 7d 0a 64 6f 5f 66 61 75 6c 74 73 69 6d 5f 74 65  }.do_faultsim_te
2590: 73 74 20 71 75 6f 74 61 2d 35 2e 32 20 2d 70 72  st quota-5.2 -pr
25a0: 65 70 20 7b 0a 20 20 63 61 74 63 68 20 7b 64 62  ep {.  catch {db
25b0: 20 63 6c 6f 73 65 7d 0a 7d 20 2d 62 6f 64 79 20   close}.} -body 
25c0: 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74  {.  sqlite3 db t
25d0: 65 73 74 2e 64 62 0a 7d 0a 0a 63 61 74 63 68 20  est.db.}..catch 
25e0: 7b 20 64 62 20 63 6c 6f 73 65 20 7d 0a 66 69 6c  { db close }.fil
25f0: 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65 20  e delete -force 
2600: 74 65 73 74 2e 64 62 0a 0a 64 6f 5f 74 65 73 74  test.db..do_test
2610: 20 71 75 6f 74 61 2d 35 2e 33 2e 70 72 65 70 20   quota-5.3.prep 
2620: 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74  {.  sqlite3 db t
2630: 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c  est.db.  execsql
2640: 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 61 75   {.    PRAGMA au
2650: 74 6f 5f 76 61 63 75 75 6d 20 3d 20 31 3b 0a 20  to_vacuum = 1;. 
2660: 20 20 20 50 52 41 47 4d 41 20 70 61 67 65 5f 73     PRAGMA page_s
2670: 69 7a 65 20 3d 20 31 30 32 34 3b 0a 20 20 20 20  ize = 1024;.    
2680: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
2690: 61 2c 20 62 29 3b 0a 20 20 20 20 49 4e 53 45 52  a, b);.    INSER
26a0: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
26b0: 28 31 30 2c 20 7a 65 72 6f 62 6c 6f 62 28 31 32  (10, zeroblob(12
26c0: 30 30 29 29 3b 0a 20 20 7d 0a 20 20 66 61 75 6c  00));.  }.  faul
26d0: 74 73 69 6d 5f 73 61 76 65 5f 61 6e 64 5f 63 6c  tsim_save_and_cl
26e0: 6f 73 65 0a 7d 20 7b 7d 0a 64 6f 5f 66 61 75 6c  ose.} {}.do_faul
26f0: 74 73 69 6d 5f 74 65 73 74 20 71 75 6f 74 61 2d  tsim_test quota-
2700: 35 2e 33 20 2d 70 72 65 70 20 7b 0a 20 20 66 61  5.3 -prep {.  fa
2710: 75 6c 74 73 69 6d 5f 72 65 73 74 6f 72 65 5f 61  ultsim_restore_a
2720: 6e 64 5f 72 65 6f 70 65 6e 0a 7d 20 2d 62 6f 64  nd_reopen.} -bod
2730: 79 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 20  y {.  execsql { 
2740: 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31 20 7d  DELETE FROM t1 }
2750: 0a 7d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74  .}..do_test quot
2760: 61 2d 35 2e 34 2e 31 20 7b 0a 20 20 63 61 74 63  a-5.4.1 {.  catc
2770: 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d 0a 20  h { db close }. 
2780: 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f   file delete -fo
2790: 72 63 65 20 74 65 73 74 2e 64 62 0a 20 20 66 69  rce test.db.  fi
27a0: 6c 65 20 6d 6b 64 69 72 20 74 65 73 74 2e 64 62  le mkdir test.db
27b0: 0a 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b  .  list [catch {
27c0: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
27d0: 2e 64 62 20 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  .db } msg] $msg.
27e0: 7d 20 7b 31 20 7b 75 6e 61 62 6c 65 20 74 6f 20  } {1 {unable to 
27f0: 6f 70 65 6e 20 64 61 74 61 62 61 73 65 20 66 69  open database fi
2800: 6c 65 7d 7d 0a 0a 64 6f 5f 66 61 75 6c 74 73 69  le}}..do_faultsi
2810: 6d 5f 74 65 73 74 20 71 75 6f 74 61 2d 35 2e 35  m_test quota-5.5
2820: 20 2d 70 72 65 70 20 7b 0a 20 20 63 61 74 63 68   -prep {.  catch
2830: 20 7b 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61   { sqlite3_quota
2840: 5f 73 68 75 74 64 6f 77 6e 20 7d 0a 7d 20 2d 62  _shutdown }.} -b
2850: 6f 64 79 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  ody {.  sqlite3_
2860: 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c 69 7a 65  quota_initialize
2870: 20 22 22 20 31 0a 7d 0a 0a 64 6f 5f 66 61 75 6c   "" 1.}..do_faul
2880: 74 73 69 6d 5f 74 65 73 74 20 71 75 6f 74 61 2d  tsim_test quota-
2890: 35 2e 36 20 2d 70 72 65 70 20 7b 0a 20 20 63 61  5.6 -prep {.  ca
28a0: 74 63 68 20 7b 20 73 71 6c 69 74 65 33 5f 71 75  tch { sqlite3_qu
28b0: 6f 74 61 5f 73 68 75 74 64 6f 77 6e 20 7d 0a 20  ota_shutdown }. 
28c0: 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 69   sqlite3_quota_i
28d0: 6e 69 74 69 61 6c 69 7a 65 20 22 22 20 31 0a 7d  nitialize "" 1.}
28e0: 20 2d 62 6f 64 79 20 7b 0a 20 20 73 71 6c 69 74   -body {.  sqlit
28f0: 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 2a 20 34  e3_quota_set * 4
2900: 30 39 36 20 7b 7d 0a 7d 0a 0a 63 61 74 63 68 20  096 {}.}..catch 
2910: 7b 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f  { sqlite3_quota_
2920: 73 68 75 74 64 6f 77 6e 20 7d 0a 66 69 6e 69 73  shutdown }.finis
2930: 68 5f 74 65 73 74 0a                             h_test.