xref: /sqlite-3.40.0/test/busy.test (revision 4dcbdbff) 
1# 2005 july 8
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# This file test the busy handler
12#
13# $Id: busy.test,v 1.1 2005/07/09 02:16:03 drh Exp $
14
15
16set testdir [file dirname $argv0]
17source $testdir/tester.tcl
18
19do_test busy-1.1 {
20  sqlite3 db2 test.db
21  execsql {
22    CREATE TABLE t1(x);
23    INSERT INTO t1 VALUES(1);
24    SELECT * FROM t1
25  }
26} 1
27proc busy x {
28  lappend ::busyargs $x
29  if {$x>2} {return 1}
30  return 0
31}
32do_test busy-1.2 {
33  db busy busy
34  db2 eval {begin exclusive}
35  catchsql {begin immediate}
36} {1 {database is locked}}
37do_test busy-1.3 {
38  set busyargs
39} {0 1 2 3}
40
41db2 close
42
43finish_test
44