AryaWu/sqlite

1# 2008 October 62#3# The author disclaims copyright to this source code.  In place of4# 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# This file implements regression tests for SQLite library.  The12# focus of this script is database locks.13#14# $Id: lock6.test,v 1.3 2009/02/05 16:31:46 drh Exp $15 16 17set testdir [file dirname $argv0]18source $testdir/tester.tcl19 20# Launch another testfixture process to be controlled by this one. A21# channel name is returned that may be passed as the first argument to proc22# 'testfixture' to execute a command. The child testfixture process is shut23# down by closing the channel.24proc launch_testfixture {} {25  set prg [info nameofexec]26  if {$prg eq ""} {27    set prg [file join . testfixture]28  }29  set chan [open "|$prg tf_main2.tcl" r+]30  fconfigure $chan -buffering line31  return $chan32}33 34# Execute a command in a child testfixture process, connected by two-way35# channel $chan. Return the result of the command, or an error message.36proc testfixture {chan cmd} {37  puts $chan $cmd38  puts $chan OVER39  set r ""40  while { 1 } {41    set line [gets $chan]42    if { $line == "OVER" } { 43      return $r44    }45    append r $line46  }47}48 49# Write the main loop for the child testfixture processes into file50# tf_main2.tcl. The parent (this script) interacts with the child processes51# via a two way pipe. The parent writes a script to the stdin of the child52# process, followed by the word "OVER" on a line of its own. The child53# process evaluates the script and writes the results to stdout, followed54# by an "OVER" of its own.55set f [open tf_main2.tcl w]56puts $f {57  set l [open log w]58  set script ""59  while {![eof stdin]} {60    flush stdout61    set line [gets stdin]62    puts $l "READ $line"63    if { $line == "OVER" } {64      catch {eval $script} result65      puts $result66      puts $l "WRITE $result"67      puts OVER68      puts $l "WRITE OVER"69      flush stdout70      set script ""71    } else {72      append script $line73      append script " ; "74    }75  }76  close $l77}78close $f79 80 81ifcapable lock_proxy_pragmas&&prefer_proxy_locking {82  set sqlite_hostid_num 183 84  set using_proxy 085  foreach {name value} [array get env SQLITE_FORCE_PROXY_LOCKING] {86    set using_proxy $value87  }88 89  # Test the lock_proxy_file pragmas.90  #91  set env(SQLITE_FORCE_PROXY_LOCKING) "1"92 93  do_test lock6-1.1 {94    set ::tf1 [launch_testfixture]95    testfixture $::tf1 "sqlite3_test_control_pending_byte $::sqlite_pending_byte"96    testfixture $::tf1 {97      set sqlite_hostid_num 2    98      sqlite3 db test.db -key xyzzy99      set lockpath [db eval {100        PRAGMA lock_proxy_file=":auto:";101        select * from sqlite_master;102        PRAGMA lock_proxy_file;103      }]104      string match "*test.db:auto:" $lockpath105    }106  } {1}107  108  set sqlite_hostid_num 3   109  do_test lock6-1.2 {110    execsql {pragma lock_status}111  } {main unlocked temp closed}112 113  sqlite3_soft_heap_limit 0114  do_test lock6-1.3 {115    list [catch {116      sqlite3 db test.db117      execsql { select * from sqlite_master } 118    } msg] $msg119  } {1 {database is locked}}120 121  do_test lock6-1.4 {122    set lockpath [execsql {123      PRAGMA lock_proxy_file=":auto:";124      PRAGMA lock_proxy_file;125    } db]126    set lockpath127  } {{:auto: (not held)}}128 129  do_test lock6-1.4.1 {130    catchsql {131      PRAGMA lock_proxy_file="notmine";132      select * from sqlite_master;133    } db134  } {1 {database is locked}}135 136  do_test lock6-1.4.2 {137    execsql {138      PRAGMA lock_proxy_file;139    } db140  } {notmine}141    142  do_test lock6-1.5 {143    testfixture $::tf1 {144      db eval {145        BEGIN;146        SELECT * FROM sqlite_master;147      }148    }149  } {}150 151  catch {testfixture $::tf1 {db close}}152 153  do_test lock6-1.6 {154    execsql {155      PRAGMA lock_proxy_file="mine";156      select * from sqlite_master;157    } db158  } {}159  160  catch {close $::tf1}161  set env(SQLITE_FORCE_PROXY_LOCKING) $using_proxy162  set sqlite_hostid_num 0163 164  sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)165}166      167finish_test168