SQLite4
Hex Artifact Content
Not logged in

Artifact 13718f14ae2703d827daa657f2f63097b39ec43e:


0000: 23 20 32 30 31 32 20 4e 6f 76 65 6d 62 65 72 20  # 2012 November 
0010: 30 32 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f  02.#.# 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 23 20 54 68 69  ********.#.# Thi
0170: 73 20 66 69 6c 65 20 74 65 73 74 73 20 74 68 61  s file tests tha
0180: 74 20 74 68 65 20 4c 53 4d 5f 43 4f 4e 46 49 47  t the LSM_CONFIG
0190: 5f 4d 55 4c 54 49 50 4c 45 5f 50 52 4f 43 45 53  _MULTIPLE_PROCES
01a0: 53 45 53 20 70 61 72 61 6d 65 74 65 72 20 73 65  SES parameter se
01b0: 65 6d 73 0a 23 20 74 6f 20 77 6f 72 6b 20 61 73  ems.# to work as
01c0: 20 64 6f 63 75 6d 65 6e 74 65 64 2e 0a 23 0a 73   documented..#.s
01d0: 65 74 20 74 65 73 74 64 69 72 20 5b 66 69 6c 65  et testdir [file
01e0: 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76 30 5d   dirname $argv0]
01f0: 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69 72  .source $testdir
0200: 2f 74 65 73 74 65 72 2e 74 63 6c 0a 73 6f 75 72  /tester.tcl.sour
0210: 63 65 20 24 74 65 73 74 64 69 72 2f 6c 6f 63 6b  ce $testdir/lock
0220: 5f 63 6f 6d 6d 6f 6e 2e 74 63 6c 0a 73 65 74 20  _common.tcl.set 
0230: 74 65 73 74 70 72 65 66 69 78 20 6c 73 6d 33 0a  testprefix lsm3.
0240: 64 62 20 63 6c 6f 73 65 0a 0a 64 6f 5f 6d 75 6c  db close..do_mul
0250: 74 69 63 6c 69 65 6e 74 5f 74 65 73 74 20 74 6e  ticlient_test tn
0260: 20 7b 0a 0a 20 20 23 20 54 68 65 20 5b 64 6f 5f   {..  # The [do_
0270: 6d 75 6c 74 69 63 6c 69 65 6e 74 5f 74 65 73 74  multiclient_test
0280: 5d 20 63 6f 6d 6d 61 6e 64 20 61 75 74 6f 6d 61  ] command automa
0290: 74 69 63 61 6c 6c 79 20 6f 70 65 6e 73 20 61 20  tically opens a 
02a0: 63 6f 6e 6e 65 63 74 69 6f 6e 0a 20 20 23 20 69  connection.  # i
02b0: 6e 20 65 61 63 68 20 70 72 6f 63 65 73 73 20 28  n each process (
02c0: 6f 72 20 74 68 72 65 65 20 63 6f 6e 6e 65 63 74  or three connect
02d0: 69 6f 6e 73 20 69 6e 20 74 68 69 73 20 70 72 6f  ions in this pro
02e0: 63 65 73 73 29 2e 20 57 65 20 64 6f 6e 27 74 20  cess). We don't 
02f0: 77 61 6e 74 0a 20 20 23 20 74 68 65 6d 20 69 6e  want.  # them in
0300: 20 74 68 69 73 20 63 61 73 65 2e 0a 20 20 63 6f   this case..  co
0310: 64 65 31 20 7b 20 64 62 20 63 6c 6f 73 65 20 7d  de1 { db close }
0320: 0a 20 20 63 6f 64 65 32 20 7b 20 64 62 32 20 63  .  code2 { db2 c
0330: 6c 6f 73 65 20 7d 0a 20 20 63 6f 64 65 33 20 7b  lose }.  code3 {
0340: 20 64 62 33 20 63 6c 6f 73 65 20 7d 0a 0a 20 20   db3 close }..  
0350: 69 66 20 7b 20 24 74 6e 3d 3d 31 20 7d 20 7b 0a  if { $tn==1 } {.
0360: 20 20 20 20 73 65 74 20 6c 6f 63 6b 65 64 20 7b      set locked {
0370: 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c  1 {database is l
0380: 6f 63 6b 65 64 7d 7d 0a 20 20 7d 20 65 6c 73 65  ocked}}.  } else
0390: 20 7b 0a 20 20 20 20 73 65 74 20 6c 6f 63 6b 65   {.    set locke
03a0: 64 20 7b 30 20 7b 7d 7d 0a 20 20 7d 0a 0a 20 20  d {0 {}}.  }..  
03b0: 23 20 4f 70 65 6e 20 61 20 73 69 6e 67 6c 65 2d  # Open a single-
03c0: 70 72 6f 63 65 73 73 20 63 6f 6e 6e 65 63 74 69  process connecti
03d0: 6f 6e 20 74 6f 20 74 68 65 20 64 61 74 61 62 61  on to the databa
03e0: 73 65 20 66 72 6f 6d 20 61 6e 20 65 78 74 65 72  se from an exter
03f0: 6e 61 6c 0a 20 20 23 20 70 72 6f 63 65 73 73 20  nal.  # process 
0400: 28 69 66 20 24 74 6e 3d 3d 31 2c 20 6f 74 68 65  (if $tn==1, othe
0410: 72 77 69 73 65 20 6f 70 65 6e 20 69 74 20 66 72  rwise open it fr
0420: 6f 6d 20 77 69 74 68 69 6e 20 74 68 65 20 63 75  om within the cu
0430: 72 72 65 6e 74 20 0a 20 20 23 20 70 72 6f 63 65  rrent .  # proce
0440: 73 73 29 2e 0a 20 20 63 6f 64 65 32 20 7b 20 73  ss)..  code2 { s
0450: 71 6c 69 74 65 34 20 64 62 32 20 66 69 6c 65 3a  qlite4 db2 file:
0460: 74 65 73 74 2e 64 62 3f 6c 73 6d 5f 6d 75 6c 74  test.db?lsm_mult
0470: 69 70 6c 65 5f 70 72 6f 63 65 73 73 65 73 3d 30  iple_processes=0
0480: 20 7d 0a 0a 20 20 23 20 54 72 79 20 74 6f 20 6f   }..  # Try to o
0490: 70 65 6e 20 73 6f 6d 65 20 6f 74 68 65 72 20 63  pen some other c
04a0: 6f 6e 6e 65 63 74 69 6f 6e 73 20 74 6f 20 74 68  onnections to th
04b0: 65 20 64 61 74 61 62 61 73 65 20 66 69 6c 65 2c  e database file,
04c0: 20 62 6f 74 68 20 69 6e 20 6d 75 6c 74 69 0a 20   both in multi. 
04d0: 20 23 20 61 6e 64 20 73 69 6e 67 6c 65 20 70 72   # and single pr
04e0: 6f 63 65 73 73 20 6d 6f 64 65 2e 20 49 66 20 28  ocess mode. If (
04f0: 24 74 6e 3d 3d 31 29 2c 20 74 68 65 6e 20 61 6c  $tn==1), then al
0500: 6c 20 73 75 63 68 20 61 74 74 65 6d 70 74 73 20  l such attempts 
0510: 66 61 69 6c 2e 20 4f 72 2c 0a 20 20 23 20 69 66  fail. Or,.  # if
0520: 20 28 24 74 6e 3d 3d 32 29 2c 20 74 68 65 79 20   ($tn==2), they 
0530: 61 6c 6c 20 73 75 63 63 65 65 64 2e 0a 20 20 64  all succeed..  d
0540: 6f 5f 74 65 73 74 20 24 74 6e 2e 31 20 7b 0a 20  o_test $tn.1 {. 
0550: 20 20 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c     catch { db cl
0560: 6f 73 65 20 7d 0a 20 20 20 20 6c 69 73 74 20 5b  ose }.    list [
0570: 63 61 74 63 68 20 7b 73 71 6c 69 74 65 34 20 64  catch {sqlite4 d
0580: 62 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f 6c  b file:test.db?l
0590: 73 6d 5f 6d 75 6c 74 69 70 6c 65 5f 70 72 6f 63  sm_multiple_proc
05a0: 65 73 73 65 73 3d 30 7d 20 6d 73 67 5d 20 24 6d  esses=0} msg] $m
05b0: 73 67 0a 20 20 7d 20 24 6c 6f 63 6b 65 64 0a 20  sg.  } $locked. 
05c0: 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 32 20 7b   do_test $tn.2 {
05d0: 0a 20 20 20 20 63 61 74 63 68 20 7b 20 64 62 20  .    catch { db 
05e0: 63 6c 6f 73 65 20 7d 0a 20 20 20 20 6c 69 73 74  close }.    list
05f0: 20 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 34   [catch {sqlite4
0600: 20 64 62 20 66 69 6c 65 3a 74 65 73 74 2e 64 62   db file:test.db
0610: 3f 6c 73 6d 5f 6d 75 6c 74 69 70 6c 65 5f 70 72  ?lsm_multiple_pr
0620: 6f 63 65 73 73 65 73 3d 30 7d 20 6d 73 67 5d 20  ocesses=0} msg] 
0630: 24 6d 73 67 0a 20 20 7d 20 24 6c 6f 63 6b 65 64  $msg.  } $locked
0640: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 33  .  do_test $tn.3
0650: 20 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 20 64   {.    catch { d
0660: 62 20 63 6c 6f 73 65 20 7d 0a 20 20 20 20 6c 69  b close }.    li
0670: 73 74 20 5b 63 61 74 63 68 20 7b 73 71 6c 69 74  st [catch {sqlit
0680: 65 34 20 64 62 20 66 69 6c 65 3a 74 65 73 74 2e  e4 db file:test.
0690: 64 62 3f 6c 73 6d 5f 6d 75 6c 74 69 70 6c 65 5f  db?lsm_multiple_
06a0: 70 72 6f 63 65 73 73 65 73 3d 31 7d 20 6d 73 67  processes=1} msg
06b0: 5d 20 24 6d 73 67 0a 20 20 7d 20 24 6c 6f 63 6b  ] $msg.  } $lock
06c0: 65 64 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e  ed.  do_test $tn
06d0: 2e 34 20 7b 0a 20 20 20 20 63 61 74 63 68 20 7b  .4 {.    catch {
06e0: 20 64 62 20 63 6c 6f 73 65 20 7d 0a 20 20 20 20   db close }.    
06f0: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 73 71 6c  list [catch {sql
0700: 69 74 65 34 20 64 62 20 66 69 6c 65 3a 74 65 73  ite4 db file:tes
0710: 74 2e 64 62 3f 6c 73 6d 5f 6d 75 6c 74 69 70 6c  t.db?lsm_multipl
0720: 65 5f 70 72 6f 63 65 73 73 65 73 3d 31 7d 20 6d  e_processes=1} m
0730: 73 67 5d 20 24 6d 73 67 0a 20 20 7d 20 24 6c 6f  sg] $msg.  } $lo
0740: 63 6b 65 64 0a 0a 20 20 23 20 4e 6f 77 20 6f 70  cked..  # Now op
0750: 65 6e 20 61 20 63 6f 6e 6e 65 63 74 69 6f 6e 20  en a connection 
0760: 66 72 6f 6d 20 61 6e 20 65 78 74 65 72 6e 61 6c  from an external
0770: 20 70 72 6f 63 65 73 73 20 69 6e 20 6d 75 6c 74   process in mult
0780: 69 2d 70 72 6f 63 20 6d 6f 64 65 2e 0a 20 20 23  i-proc mode..  #
0790: 20 4f 62 73 65 72 76 65 20 74 68 61 74 20 66 75   Observe that fu
07a0: 72 74 68 65 72 20 63 6f 6e 6e 65 63 74 69 6f 6e  rther connection
07b0: 73 20 61 72 65 20 61 6c 6c 6f 77 65 64 20 69 66  s are allowed if
07c0: 20 74 68 65 79 20 61 72 65 20 66 72 6f 6d 20 77   they are from w
07d0: 69 74 68 69 6e 0a 20 20 23 20 74 68 65 20 73 61  ithin.  # the sa
07e0: 6d 65 20 70 72 6f 63 65 73 73 20 6f 72 20 69 66  me process or if
07f0: 20 74 68 65 20 4c 53 4d 5f 43 4f 4e 46 49 47 5f   the LSM_CONFIG_
0800: 4d 55 4c 54 49 50 4c 45 5f 50 52 4f 43 45 53 53  MULTIPLE_PROCESS
0810: 45 53 20 70 61 72 61 6d 65 74 65 72 0a 20 20 23  ES parameter.  #
0820: 20 69 73 20 73 65 74 20 74 6f 20 74 72 75 65 2e   is set to true.
0830: 0a 20 20 63 6f 64 65 32 20 7b 20 0a 20 20 20 20  .  code2 { .    
0840: 64 62 32 20 63 6c 6f 73 65 0a 20 20 20 20 73 71  db2 close.    sq
0850: 6c 69 74 65 34 20 64 62 32 20 66 69 6c 65 3a 74  lite4 db2 file:t
0860: 65 73 74 2e 64 62 0a 20 20 7d 0a 0a 20 20 64 6f  est.db.  }..  do
0870: 5f 74 65 73 74 20 24 74 6e 2e 35 20 7b 0a 20 20  _test $tn.5 {.  
0880: 20 20 63 61 74 63 68 20 7b 20 64 62 20 63 6c 6f    catch { db clo
0890: 73 65 20 7d 0a 20 20 20 20 6c 69 73 74 20 5b 63  se }.    list [c
08a0: 61 74 63 68 20 7b 73 71 6c 69 74 65 34 20 64 62  atch {sqlite4 db
08b0: 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f 6c 73   file:test.db?ls
08c0: 6d 5f 6d 75 6c 74 69 70 6c 65 5f 70 72 6f 63 65  m_multiple_proce
08d0: 73 73 65 73 3d 30 7d 20 6d 73 67 5d 20 24 6d 73  sses=0} msg] $ms
08e0: 67 0a 20 20 7d 20 24 6c 6f 63 6b 65 64 0a 20 20  g.  } $locked.  
08f0: 64 6f 5f 74 65 73 74 20 24 74 6e 2e 36 20 7b 0a  do_test $tn.6 {.
0900: 20 20 20 20 63 61 74 63 68 20 7b 20 64 62 20 63      catch { db c
0910: 6c 6f 73 65 20 7d 0a 20 20 20 20 6c 69 73 74 20  lose }.    list 
0920: 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 34 20  [catch {sqlite4 
0930: 64 62 20 66 69 6c 65 3a 74 65 73 74 2e 64 62 3f  db file:test.db?
0940: 6c 73 6d 5f 6d 75 6c 74 69 70 6c 65 5f 70 72 6f  lsm_multiple_pro
0950: 63 65 73 73 65 73 3d 30 7d 20 6d 73 67 5d 20 24  cesses=0} msg] $
0960: 6d 73 67 0a 20 20 7d 20 24 6c 6f 63 6b 65 64 0a  msg.  } $locked.
0970: 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 37 20    do_test $tn.7 
0980: 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 20 64 62  {.    catch { db
0990: 20 63 6c 6f 73 65 20 7d 0a 20 20 20 20 6c 69 73   close }.    lis
09a0: 74 20 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65  t [catch {sqlite
09b0: 34 20 64 62 20 66 69 6c 65 3a 74 65 73 74 2e 64  4 db file:test.d
09c0: 62 3f 6c 73 6d 5f 6d 75 6c 74 69 70 6c 65 5f 70  b?lsm_multiple_p
09d0: 72 6f 63 65 73 73 65 73 3d 31 7d 20 6d 73 67 5d  rocesses=1} msg]
09e0: 20 24 6d 73 67 0a 20 20 7d 20 7b 30 20 7b 7d 7d   $msg.  } {0 {}}
09f0: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 38  .  do_test $tn.8
0a00: 20 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 20 64   {.    catch { d
0a10: 62 20 63 6c 6f 73 65 20 7d 0a 20 20 20 20 6c 69  b close }.    li
0a20: 73 74 20 5b 63 61 74 63 68 20 7b 73 71 6c 69 74  st [catch {sqlit
0a30: 65 34 20 64 62 20 66 69 6c 65 3a 74 65 73 74 2e  e4 db file:test.
0a40: 64 62 3f 6c 73 6d 5f 6d 75 6c 74 69 70 6c 65 5f  db?lsm_multiple_
0a50: 70 72 6f 63 65 73 73 65 73 3d 31 7d 20 6d 73 67  processes=1} msg
0a60: 5d 20 24 6d 73 67 0a 20 20 7d 20 7b 30 20 7b 7d  ] $msg.  } {0 {}
0a70: 7d 0a 7d 0a 0a 0a 66 69 6e 69 73 68 5f 74 65 73  }.}...finish_tes
0a80: 74 0a                                            t.