# 2012 November 02
#
# The author disclaims copyright to this source code.  In place of
# a legal notice, here is a blessing:
#
#    May you do good and not evil.
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
#
# This file tests that the LSM_CONFIG_MULTIPLE_PROCESSES parameter seems
# to work as documented.
#
set testdir [file dirname $argv0]
source $testdir/tester.tcl
source $testdir/lock_common.tcl
set testprefix lsm3
db close

do_multiclient_test tn {

  # The [do_multiclient_test] command automatically opens a connection
  # in each process (or three connections in this process). We don't want
  # them in this case.
  code1 { db close }
  code2 { db2 close }
  code3 { db3 close }

  if { $tn==1 } {
    set locked {1 {database is locked}}
  } else {
    set locked {0 {}}
  }

  # Open a single-process connection to the database from an external
  # process (if $tn==1, otherwise open it from within the current 
  # process).
  code2 { sqlite4 db2 file:test.db?lsm_multiple_processes=0 }

  # Try to open some other connections to the database file, both in multi
  # and single process mode. If ($tn==1), then all such attempts fail. Or,
  # if ($tn==2), they all succeed.
  do_test $tn.1 {
    catch { db close }
    list [catch {sqlite4 db file:test.db?lsm_multiple_processes=0} msg] $msg
  } $locked
  do_test $tn.2 {
    catch { db close }
    list [catch {sqlite4 db file:test.db?lsm_multiple_processes=0} msg] $msg
  } $locked
  do_test $tn.3 {
    catch { db close }
    list [catch {sqlite4 db file:test.db?lsm_multiple_processes=1} msg] $msg
  } $locked
  do_test $tn.4 {
    catch { db close }
    list [catch {sqlite4 db file:test.db?lsm_multiple_processes=1} msg] $msg
  } $locked

  # Now open a connection from an external process in multi-proc mode.
  # Observe that further connections are allowed if they are from within
  # the same process or if the LSM_CONFIG_MULTIPLE_PROCESSES parameter
  # is set to true.
  code2 { 
    db2 close
    sqlite4 db2 file:test.db
  }

  do_test $tn.5 {
    catch { db close }
    list [catch {sqlite4 db file:test.db?lsm_multiple_processes=0} msg] $msg
  } $locked
  do_test $tn.6 {
    catch { db close }
    list [catch {sqlite4 db file:test.db?lsm_multiple_processes=0} msg] $msg
  } $locked
  do_test $tn.7 {
    catch { db close }
    list [catch {sqlite4 db file:test.db?lsm_multiple_processes=1} msg] $msg
  } {0 {}}
  do_test $tn.8 {
    catch { db close }
    list [catch {sqlite4 db file:test.db?lsm_multiple_processes=1} msg] $msg
  } {0 {}}
}


finish_test