/ Hex Artifact Content
Login

Artifact 1c59a396e8f7b5d8466fa74b59f2aeb778d74f7a:


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 6f 72  ta-3.1.1 {.  for
0fa0: 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62  cedelete test.db
0fb0: 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  .  sqlite3_quota
0fc0: 5f 69 6e 69 74 69 61 6c 69 7a 65 20 22 22 20 31  _initialize "" 1
0fd0: 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  .  sqlite3_quota
0fe0: 5f 73 65 74 20 2a 74 65 73 74 2e 64 62 20 34 30  _set *test.db 40
0ff0: 39 36 20 71 75 6f 74 61 5f 63 68 65 63 6b 0a 7d  96 quota_check.}
1000: 20 7b 53 51 4c 49 54 45 5f 4f 4b 7d 0a 64 6f 5f   {SQLITE_OK}.do_
1010: 74 65 73 74 20 71 75 6f 74 61 2d 33 2e 31 2e 32  test quota-3.1.2
1020: 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20   {.  sqlite3 db 
1030: 74 65 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71  test.db.  execsq
1040: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 70  l {.    PRAGMA p
1050: 61 67 65 5f 73 69 7a 65 20 3d 20 31 30 32 34 3b  age_size = 1024;
1060: 0a 20 20 20 20 50 52 41 47 4d 41 20 6a 6f 75 72  .    PRAGMA jour
1070: 6e 61 6c 5f 6d 6f 64 65 20 3d 20 64 65 6c 65 74  nal_mode = delet
1080: 65 3b 0a 20 20 20 20 50 52 41 47 4d 41 20 61 75  e;.    PRAGMA au
1090: 74 6f 5f 76 61 63 75 75 6d 20 3d 20 6f 66 66 3b  to_vacuum = off;
10a0: 0a 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c  .    CREATE TABL
10b0: 45 20 74 31 28 61 20 50 52 49 4d 41 52 59 20 4b  E t1(a PRIMARY K
10c0: 45 59 2c 20 62 29 3b 0a 20 20 20 20 49 4e 53 45  EY, b);.    INSE
10d0: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
10e0: 53 28 31 2c 20 27 6f 6e 65 27 29 3b 0a 20 20 7d  S(1, 'one');.  }
10f0: 0a 20 20 66 69 6c 65 20 73 69 7a 65 20 74 65 73  .  file size tes
1100: 74 2e 64 62 0a 7d 20 7b 33 30 37 32 7d 0a 64 6f  t.db.} {3072}.do
1110: 5f 74 65 73 74 20 71 75 6f 74 61 2d 33 2e 31 2e  _test quota-3.1.
1120: 33 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64 62  3 {.  sqlite3 db
1130: 32 20 74 65 73 74 2e 64 62 0a 20 20 73 65 74 20  2 test.db.  set 
1140: 3a 3a 71 75 6f 74 61 20 5b 6c 69 73 74 5d 0a 20  ::quota [list]. 
1150: 20 65 78 65 63 73 71 6c 20 7b 20 43 52 45 41 54   execsql { CREAT
1160: 45 20 54 41 42 4c 45 20 74 32 28 61 2c 20 62 29  E TABLE t2(a, b)
1170: 20 7d 20 64 62 32 0a 20 20 73 65 74 20 3a 3a 71   } db2.  set ::q
1180: 75 6f 74 61 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73  uota.} {}.do_tes
1190: 74 20 71 75 6f 74 61 2d 33 2e 31 2e 34 20 7b 0a  t quota-3.1.4 {.
11a0: 20 20 63 61 74 63 68 73 71 6c 20 7b 20 43 52 45    catchsql { CRE
11b0: 41 54 45 20 54 41 42 4c 45 20 74 33 28 61 2c 20  ATE TABLE t3(a, 
11c0: 62 29 20 7d 0a 7d 20 7b 31 20 7b 64 61 74 61 62  b) }.} {1 {datab
11d0: 61 73 65 20 6f 72 20 64 69 73 6b 20 69 73 20 66  ase or disk is f
11e0: 75 6c 6c 7d 7d 0a 64 6f 5f 74 65 73 74 20 71 75  ull}}.do_test qu
11f0: 6f 74 61 2d 33 2e 31 2e 35 20 7b 0a 20 20 73 65  ota-3.1.5 {.  se
1200: 74 20 3a 3a 71 75 6f 74 61 5f 72 65 71 75 65 73  t ::quota_reques
1210: 74 5f 6f 6b 20 31 0a 20 20 65 78 65 63 73 71 6c  t_ok 1.  execsql
1220: 20 7b 20 43 52 45 41 54 45 20 54 41 42 4c 45 20   { CREATE TABLE 
1230: 74 33 28 61 2c 20 62 29 20 7d 0a 7d 20 7b 7d 0a  t3(a, b) }.} {}.
1240: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 33 2e  do_test quota-3.
1250: 31 2e 36 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65  1.6 {.  db close
1260: 0a 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 73  .  db2 close.  s
1270: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74  qlite3_quota_set
1280: 20 2a 74 65 73 74 2e 64 62 20 30 20 7b 7d 0a 7d   *test.db 0 {}.}
1290: 20 7b 53 51 4c 49 54 45 5f 4f 4b 7d 0a 0a 64 6f   {SQLITE_OK}..do
12a0: 5f 74 65 73 74 20 71 75 6f 74 61 2d 33 2e 32 2e  _test quota-3.2.
12b0: 31 20 7b 0a 20 20 64 65 6c 65 74 65 5f 66 69 6c  1 {.  delete_fil
12c0: 65 20 66 6f 72 63 65 20 74 65 73 74 2e 64 62 20  e force test.db 
12d0: 74 65 73 74 32 2e 64 62 20 0a 0a 20 20 73 71 6c  test2.db ..  sql
12e0: 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 2a  ite3_quota_set *
12f0: 20 34 30 39 36 20 7b 7d 0a 20 20 73 71 6c 69 74   4096 {}.  sqlit
1300: 65 33 20 64 62 31 61 20 74 65 73 74 2e 64 62 0a  e3 db1a test.db.
1310: 20 20 73 71 6c 69 74 65 33 20 64 62 32 61 20 74    sqlite3 db2a t
1320: 65 73 74 32 2e 64 62 0a 0a 20 20 66 6f 72 65 61  est2.db..  forea
1330: 63 68 20 64 62 20 7b 64 62 31 61 20 64 62 32 61  ch db {db1a db2a
1340: 7d 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  } {.    execsql 
1350: 7b 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 70  {.      PRAGMA p
1360: 61 67 65 5f 73 69 7a 65 20 3d 20 31 30 32 34 3b  age_size = 1024;
1370: 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 6a 6f  .      PRAGMA jo
1380: 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 64 65 6c  urnal_mode = del
1390: 65 74 65 3b 0a 20 20 20 20 20 20 50 52 41 47 4d  ete;.      PRAGM
13a0: 41 20 61 75 74 6f 5f 76 61 63 75 75 6d 20 3d 20  A auto_vacuum = 
13b0: 6f 66 66 3b 0a 20 20 20 20 20 20 43 52 45 41 54  off;.      CREAT
13c0: 45 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62 29  E TABLE t1(a, b)
13d0: 3b 0a 20 20 20 20 7d 20 24 64 62 0a 20 20 7d 0a  ;.    } $db.  }.
13e0: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 31 62 20  .  sqlite3 db1b 
13f0: 74 65 73 74 2e 64 62 0a 20 20 73 71 6c 69 74 65  test.db.  sqlite
1400: 33 20 64 62 32 62 20 74 65 73 74 32 2e 64 62 0a  3 db2b test2.db.
1410: 0a 20 20 6c 69 73 74 20 5b 66 69 6c 65 20 73 69  .  list [file si
1420: 7a 65 20 74 65 73 74 2e 64 62 5d 20 5b 66 69 6c  ze test.db] [fil
1430: 65 20 73 69 7a 65 20 74 65 73 74 32 2e 64 62 5d  e size test2.db]
1440: 0a 7d 20 7b 32 30 34 38 20 32 30 34 38 7d 0a 0a  .} {2048 2048}..
1450: 63 61 74 63 68 20 7b 20 75 6e 73 65 74 20 3a 3a  catch { unset ::
1460: 71 75 6f 74 61 5f 72 65 71 75 65 73 74 5f 6f 6b  quota_request_ok
1470: 20 7d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74   }..do_test quot
1480: 61 2d 33 2e 32 2e 32 20 7b 20 65 78 65 63 73 71  a-3.2.2 { execsq
1490: 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20  l { INSERT INTO 
14a0: 74 31 20 56 41 4c 55 45 53 28 27 78 27 2c 20 27  t1 VALUES('x', '
14b0: 79 27 29 20 7d 20 64 62 31 61 20 7d 20 7b 7d 0a  y') } db1a } {}.
14c0: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 33 2e  do_test quota-3.
14d0: 32 2e 33 20 7b 20 65 78 65 63 73 71 6c 20 7b 20  2.3 { execsql { 
14e0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
14f0: 41 4c 55 45 53 28 27 76 27 2c 20 27 77 27 29 20  ALUES('v', 'w') 
1500: 7d 20 64 62 31 62 20 7d 20 7b 7d 0a 64 6f 5f 74  } db1b } {}.do_t
1510: 65 73 74 20 71 75 6f 74 61 2d 33 2e 32 2e 34 20  est quota-3.2.4 
1520: 7b 20 65 78 65 63 73 71 6c 20 7b 20 49 4e 53 45  { execsql { INSE
1530: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
1540: 53 28 27 74 27 2c 20 27 75 27 29 20 7d 20 64 62  S('t', 'u') } db
1550: 32 61 20 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20  2a } {}.do_test 
1560: 71 75 6f 74 61 2d 33 2e 32 2e 35 20 7b 20 65 78  quota-3.2.5 { ex
1570: 65 63 73 71 6c 20 7b 20 49 4e 53 45 52 54 20 49  ecsql { INSERT I
1580: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 27 72  NTO t1 VALUES('r
1590: 27 2c 20 27 73 27 29 20 7d 20 64 62 32 62 20 7d  ', 's') } db2b }
15a0: 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f   {}..do_test quo
15b0: 74 61 2d 33 2e 32 2e 36 20 7b 20 0a 20 20 63 61  ta-3.2.6 { .  ca
15c0: 74 63 68 73 71 6c 20 7b 20 49 4e 53 45 52 54 20  tchsql { INSERT 
15d0: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72  INTO t1 VALUES(r
15e0: 61 6e 64 6f 6d 62 6c 6f 62 28 35 30 30 29 2c 20  andomblob(500), 
15f0: 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30 30 29 29  randomblob(500))
1600: 20 7d 20 64 62 31 61 0a 7d 20 7b 31 20 7b 64 61   } db1a.} {1 {da
1610: 74 61 62 61 73 65 20 6f 72 20 64 69 73 6b 20 69  tabase or disk i
1620: 73 20 66 75 6c 6c 7d 7d 0a 64 6f 5f 74 65 73 74  s full}}.do_test
1630: 20 71 75 6f 74 61 2d 33 2e 32 2e 37 20 7b 20 0a   quota-3.2.7 { .
1640: 20 20 63 61 74 63 68 73 71 6c 20 7b 20 49 4e 53    catchsql { INS
1650: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
1660: 45 53 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30  ES(randomblob(50
1670: 30 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 35  0), randomblob(5
1680: 30 30 29 29 20 7d 20 64 62 31 62 0a 7d 20 7b 31  00)) } db1b.} {1
1690: 20 7b 64 61 74 61 62 61 73 65 20 6f 72 20 64 69   {database or di
16a0: 73 6b 20 69 73 20 66 75 6c 6c 7d 7d 0a 64 6f 5f  sk is full}}.do_
16b0: 74 65 73 74 20 71 75 6f 74 61 2d 33 2e 32 2e 38  test quota-3.2.8
16c0: 20 7b 20 0a 20 20 63 61 74 63 68 73 71 6c 20 7b   { .  catchsql {
16d0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
16e0: 56 41 4c 55 45 53 28 72 61 6e 64 6f 6d 62 6c 6f  VALUES(randomblo
16f0: 62 28 35 30 30 29 2c 20 72 61 6e 64 6f 6d 62 6c  b(500), randombl
1700: 6f 62 28 35 30 30 29 29 20 7d 20 64 62 32 61 0a  ob(500)) } db2a.
1710: 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 6f  } {1 {database o
1720: 72 20 64 69 73 6b 20 69 73 20 66 75 6c 6c 7d 7d  r disk is full}}
1730: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 33  .do_test quota-3
1740: 2e 32 2e 39 20 7b 20 0a 20 20 63 61 74 63 68 73  .2.9 { .  catchs
1750: 71 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f  ql { INSERT INTO
1760: 20 74 31 20 56 41 4c 55 45 53 28 72 61 6e 64 6f   t1 VALUES(rando
1770: 6d 62 6c 6f 62 28 35 30 30 29 2c 20 72 61 6e 64  mblob(500), rand
1780: 6f 6d 62 6c 6f 62 28 35 30 30 29 29 20 7d 20 64  omblob(500)) } d
1790: 62 32 62 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61  b2b.} {1 {databa
17a0: 73 65 20 6f 72 20 64 69 73 6b 20 69 73 20 66 75  se or disk is fu
17b0: 6c 6c 7d 7d 0a 0a 73 65 74 20 3a 3a 71 75 6f 74  ll}}..set ::quot
17c0: 61 20 5b 6c 69 73 74 5d 0a 70 72 6f 63 20 71 75  a [list].proc qu
17d0: 6f 74 61 5f 63 61 6c 6c 62 61 63 6b 20 7b 66 69  ota_callback {fi
17e0: 6c 65 20 6c 69 6d 69 74 76 61 72 20 73 69 7a 65  le limitvar size
17f0: 7d 20 7b 0a 20 20 75 70 76 61 72 20 24 6c 69 6d  } {.  upvar $lim
1800: 69 74 76 61 72 20 6c 69 6d 69 74 0a 20 20 69 66  itvar limit.  if
1810: 20 7b 24 3a 3a 74 63 6c 5f 70 6c 61 74 66 6f 72   {$::tcl_platfor
1820: 6d 28 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 77 69  m(platform)=="wi
1830: 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 20 20 73 65  ndows"} {.    se
1840: 74 20 66 69 6c 65 20 5b 20 6c 69 6e 64 65 78 20  t file [ lindex 
1850: 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 5c 5c 20  [string map {\\ 
1860: 5c 2f 7d 20 24 66 69 6c 65 5d 20 30 20 5d 0a 20  \/} $file] 0 ]. 
1870: 20 7d 0a 20 20 6c 61 70 70 65 6e 64 20 3a 3a 71   }.  lappend ::q
1880: 75 6f 74 61 20 24 66 69 6c 65 20 24 73 69 7a 65  uota $file $size
1890: 0a 20 20 73 65 74 20 6c 69 6d 69 74 20 30 0a 7d  .  set limit 0.}
18a0: 0a 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73  .sqlite3_quota_s
18b0: 65 74 20 2a 20 34 30 39 36 20 71 75 6f 74 61 5f  et * 4096 quota_
18c0: 63 61 6c 6c 62 61 63 6b 0a 64 6f 5f 74 65 73 74  callback.do_test
18d0: 20 71 75 6f 74 61 2d 33 2e 33 2e 31 20 7b 20 0a   quota-3.3.1 { .
18e0: 20 20 65 78 65 63 73 71 6c 20 7b 20 49 4e 53 45    execsql { INSE
18f0: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
1900: 53 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30 30  S(randomblob(500
1910: 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30  ), randomblob(50
1920: 30 29 29 20 7d 20 64 62 31 61 0a 20 20 65 78 65  0)) } db1a.  exe
1930: 63 73 71 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e  csql { INSERT IN
1940: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72 61 6e  TO t1 VALUES(ran
1950: 64 6f 6d 62 6c 6f 62 28 35 30 30 29 2c 20 72 61  domblob(500), ra
1960: 6e 64 6f 6d 62 6c 6f 62 28 35 30 30 29 29 20 7d  ndomblob(500)) }
1970: 20 64 62 31 62 0a 20 20 65 78 65 63 73 71 6c 20   db1b.  execsql 
1980: 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31  { INSERT INTO t1
1990: 20 56 41 4c 55 45 53 28 72 61 6e 64 6f 6d 62 6c   VALUES(randombl
19a0: 6f 62 28 35 30 30 29 2c 20 72 61 6e 64 6f 6d 62  ob(500), randomb
19b0: 6c 6f 62 28 35 30 30 29 29 20 7d 20 64 62 32 61  lob(500)) } db2a
19c0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 49 4e 53  .  execsql { INS
19d0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
19e0: 45 53 28 72 61 6e 64 6f 6d 62 6c 6f 62 28 35 30  ES(randomblob(50
19f0: 30 29 2c 20 72 61 6e 64 6f 6d 62 6c 6f 62 28 35  0), randomblob(5
1a00: 30 30 29 29 20 7d 20 64 62 32 62 0a 20 20 73 65  00)) } db2b.  se
1a10: 74 20 3a 3a 71 75 6f 74 61 0a 7d 20 5b 6c 69 73  t ::quota.} [lis
1a20: 74 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77  t [file join [pw
1a30: 64 5d 20 74 65 73 74 2e 64 62 5d 20 35 31 32 30  d] test.db] 5120
1a40: 5d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  ]..do_test quota
1a50: 2d 33 2e 32 2e 58 20 7b 0a 20 20 66 6f 72 65 61  -3.2.X {.  forea
1a60: 63 68 20 64 62 20 7b 64 62 31 61 20 64 62 32 61  ch db {db1a db2a
1a70: 20 64 62 32 62 20 64 62 31 62 7d 20 7b 20 63 61   db2b db1b} { ca
1a80: 74 63 68 20 7b 20 24 64 62 20 63 6c 6f 73 65 20  tch { $db close 
1a90: 7d 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75  } }.  sqlite3_qu
1aa0: 6f 74 61 5f 73 65 74 20 2a 20 30 20 7b 7d 0a 7d  ota_set * 0 {}.}
1ab0: 20 7b 53 51 4c 49 54 45 5f 4f 4b 7d 0a 0a 23 2d   {SQLITE_OK}..#-
1ac0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ad0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1ae0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1af0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1b00: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 51 75 6f 74 61  --------.# Quota
1b10: 73 20 61 72 65 20 64 65 6c 65 74 65 64 20 77 68  s are deleted wh
1b20: 65 6e 20 75 6e 75 73 65 64 20 61 6e 64 20 77 68  en unused and wh
1b30: 65 6e 20 74 68 65 69 72 20 6c 69 6d 69 74 20 69  en their limit i
1b40: 73 20 73 65 74 20 74 6f 20 7a 65 72 6f 0a 23 0a  s set to zero.#.
1b50: 0a 23 20 52 65 74 75 72 6e 20 61 20 6c 69 73 74  .# Return a list
1b60: 20 6f 66 20 61 6c 6c 20 63 75 72 72 65 6e 74 6c   of all currentl
1b70: 79 20 64 65 66 69 6e 65 64 20 71 75 6f 74 61 73  y defined quotas
1b80: 2e 20 20 45 61 63 68 20 71 75 6f 74 61 20 69 73  .  Each quota is
1b90: 20 69 64 65 6e 74 69 66 69 65 64 0a 23 20 62 79   identified.# by
1ba0: 20 69 74 73 20 70 61 74 74 65 72 6e 2e 0a 70 72   its pattern..pr
1bb0: 6f 63 20 71 75 6f 74 61 5f 6c 69 73 74 20 7b 7d  oc quota_list {}
1bc0: 20 7b 0a 20 20 73 65 74 20 61 6c 6c 71 20 7b 7d   {.  set allq {}
1bd0: 0a 20 20 66 6f 72 65 61 63 68 20 71 20 5b 73 71  .  foreach q [sq
1be0: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 64 75 6d 70  lite3_quota_dump
1bf0: 5d 20 7b 0a 20 20 20 20 6c 61 70 70 65 6e 64 20  ] {.    lappend 
1c00: 61 6c 6c 71 20 5b 6c 69 6e 64 65 78 20 24 71 20  allq [lindex $q 
1c10: 30 5d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20  0].  }.  return 
1c20: 5b 6c 73 6f 72 74 20 24 61 6c 6c 71 5d 0a 7d 0a  [lsort $allq].}.
1c30: 70 72 6f 63 20 71 75 6f 74 61 5f 73 69 7a 65 20  proc quota_size 
1c40: 7b 6e 61 6d 65 7d 20 7b 0a 20 20 73 65 74 20 61  {name} {.  set a
1c50: 6c 6c 71 20 7b 7d 0a 20 20 66 6f 72 65 61 63 68  llq {}.  foreach
1c60: 20 71 20 5b 73 71 6c 69 74 65 33 5f 71 75 6f 74   q [sqlite3_quot
1c70: 61 5f 64 75 6d 70 5d 20 7b 0a 20 20 20 20 69 66  a_dump] {.    if
1c80: 20 7b 5b 6c 69 6e 64 65 78 20 24 71 20 30 5d 3d   {[lindex $q 0]=
1c90: 3d 24 6e 61 6d 65 7d 20 7b 72 65 74 75 72 6e 20  =$name} {return 
1ca0: 5b 6c 69 6e 64 65 78 20 24 71 20 32 5d 7d 0a 20  [lindex $q 2]}. 
1cb0: 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 0a 7d 0a   }.  return 0.}.
1cc0: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34  .do_test quota-4
1cd0: 2e 31 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65 33  .1.1 {.  sqlite3
1ce0: 5f 71 75 6f 74 61 5f 73 65 74 20 2a 74 65 73 74  _quota_set *test
1cf0: 2e 64 62 20 30 20 7b 7d 0a 20 20 71 75 6f 74 61  .db 0 {}.  quota
1d00: 5f 6c 69 73 74 0a 7d 20 7b 7d 0a 64 6f 5f 74 65  _list.} {}.do_te
1d10: 73 74 20 71 75 6f 74 61 2d 34 2e 31 2e 32 20 7b  st quota-4.1.2 {
1d20: 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  .  sqlite3_quota
1d30: 5f 73 65 74 20 2a 74 65 73 74 2e 64 62 20 34 30  _set *test.db 40
1d40: 39 36 20 7b 7d 0a 20 20 71 75 6f 74 61 5f 6c 69  96 {}.  quota_li
1d50: 73 74 0a 7d 20 7b 2a 74 65 73 74 2e 64 62 7d 0a  st.} {*test.db}.
1d60: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e  do_test quota-4.
1d70: 31 2e 33 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  1.3 {.  sqlite3_
1d80: 71 75 6f 74 61 5f 73 65 74 20 2a 74 65 73 74 32  quota_set *test2
1d90: 2e 64 62 20 30 20 7b 7d 0a 20 20 71 75 6f 74 61  .db 0 {}.  quota
1da0: 5f 6c 69 73 74 0a 7d 20 7b 2a 74 65 73 74 2e 64  _list.} {*test.d
1db0: 62 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  b}.do_test quota
1dc0: 2d 34 2e 31 2e 34 20 7b 0a 20 20 73 71 6c 69 74  -4.1.4 {.  sqlit
1dd0: 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 2a 74 65  e3_quota_set *te
1de0: 73 74 32 2e 64 62 20 31 30 30 30 30 30 20 7b 7d  st2.db 100000 {}
1df0: 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a 7d 20  .  quota_list.} 
1e00: 7b 2a 74 65 73 74 2e 64 62 20 2a 74 65 73 74 32  {*test.db *test2
1e10: 2e 64 62 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f  .db}.do_test quo
1e20: 74 61 2d 34 2e 31 2e 35 20 7b 0a 20 20 73 71 6c  ta-4.1.5 {.  sql
1e30: 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 2a  ite3_quota_set *
1e40: 74 65 73 74 2e 64 62 20 30 20 7b 7d 0a 20 20 71  test.db 0 {}.  q
1e50: 75 6f 74 61 5f 6c 69 73 74 0a 7d 20 7b 2a 74 65  uota_list.} {*te
1e60: 73 74 32 2e 64 62 7d 0a 64 6f 5f 74 65 73 74 20  st2.db}.do_test 
1e70: 71 75 6f 74 61 2d 34 2e 31 2e 36 20 7b 0a 20 20  quota-4.1.6 {.  
1e80: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
1e90: 32 2e 64 62 20 74 65 73 74 32 2e 64 62 2d 6a 6f  2.db test2.db-jo
1ea0: 75 72 6e 61 6c 20 74 65 73 74 32 2e 64 62 2d 77  urnal test2.db-w
1eb0: 61 6c 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20  al.  sqlite3 db 
1ec0: 74 65 73 74 32 2e 64 62 0a 20 20 64 62 20 65 76  test2.db.  db ev
1ed0: 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45  al {CREATE TABLE
1ee0: 20 74 32 28 78 29 3b 20 49 4e 53 45 52 54 20 49   t2(x); INSERT I
1ef0: 4e 54 4f 20 74 32 20 56 41 4c 55 45 53 28 27 74  NTO t2 VALUES('t
1f00: 61 62 2d 74 32 27 29 3b 7d 0a 20 20 71 75 6f 74  ab-t2');}.  quot
1f10: 61 5f 6c 69 73 74 0a 7d 20 7b 2a 74 65 73 74 32  a_list.} {*test2
1f20: 2e 64 62 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f  .db}.do_test quo
1f30: 74 61 2d 34 2e 31 2e 37 20 7b 0a 20 20 63 61 74  ta-4.1.7 {.  cat
1f40: 63 68 73 71 6c 20 7b 49 4e 53 45 52 54 20 49 4e  chsql {INSERT IN
1f50: 54 4f 20 74 32 20 56 41 4c 55 45 53 28 7a 65 72  TO t2 VALUES(zer
1f60: 6f 62 6c 6f 62 28 32 30 30 30 30 30 29 29 7d 0a  oblob(200000))}.
1f70: 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 6f  } {1 {database o
1f80: 72 20 64 69 73 6b 20 69 73 20 66 75 6c 6c 7d 7d  r disk is full}}
1f90: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34  .do_test quota-4
1fa0: 2e 31 2e 38 20 7b 0a 20 20 73 71 6c 69 74 65 33  .1.8 {.  sqlite3
1fb0: 20 64 62 32 20 74 65 73 74 32 2e 64 62 0a 20 20   db2 test2.db.  
1fc0: 64 62 32 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  db2 eval {SELECT
1fd0: 20 2a 20 46 52 4f 4d 20 74 32 7d 0a 7d 20 7b 74   * FROM t2}.} {t
1fe0: 61 62 2d 74 32 7d 0a 64 6f 5f 74 65 73 74 20 71  ab-t2}.do_test q
1ff0: 75 6f 74 61 2d 34 2e 31 2e 39 20 7b 0a 20 20 73  uota-4.1.9 {.  s
2000: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74  qlite3_quota_set
2010: 20 2a 74 65 73 74 32 2e 64 62 20 30 20 7b 7d 0a   *test2.db 0 {}.
2020: 20 20 63 61 74 63 68 73 71 6c 20 7b 49 4e 53 45    catchsql {INSE
2030: 52 54 20 49 4e 54 4f 20 74 32 20 56 41 4c 55 45  RT INTO t2 VALUE
2040: 53 28 7a 65 72 6f 62 6c 6f 62 28 32 30 30 30 30  S(zeroblob(20000
2050: 30 29 29 7d 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f  0))}.} {0 {}}.do
2060: 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e 31 2e  _test quota-4.1.
2070: 31 30 20 7b 0a 20 20 71 75 6f 74 61 5f 6c 69 73  10 {.  quota_lis
2080: 74 0a 7d 20 7b 2a 74 65 73 74 32 2e 64 62 7d 0a  t.} {*test2.db}.
2090: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e  do_test quota-4.
20a0: 31 2e 31 31 20 7b 0a 20 20 64 62 32 20 63 6c 6f  1.11 {.  db2 clo
20b0: 73 65 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a  se.  quota_list.
20c0: 7d 20 7b 2a 74 65 73 74 32 2e 64 62 7d 0a 64 6f  } {*test2.db}.do
20d0: 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e 31 2e  _test quota-4.1.
20e0: 31 32 20 7b 0a 20 20 64 62 20 63 6c 6f 73 65 0a  12 {.  db close.
20f0: 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a 7d 20 7b    quota_list.} {
2100: 7d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  }..do_test quota
2110: 2d 34 2e 32 2e 31 20 7b 0a 20 20 73 71 6c 69 74  -4.2.1 {.  sqlit
2120: 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 41 20 31  e3_quota_set A 1
2130: 30 30 30 20 7b 7d 0a 20 20 73 71 6c 69 74 65 33  000 {}.  sqlite3
2140: 5f 71 75 6f 74 61 5f 73 65 74 20 42 20 31 30 30  _quota_set B 100
2150: 30 20 7b 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71  0 {}.  sqlite3_q
2160: 75 6f 74 61 5f 73 65 74 20 43 20 31 30 30 30 20  uota_set C 1000 
2170: 7b 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f  {}.  sqlite3_quo
2180: 74 61 5f 73 65 74 20 44 20 31 30 30 30 20 7b 7d  ta_set D 1000 {}
2190: 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a 7d 20  .  quota_list.} 
21a0: 7b 41 20 42 20 43 20 44 7d 0a 64 6f 5f 74 65 73  {A B C D}.do_tes
21b0: 74 20 71 75 6f 74 61 2d 34 2e 32 2e 32 20 7b 0a  t quota-4.2.2 {.
21c0: 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f    sqlite3_quota_
21d0: 73 65 74 20 43 20 30 20 7b 7d 0a 20 20 73 71 6c  set C 0 {}.  sql
21e0: 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 42  ite3_quota_set B
21f0: 20 30 20 7b 7d 0a 20 20 71 75 6f 74 61 5f 6c 69   0 {}.  quota_li
2200: 73 74 0a 7d 20 7b 41 20 44 7d 0a 64 6f 5f 74 65  st.} {A D}.do_te
2210: 73 74 20 71 75 6f 74 61 2d 34 2e 32 2e 33 20 7b  st quota-4.2.3 {
2220: 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61  .  sqlite3_quota
2230: 5f 73 65 74 20 41 20 30 20 7b 7d 0a 20 20 73 71  _set A 0 {}.  sq
2240: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20  lite3_quota_set 
2250: 44 20 30 20 7b 7d 0a 20 20 71 75 6f 74 61 5f 6c  D 0 {}.  quota_l
2260: 69 73 74 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74  ist.} {}.do_test
2270: 20 71 75 6f 74 61 2d 34 2e 32 2e 34 20 7b 0a 20   quota-4.2.4 {. 
2280: 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73   sqlite3_quota_s
2290: 65 74 20 41 20 31 30 30 30 20 7b 7d 0a 20 20 73  et A 1000 {}.  s
22a0: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74  qlite3_quota_set
22b0: 20 42 20 31 30 30 30 20 7b 7d 0a 20 20 73 71 6c   B 1000 {}.  sql
22c0: 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 43  ite3_quota_set C
22d0: 20 31 30 30 30 20 7b 7d 0a 20 20 73 71 6c 69 74   1000 {}.  sqlit
22e0: 65 33 5f 71 75 6f 74 61 5f 73 65 74 20 41 20 30  e3_quota_set A 0
22f0: 20 7b 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75   {}.  sqlite3_qu
2300: 6f 74 61 5f 73 65 74 20 42 20 30 20 7b 7d 0a 20  ota_set B 0 {}. 
2310: 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73   sqlite3_quota_s
2320: 65 74 20 43 20 30 20 7b 7d 0a 20 20 71 75 6f 74  et C 0 {}.  quot
2330: 61 5f 6c 69 73 74 0a 7d 20 7b 7d 0a 64 6f 5f 74  a_list.} {}.do_t
2340: 65 73 74 20 71 75 6f 74 61 2d 34 2e 32 2e 35 20  est quota-4.2.5 
2350: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  {.  sqlite3_quot
2360: 61 5f 73 65 74 20 41 20 31 30 30 30 20 7b 7d 0a  a_set A 1000 {}.
2370: 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f    sqlite3_quota_
2380: 73 65 74 20 42 20 31 30 30 30 20 7b 7d 0a 20 20  set B 1000 {}.  
2390: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65  sqlite3_quota_se
23a0: 74 20 43 20 31 30 30 30 20 7b 7d 0a 20 20 73 71  t C 1000 {}.  sq
23b0: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20  lite3_quota_set 
23c0: 43 20 30 20 7b 7d 0a 20 20 73 71 6c 69 74 65 33  C 0 {}.  sqlite3
23d0: 5f 71 75 6f 74 61 5f 73 65 74 20 42 20 30 20 7b  _quota_set B 0 {
23e0: 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  }.  sqlite3_quot
23f0: 61 5f 73 65 74 20 41 20 30 20 7b 7d 0a 20 20 71  a_set A 0 {}.  q
2400: 75 6f 74 61 5f 6c 69 73 74 0a 7d 20 7b 7d 0a 0a  uota_list.} {}..
2410: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e  do_test quota-4.
2420: 33 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  3.1 {.  sqlite3_
2430: 71 75 6f 74 61 5f 73 65 74 20 41 20 31 30 30 30  quota_set A 1000
2440: 20 71 75 6f 74 61 5f 63 61 6c 6c 62 61 63 6b 0a   quota_callback.
2450: 20 20 73 71 6c 69 74 65 33 20 64 62 20 41 0a 20    sqlite3 db A. 
2460: 20 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73   sqlite3_quota_s
2470: 65 74 20 41 20 30 20 71 75 6f 74 61 5f 63 61 6c  et A 0 quota_cal
2480: 6c 62 61 63 6b 0a 20 20 64 62 20 63 6c 6f 73 65  lback.  db close
2490: 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a 7d 20  .  quota_list.} 
24a0: 7b 7d 0a 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f 6d  {}..unset -nocom
24b0: 70 6c 61 69 6e 20 71 75 6f 74 61 67 72 6f 75 70  plain quotagroup
24c0: 0a 69 66 20 7b 24 74 63 6c 5f 70 6c 61 74 66 6f  .if {$tcl_platfo
24d0: 72 6d 28 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 77  rm(platform)=="w
24e0: 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 73 65 74  indows"} {.  set
24f0: 20 71 75 6f 74 61 67 72 6f 75 70 20 2a 5c 5c 71   quotagroup *\\q
2500: 75 6f 74 61 2d 74 65 73 74 2d 41 3f 2e 64 62 0a  uota-test-A?.db.
2510: 7d 20 65 6c 73 65 20 7b 0a 20 20 73 65 74 20 71  } else {.  set q
2520: 75 6f 74 61 67 72 6f 75 70 20 2a 2f 71 75 6f 74  uotagroup */quot
2530: 61 2d 74 65 73 74 2d 41 3f 2e 64 62 0a 7d 20 0a  a-test-A?.db.} .
2540: 66 6f 72 65 61 63 68 20 66 69 6c 65 20 5b 67 6c  foreach file [gl
2550: 6f 62 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 71  ob -nocomplain q
2560: 75 6f 74 61 2d 74 65 73 74 2d 41 2a 5d 20 7b 0a  uota-test-A*] {.
2570: 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20 24 66    forcedelete $f
2580: 69 6c 65 0a 7d 0a 64 6f 5f 74 65 73 74 20 71 75  ile.}.do_test qu
2590: 6f 74 61 2d 34 2e 34 2e 31 20 7b 0a 20 20 73 65  ota-4.4.1 {.  se
25a0: 74 20 3a 3a 71 75 6f 74 61 20 7b 7d 0a 20 20 73  t ::quota {}.  s
25b0: 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74  qlite3_quota_set
25c0: 20 24 3a 3a 71 75 6f 74 61 67 72 6f 75 70 20 31   $::quotagroup 1
25d0: 30 30 30 30 20 71 75 6f 74 61 5f 63 61 6c 6c 62  0000 quota_callb
25e0: 61 63 6b 0a 20 20 66 69 6c 65 20 64 65 6c 65 74  ack.  file delet
25f0: 65 20 2d 66 6f 72 63 65 20 2e 2f 71 75 6f 74 61  e -force ./quota
2600: 2d 74 65 73 74 2d 41 31 2e 64 62 20 2e 2f 71 75  -test-A1.db ./qu
2610: 6f 74 61 2d 74 65 73 74 2d 41 32 2e 64 62 0a 20  ota-test-A2.db. 
2620: 20 73 71 6c 69 74 65 33 20 64 62 20 2e 2f 71 75   sqlite3 db ./qu
2630: 6f 74 61 2d 74 65 73 74 2d 41 31 2e 64 62 0a 20  ota-test-A1.db. 
2640: 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20   db eval {.     
2650: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
2660: 78 29 3b 0a 20 20 20 20 20 49 4e 53 45 52 54 20  x);.     INSERT 
2670: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 72  INTO t1 VALUES(r
2680: 61 6e 64 6f 6d 62 6c 6f 62 28 35 30 30 30 29 29  andomblob(5000))
2690: 3b 0a 20 20 7d 0a 20 20 71 75 6f 74 61 5f 6c 69  ;.  }.  quota_li
26a0: 73 74 0a 7d 20 5b 6c 69 73 74 20 24 71 75 6f 74  st.} [list $quot
26b0: 61 67 72 6f 75 70 5d 0a 64 6f 5f 74 65 73 74 20  agroup].do_test 
26c0: 71 75 6f 74 61 2d 34 2e 34 2e 32 20 7b 0a 20 20  quota-4.4.2 {.  
26d0: 65 78 70 72 20 7b 24 3a 3a 71 75 6f 74 61 3d 3d  expr {$::quota==
26e0: 22 22 7d 0a 7d 20 7b 31 7d 0a 64 6f 5f 74 65 73  ""}.} {1}.do_tes
26f0: 74 20 71 75 6f 74 61 2d 34 2e 34 2e 33 20 7b 0a  t quota-4.4.3 {.
2700: 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 73 71 6c    db close.  sql
2710: 69 74 65 33 20 64 62 20 2e 2f 71 75 6f 74 61 2d  ite3 db ./quota-
2720: 74 65 73 74 2d 41 32 2e 64 62 0a 20 20 64 62 20  test-A2.db.  db 
2730: 65 76 61 6c 20 7b 0a 20 20 20 20 20 43 52 45 41  eval {.     CREA
2740: 54 45 20 54 41 42 4c 45 20 74 31 28 78 29 3b 0a  TE TABLE t1(x);.
2750: 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f       INSERT INTO
2760: 20 74 31 20 56 41 4c 55 45 53 28 72 61 6e 64 6f   t1 VALUES(rando
2770: 6d 62 6c 6f 62 28 35 30 30 30 29 29 3b 0a 20 20  mblob(5000));.  
2780: 7d 0a 20 20 71 75 6f 74 61 5f 6c 69 73 74 0a 7d  }.  quota_list.}
2790: 20 5b 6c 69 73 74 20 24 71 75 6f 74 61 67 72 6f   [list $quotagro
27a0: 75 70 5d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74  up].do_test quot
27b0: 61 2d 34 2e 34 2e 34 20 7b 0a 20 20 65 78 70 72  a-4.4.4 {.  expr
27c0: 20 7b 24 3a 3a 71 75 6f 74 61 21 3d 22 22 7d 0a   {$::quota!=""}.
27d0: 7d 20 7b 31 7d 0a 64 6f 5f 74 65 73 74 20 71 75  } {1}.do_test qu
27e0: 6f 74 61 2d 34 2e 34 2e 35 20 7b 0a 20 20 64 62  ota-4.4.5 {.  db
27f0: 20 63 6c 6f 73 65 0a 20 20 73 71 6c 69 74 65 33   close.  sqlite3
2800: 5f 71 75 6f 74 61 5f 73 65 74 20 24 3a 3a 71 75  _quota_set $::qu
2810: 6f 74 61 67 72 6f 75 70 20 30 20 7b 7d 0a 20 20  otagroup 0 {}.  
2820: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 64 75  sqlite3_quota_du
2830: 6d 70 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20  mp.} {}.do_test 
2840: 71 75 6f 74 61 2d 34 2e 34 2e 36 20 7b 0a 20 20  quota-4.4.6 {.  
2850: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65  sqlite3_quota_se
2860: 74 20 24 71 75 6f 74 61 67 72 6f 75 70 20 31 30  t $quotagroup 10
2870: 30 30 30 20 71 75 6f 74 61 5f 63 61 6c 6c 62 61  000 quota_callba
2880: 63 6b 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20  ck.  sqlite3 db 
2890: 71 75 6f 74 61 2d 74 65 73 74 2d 41 31 2e 64 62  quota-test-A1.db
28a0: 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  .  db eval {SELE
28b0: 43 54 20 63 6f 75 6e 74 28 2a 29 20 46 52 4f 4d  CT count(*) FROM
28c0: 20 73 71 6c 69 74 65 5f 6d 61 73 74 65 72 7d 0a   sqlite_master}.
28d0: 20 20 71 75 6f 74 61 5f 73 69 7a 65 20 24 71 75    quota_size $qu
28e0: 6f 74 61 67 72 6f 75 70 0a 7d 20 5b 66 69 6c 65  otagroup.} [file
28f0: 20 73 69 7a 65 20 71 75 6f 74 61 2d 74 65 73 74   size quota-test
2900: 2d 41 31 2e 64 62 5d 0a 64 6f 5f 74 65 73 74 20  -A1.db].do_test 
2910: 71 75 6f 74 61 2d 34 2e 34 2e 37 20 7b 0a 20 20  quota-4.4.7 {.  
2920: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 69  sqlite3_quota_fi
2930: 6c 65 20 71 75 6f 74 61 2d 74 65 73 74 2d 41 32  le quota-test-A2
2940: 2e 64 62 0a 20 20 71 75 6f 74 61 5f 73 69 7a 65  .db.  quota_size
2950: 20 24 3a 3a 71 75 6f 74 61 67 72 6f 75 70 0a 7d   $::quotagroup.}
2960: 20 5b 65 78 70 72 20 7b 5b 66 69 6c 65 20 73 69   [expr {[file si
2970: 7a 65 20 71 75 6f 74 61 2d 74 65 73 74 2d 41 31  ze quota-test-A1
2980: 2e 64 62 5d 2b 5b 66 69 6c 65 20 73 69 7a 65 20  .db]+[file size 
2990: 71 75 6f 74 61 2d 74 65 73 74 2d 41 32 2e 64 62  quota-test-A2.db
29a0: 5d 7d 5d 0a 0a 75 6e 73 65 74 20 2d 6e 6f 63 6f  ]}]..unset -noco
29b0: 6d 70 6c 61 69 6e 20 71 75 6f 74 61 67 72 6f 75  mplain quotagrou
29c0: 70 0a 69 66 20 7b 24 74 63 6c 5f 70 6c 61 74 66  p.if {$tcl_platf
29d0: 6f 72 6d 28 70 6c 61 74 66 6f 72 6d 29 3d 3d 22  orm(platform)=="
29e0: 77 69 6e 64 6f 77 73 22 7d 20 7b 0a 20 20 73 65  windows"} {.  se
29f0: 74 20 71 75 6f 74 61 67 72 6f 75 70 20 2a 5c 5c  t quotagroup *\\
2a00: 71 75 6f 74 61 2d 74 65 73 74 2d 42 2a 0a 7d 20  quota-test-B*.} 
2a10: 65 6c 73 65 20 7b 0a 20 20 73 65 74 20 71 75 6f  else {.  set quo
2a20: 74 61 67 72 6f 75 70 20 2a 2f 71 75 6f 74 61 2d  tagroup */quota-
2a30: 74 65 73 74 2d 42 2a 0a 7d 20 0a 66 6f 72 65 61  test-B*.} .forea
2a40: 63 68 20 66 69 6c 65 20 5b 67 6c 6f 62 20 2d 6e  ch file [glob -n
2a50: 6f 63 6f 6d 70 6c 61 69 6e 20 71 75 6f 74 61 2d  ocomplain quota-
2a60: 74 65 73 74 2d 42 2a 5d 20 7b 0a 20 20 66 6f 72  test-B*] {.  for
2a70: 63 65 64 65 6c 65 74 65 20 24 66 69 6c 65 0a 7d  cedelete $file.}
2a80: 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34  .do_test quota-4
2a90: 2e 35 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65 33  .5.1 {.  sqlite3
2aa0: 5f 71 75 6f 74 61 5f 73 65 74 20 24 3a 3a 71 75  _quota_set $::qu
2ab0: 6f 74 61 67 72 6f 75 70 20 31 30 30 30 30 30 20  otagroup 100000 
2ac0: 71 75 6f 74 61 5f 63 61 6c 6c 62 61 63 6b 0a 20  quota_callback. 
2ad0: 20 71 75 6f 74 61 5f 73 69 7a 65 20 24 3a 3a 71   quota_size $::q
2ae0: 75 6f 74 61 67 72 6f 75 70 0a 7d 20 7b 30 7d 0a  uotagroup.} {0}.
2af0: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e  do_test quota-4.
2b00: 35 2e 32 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f  5.2 {.  sqlite3_
2b10: 71 75 6f 74 61 5f 66 69 6c 65 20 71 75 6f 74 61  quota_file quota
2b20: 2d 74 65 73 74 2d 42 31 2e 74 78 74 0a 20 20 71  -test-B1.txt.  q
2b30: 75 6f 74 61 5f 73 69 7a 65 20 24 3a 3a 71 75 6f  uota_size $::quo
2b40: 74 61 67 72 6f 75 70 0a 7d 20 7b 30 7d 0a 70 72  tagroup.} {0}.pr
2b50: 6f 63 20 61 64 64 5f 74 6f 5f 66 69 6c 65 20 7b  oc add_to_file {
2b60: 6e 61 6d 65 20 6e 7d 20 7b 0a 20 20 73 65 74 20  name n} {.  set 
2b70: 6f 75 74 20 5b 6f 70 65 6e 20 24 6e 61 6d 65 20  out [open $name 
2b80: 61 5d 0a 20 20 66 63 6f 6e 66 69 67 75 72 65 20  a].  fconfigure 
2b90: 24 6f 75 74 20 2d 74 72 61 6e 73 6c 61 74 69 6f  $out -translatio
2ba0: 6e 20 62 69 6e 61 72 79 0a 20 20 70 75 74 73 20  n binary.  puts 
2bb0: 2d 6e 6f 6e 65 77 6c 69 6e 65 20 24 6f 75 74 20  -nonewline $out 
2bc0: 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 78  [string repeat x
2bd0: 20 24 6e 5d 0a 20 20 63 6c 6f 73 65 20 24 6f 75   $n].  close $ou
2be0: 74 0a 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74  t.}.do_test quot
2bf0: 61 2d 34 2e 35 2e 33 20 7b 0a 20 20 61 64 64 5f  a-4.5.3 {.  add_
2c00: 74 6f 5f 66 69 6c 65 20 71 75 6f 74 61 2d 74 65  to_file quota-te
2c10: 73 74 2d 42 31 2e 74 78 74 20 31 32 33 0a 20 20  st-B1.txt 123.  
2c20: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 66 69  sqlite3_quota_fi
2c30: 6c 65 20 71 75 6f 74 61 2d 74 65 73 74 2d 42 31  le quota-test-B1
2c40: 2e 74 78 74 0a 20 20 71 75 6f 74 61 5f 73 69 7a  .txt.  quota_siz
2c50: 65 20 24 3a 3a 71 75 6f 74 61 67 72 6f 75 70 0a  e $::quotagroup.
2c60: 7d 20 7b 31 32 33 7d 0a 64 6f 5f 74 65 73 74 20  } {123}.do_test 
2c70: 71 75 6f 74 61 2d 34 2e 35 2e 34 20 7b 0a 20 20  quota-4.5.4 {.  
2c80: 61 64 64 5f 74 6f 5f 66 69 6c 65 20 71 75 6f 74  add_to_file quot
2c90: 61 2d 74 65 73 74 2d 42 32 2e 74 78 74 20 32 33  a-test-B2.txt 23
2ca0: 34 0a 20 20 73 71 6c 69 74 65 33 5f 71 75 6f 74  4.  sqlite3_quot
2cb0: 61 5f 66 69 6c 65 20 71 75 6f 74 61 2d 74 65 73  a_file quota-tes
2cc0: 74 2d 42 32 2e 74 78 74 0a 20 20 71 75 6f 74 61  t-B2.txt.  quota
2cd0: 5f 73 69 7a 65 20 24 3a 3a 71 75 6f 74 61 67 72  _size $::quotagr
2ce0: 6f 75 70 0a 7d 20 7b 33 35 37 7d 0a 64 6f 5f 74  oup.} {357}.do_t
2cf0: 65 73 74 20 71 75 6f 74 61 2d 34 2e 35 2e 35 20  est quota-4.5.5 
2d00: 7b 0a 20 20 61 64 64 5f 74 6f 5f 66 69 6c 65 20  {.  add_to_file 
2d10: 71 75 6f 74 61 2d 74 65 73 74 2d 42 31 2e 74 78  quota-test-B1.tx
2d20: 74 20 32 30 30 30 0a 20 20 73 71 6c 69 74 65 33  t 2000.  sqlite3
2d30: 5f 71 75 6f 74 61 5f 66 69 6c 65 20 71 75 6f 74  _quota_file quot
2d40: 61 2d 74 65 73 74 2d 42 31 2e 74 78 74 0a 20 20  a-test-B1.txt.  
2d50: 71 75 6f 74 61 5f 73 69 7a 65 20 24 3a 3a 71 75  quota_size $::qu
2d60: 6f 74 61 67 72 6f 75 70 0a 7d 20 7b 32 33 35 37  otagroup.} {2357
2d70: 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d  }.do_test quota-
2d80: 34 2e 35 2e 36 20 7b 0a 20 20 66 6f 72 63 65 64  4.5.6 {.  forced
2d90: 65 6c 65 74 65 20 71 75 6f 74 61 2d 74 65 73 74  elete quota-test
2da0: 2d 42 31 2e 74 78 74 0a 20 20 73 71 6c 69 74 65  -B1.txt.  sqlite
2db0: 33 5f 71 75 6f 74 61 5f 66 69 6c 65 20 71 75 6f  3_quota_file quo
2dc0: 74 61 2d 74 65 73 74 2d 42 31 2e 74 78 74 0a 20  ta-test-B1.txt. 
2dd0: 20 71 75 6f 74 61 5f 73 69 7a 65 20 24 3a 3a 71   quota_size $::q
2de0: 75 6f 74 61 67 72 6f 75 70 0a 7d 20 7b 32 33 34  uotagroup.} {234
2df0: 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d  }.do_test quota-
2e00: 34 2e 35 2e 37 20 7b 0a 20 20 66 6f 72 63 65 64  4.5.7 {.  forced
2e10: 65 6c 65 74 65 20 71 75 6f 74 61 2d 74 65 73 74  elete quota-test
2e20: 2d 42 32 2e 74 78 74 0a 20 20 73 71 6c 69 74 65  -B2.txt.  sqlite
2e30: 33 5f 71 75 6f 74 61 5f 66 69 6c 65 20 71 75 6f  3_quota_file quo
2e40: 74 61 2d 74 65 73 74 2d 42 32 2e 74 78 74 0a 20  ta-test-B2.txt. 
2e50: 20 71 75 6f 74 61 5f 73 69 7a 65 20 24 3a 3a 71   quota_size $::q
2e60: 75 6f 74 61 67 72 6f 75 70 0a 7d 20 7b 30 7d 0a  uotagroup.} {0}.
2e70: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 34 2e  do_test quota-4.
2e80: 35 2e 38 20 7b 0a 20 20 61 64 64 5f 74 6f 5f 66  5.8 {.  add_to_f
2e90: 69 6c 65 20 71 75 6f 74 61 2d 74 65 73 74 2d 42  ile quota-test-B
2ea0: 33 2e 74 78 74 20 31 32 33 34 0a 20 20 73 71 6c  3.txt 1234.  sql
2eb0: 69 74 65 33 5f 71 75 6f 74 61 5f 66 69 6c 65 20  ite3_quota_file 
2ec0: 71 75 6f 74 61 2d 74 65 73 74 2d 42 33 2e 74 78  quota-test-B3.tx
2ed0: 74 0a 20 20 71 75 6f 74 61 5f 73 69 7a 65 20 24  t.  quota_size $
2ee0: 3a 3a 71 75 6f 74 61 67 72 6f 75 70 0a 7d 20 7b  ::quotagroup.} {
2ef0: 31 32 33 34 7d 0a 64 6f 5f 74 65 73 74 20 71 75  1234}.do_test qu
2f00: 6f 74 61 2d 34 2e 35 2e 39 20 7b 0a 20 20 73 71  ota-4.5.9 {.  sq
2f10: 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65 74 20  lite3_quota_set 
2f20: 24 71 75 6f 74 61 67 72 6f 75 70 20 30 20 7b 7d  $quotagroup 0 {}
2f30: 0a 20 20 71 75 6f 74 61 5f 73 69 7a 65 20 24 3a  .  quota_size $:
2f40: 3a 71 75 6f 74 61 67 72 6f 75 70 0a 7d 20 7b 30  :quotagroup.} {0
2f50: 7d 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f 74 61  }..do_test quota
2f60: 2d 34 2e 39 2e 31 20 7b 0a 20 20 64 62 20 63 6c  -4.9.1 {.  db cl
2f70: 6f 73 65 0a 20 20 73 71 6c 69 74 65 33 5f 71 75  ose.  sqlite3_qu
2f80: 6f 74 61 5f 73 65 74 20 41 20 31 30 30 30 20 71  ota_set A 1000 q
2f90: 75 6f 74 61 5f 63 61 6c 6c 62 61 63 6b 0a 20 20  uota_callback.  
2fa0: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 68  sqlite3_quota_sh
2fb0: 75 74 64 6f 77 6e 0a 7d 20 7b 53 51 4c 49 54 45  utdown.} {SQLITE
2fc0: 5f 4f 4b 7d 0a 64 6f 5f 74 65 73 74 20 71 75 6f  _OK}.do_test quo
2fd0: 74 61 2d 34 2e 39 2e 32 20 7b 0a 20 20 71 75 6f  ta-4.9.2 {.  quo
2fe0: 74 61 5f 6c 69 73 74 0a 7d 20 7b 7d 0a 0a 23 2d  ta_list.} {}..#-
2ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
3030: 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68 65 20 66  --------.# The f
3040: 6f 6c 6c 6f 77 69 6e 67 20 74 65 73 74 73 20 74  ollowing tests t
3050: 65 73 74 20 74 68 61 74 20 74 68 65 20 71 75 6f  est that the quo
3060: 74 61 20 56 46 53 20 68 61 6e 64 6c 65 73 20 6d  ta VFS handles m
3070: 61 6c 6c 6f 63 20 61 6e 64 20 49 4f 20 0a 23 20  alloc and IO .# 
3080: 65 72 72 6f 72 73 2e 0a 23 0a 0a 73 71 6c 69 74  errors..#..sqlit
3090: 65 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69 61 6c  e3_quota_initial
30a0: 69 7a 65 20 22 22 20 31 0a 73 71 6c 69 74 65 33  ize "" 1.sqlite3
30b0: 5f 71 75 6f 74 61 5f 73 65 74 20 2a 74 65 73 74  _quota_set *test
30c0: 2e 64 62 20 34 30 39 36 20 7b 7d 0a 0a 64 6f 5f  .db 4096 {}..do_
30d0: 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 20 71 75  faultsim_test qu
30e0: 6f 74 61 2d 35 2e 31 20 2d 70 72 65 70 20 7b 0a  ota-5.1 -prep {.
30f0: 20 20 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73    catch {db clos
3100: 65 7d 0a 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 73  e}.} -body {.  s
3110: 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 32 2e  qlite3 db test2.
3120: 64 62 0a 7d 0a 64 6f 5f 66 61 75 6c 74 73 69 6d  db.}.do_faultsim
3130: 5f 74 65 73 74 20 71 75 6f 74 61 2d 35 2e 32 20  _test quota-5.2 
3140: 2d 70 72 65 70 20 7b 0a 20 20 63 61 74 63 68 20  -prep {.  catch 
3150: 7b 64 62 20 63 6c 6f 73 65 7d 0a 7d 20 2d 62 6f  {db close}.} -bo
3160: 64 79 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 64  dy {.  sqlite3 d
3170: 62 20 74 65 73 74 2e 64 62 0a 7d 0a 0a 63 61 74  b test.db.}..cat
3180: 63 68 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d 0a  ch { db close }.
3190: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
31a0: 2e 64 62 0a 0a 64 6f 5f 74 65 73 74 20 71 75 6f  .db..do_test quo
31b0: 74 61 2d 35 2e 33 2e 70 72 65 70 20 7b 0a 20 20  ta-5.3.prep {.  
31c0: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
31d0: 64 62 0a 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  db.  execsql {. 
31e0: 20 20 20 50 52 41 47 4d 41 20 61 75 74 6f 5f 76     PRAGMA auto_v
31f0: 61 63 75 75 6d 20 3d 20 31 3b 0a 20 20 20 20 50  acuum = 1;.    P
3200: 52 41 47 4d 41 20 70 61 67 65 5f 73 69 7a 65 20  RAGMA page_size 
3210: 3d 20 31 30 32 34 3b 0a 20 20 20 20 43 52 45 41  = 1024;.    CREA
3220: 54 45 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62  TE TABLE t1(a, b
3230: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
3240: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31 30 2c  TO t1 VALUES(10,
3250: 20 7a 65 72 6f 62 6c 6f 62 28 31 32 30 30 29 29   zeroblob(1200))
3260: 3b 0a 20 20 7d 0a 20 20 66 61 75 6c 74 73 69 6d  ;.  }.  faultsim
3270: 5f 73 61 76 65 5f 61 6e 64 5f 63 6c 6f 73 65 0a  _save_and_close.
3280: 7d 20 7b 7d 0a 64 6f 5f 66 61 75 6c 74 73 69 6d  } {}.do_faultsim
3290: 5f 74 65 73 74 20 71 75 6f 74 61 2d 35 2e 33 20  _test quota-5.3 
32a0: 2d 70 72 65 70 20 7b 0a 20 20 66 61 75 6c 74 73  -prep {.  faults
32b0: 69 6d 5f 72 65 73 74 6f 72 65 5f 61 6e 64 5f 72  im_restore_and_r
32c0: 65 6f 70 65 6e 0a 7d 20 2d 62 6f 64 79 20 7b 0a  eopen.} -body {.
32d0: 20 20 65 78 65 63 73 71 6c 20 7b 20 44 45 4c 45    execsql { DELE
32e0: 54 45 20 46 52 4f 4d 20 74 31 20 7d 0a 7d 0a 0a  TE FROM t1 }.}..
32f0: 64 6f 5f 74 65 73 74 20 71 75 6f 74 61 2d 35 2e  do_test quota-5.
3300: 34 2e 31 20 7b 0a 20 20 63 61 74 63 68 20 7b 20  4.1 {.  catch { 
3310: 64 62 20 63 6c 6f 73 65 20 7d 0a 20 20 66 6f 72  db close }.  for
3320: 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e 64 62  cedelete test.db
3330: 0a 20 20 66 69 6c 65 20 6d 6b 64 69 72 20 74 65  .  file mkdir te
3340: 73 74 2e 64 62 0a 20 20 6c 69 73 74 20 5b 63 61  st.db.  list [ca
3350: 74 63 68 20 7b 20 73 71 6c 69 74 65 33 20 64 62  tch { sqlite3 db
3360: 20 74 65 73 74 2e 64 62 20 7d 20 6d 73 67 5d 20   test.db } msg] 
3370: 24 6d 73 67 0a 7d 20 7b 31 20 7b 75 6e 61 62 6c  $msg.} {1 {unabl
3380: 65 20 74 6f 20 6f 70 65 6e 20 64 61 74 61 62 61  e to open databa
3390: 73 65 20 66 69 6c 65 7d 7d 0a 0a 64 6f 5f 66 61  se file}}..do_fa
33a0: 75 6c 74 73 69 6d 5f 74 65 73 74 20 71 75 6f 74  ultsim_test quot
33b0: 61 2d 35 2e 35 20 2d 70 72 65 70 20 7b 0a 20 20  a-5.5 -prep {.  
33c0: 63 61 74 63 68 20 7b 20 73 71 6c 69 74 65 33 5f  catch { sqlite3_
33d0: 71 75 6f 74 61 5f 73 68 75 74 64 6f 77 6e 20 7d  quota_shutdown }
33e0: 0a 7d 20 2d 62 6f 64 79 20 7b 0a 20 20 73 71 6c  .} -body {.  sql
33f0: 69 74 65 33 5f 71 75 6f 74 61 5f 69 6e 69 74 69  ite3_quota_initi
3400: 61 6c 69 7a 65 20 22 22 20 31 0a 7d 0a 0a 64 6f  alize "" 1.}..do
3410: 5f 66 61 75 6c 74 73 69 6d 5f 74 65 73 74 20 71  _faultsim_test q
3420: 75 6f 74 61 2d 35 2e 36 20 2d 70 72 65 70 20 7b  uota-5.6 -prep {
3430: 0a 20 20 63 61 74 63 68 20 7b 20 73 71 6c 69 74  .  catch { sqlit
3440: 65 33 5f 71 75 6f 74 61 5f 73 68 75 74 64 6f 77  e3_quota_shutdow
3450: 6e 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 71 75  n }.  sqlite3_qu
3460: 6f 74 61 5f 69 6e 69 74 69 61 6c 69 7a 65 20 22  ota_initialize "
3470: 22 20 31 0a 7d 20 2d 62 6f 64 79 20 7b 0a 20 20  " 1.} -body {.  
3480: 73 71 6c 69 74 65 33 5f 71 75 6f 74 61 5f 73 65  sqlite3_quota_se
3490: 74 20 2a 20 34 30 39 36 20 7b 7d 0a 7d 0a 0a 63  t * 4096 {}.}..c
34a0: 61 74 63 68 20 7b 20 73 71 6c 69 74 65 33 5f 71  atch { sqlite3_q
34b0: 75 6f 74 61 5f 73 68 75 74 64 6f 77 6e 20 7d 0a  uota_shutdown }.
34c0: 66 69 6e 69 73 68 5f 74 65 73 74 0a              finish_test.