third_party/sqlite/src/test/unixexcl.test

   1 # 2011 March 30
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 #
  12 # This file contains tests for the "unix-excl" VFS module (part of
  13 # os_unix.c).
  14 #
  15
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18 source $testdir/lock_common.tcl
  19 source $testdir/malloc_common.tcl
  20
  21 if {$::tcl_platform(platform)!="unix" || [info commands test_syscall]==""} {
  22   finish_test
  23   return
  24 }
  25 set testprefix unixexcl
  26
  27
  28
  29 # Test that when using VFS "unix-excl", the first time the database is read
  30 # a process-wide exclusive lock is taken on it. This means other connections
  31 # within the process may still access the db normally, but connections from
  32 # outside the process cannot.
  33 #
  34 do_multiclient_test tn {
  35   do_test unixexcl-1.$tn.1 {
  36     sql1 {
  37       CREATE TABLE t1(a, b);
  38       INSERT INTO t1 VALUES('hello', 'world');
  39     }
  40   } {}
  41   do_test unixexcl-1.$tn.2 { sql2 { SELECT * FROM t1 } } {hello world}
  42   do_test unixexcl-1.$tn.3 {
  43     code1 {
  44       db close
  45       sqlite3 db test.db -vfs unix-excl
  46       db eval { SELECT * FROM t1 }
  47     }
  48   } {hello world}
  49   if {$tn==1} {
  50     do_test unixexcl-1.$tn.4.multiproc {
  51       csql2 { SELECT * FROM t1 }
  52     } {1 {database is locked}}
  53   } else {
  54     do_test unixexcl-1.$tn.4.singleproc {
  55       csql2 { SELECT * FROM t1 }
  56     } {0 {hello world}}
  57   }
  58 }
  59
  60 # Test that when using VFS "unix-excl", if a file is opened in read-only mode
  61 # the behaviour is the same as if VFS "unix" were used.
  62 #
  63 do_multiclient_test tn {
  64   do_test unixexcl-2.$tn.1 {
  65     sql1 {
  66       CREATE TABLE t1(a, b);
  67       INSERT INTO t1 VALUES('hello', 'world');
  68     }
  69   } {}
  70   do_test unixexcl-2.$tn.2 { sql2 { SELECT * FROM t1 } } {hello world}
  71   do_test unixexcl-2.$tn.3 {
  72     code1 {
  73       db close
  74       sqlite3 db test.db -readonly yes -vfs unix-excl
  75       db eval { SELECT * FROM t1 }
  76     }
  77   } {hello world}
  78   do_test unixexcl-2.$tn.4 {
  79     csql2 { SELECT * FROM t1 }
  80   } {0 {hello world}}
  81 }
  82
  83 finish_test