Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes to test/lock.test.

    19     19   #   drh@hwaci.com
    20     20   #   http://www.hwaci.com/drh/
    21     21   #
    22     22   #***********************************************************************
    23     23   # This file implements regression tests for SQLite library.  The
    24     24   # focus of this script is database locks.
    25     25   #
    26         -# $Id: lock.test,v 1.1 2000/07/28 14:32:50 drh Exp $
           26  +# $Id: lock.test,v 1.2 2000/08/04 13:51:11 drh Exp $
    27     27   
    28     28   set testdir [file dirname $argv0]
    29     29   source $testdir/tester.tcl
    30     30   
    31     31   
    32     32   # Create a largish table
    33     33   #
................................................................................
    46     46     # Create a background query that gives us a read lock on the big table
    47     47     #
    48     48     set f [open slow.sql w]
    49     49     puts $f "SELECT a.f1, b.f1 FROM big AS a, big AS B"
    50     50     puts $f "WHERE a.f1+b.f1==0.5;"
    51     51     close $f
    52     52     set ::lock_pid [exec ./sqlite testdb <slow.sql &]
    53         -  after 10
           53  +  after 250
    54     54     set v {}
    55     55   } {}
    56     56   
    57     57   do_test lock-1.2 {
    58     58     # Now try to update the database
    59     59     #
    60     60     set v [catch {execsql {UPDATE big SET f2='xyz' WHERE f1=11}} msg]