Home | History | Annotate | Download | only in 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
     84