# 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.2 2005/09/17 18:02:37 drh Exp $set testdir [file dirname $argv0]source $testdir/tester.tcldo_test busy-1.1 {  sqlite3 db2 test.db  execsql {    CREATE TABLE t1(x);    INSERT INTO t1 VALUES(1);    SELECT * FROM t1  }} 1proc 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}db2 closefinish_test