diff options
author | Hans-Christoph Steiner <hans@eds.org> | 2012-03-30 20:42:12 -0400 |
---|---|---|
committer | Hans-Christoph Steiner <hans@eds.org> | 2012-03-30 20:42:12 -0400 |
commit | 7bb481fda9ecb134804b49c2ce77ca28f7eea583 (patch) | |
tree | 31b520b9914d3e2453968abe375f2c102772c3dc /test/busy.test |
Imported Upstream version 2.0.3
Diffstat (limited to 'test/busy.test')
-rw-r--r-- | test/busy.test | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/test/busy.test b/test/busy.test new file mode 100644 index 0000000..585f764 --- /dev/null +++ b/test/busy.test @@ -0,0 +1,61 @@ +# 2005 july 8 +# +# 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 test the busy handler +# +# $Id: busy.test,v 1.3 2008/03/15 02:09:22 drh Exp $ + + +set testdir [file dirname $argv0] +source $testdir/tester.tcl + +do_test busy-1.1 { + sqlite3 db2 test.db + execsql { + CREATE TABLE t1(x); + INSERT INTO t1 VALUES(1); + SELECT * FROM t1 + } +} 1 +proc busy x { + lappend ::busyargs $x + if {$x>2} {return 1} + return 0 +} +set busyargs {} +do_test busy-1.2 { + db busy busy + db2 eval {BEGIN EXCLUSIVE} + catchsql {BEGIN IMMEDIATE} +} {1 {database is locked}} +do_test busy-1.3 { + set busyargs +} {0 1 2 3} +do_test busy-1.4 { + set busyargs {} + catchsql {BEGIN IMMEDIATE} + set busyargs +} {0 1 2 3} + +do_test busy-2.1 { + db2 eval {COMMIT} + db eval {BEGIN; INSERT INTO t1 VALUES(5)} + db2 eval {BEGIN; SELECT * FROM t1} + set busyargs {} + catchsql COMMIT +} {1 {database is locked}} +do_test busy-2.2 { + set busyargs +} {0 1 2 3} + + +db2 close + +finish_test |