1# 2008 Jan 22
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#
12# $Id: filectrl.test,v 1.2 2008/11/21 00:10:35 aswift Exp $
13
14set testdir [file dirname $argv0]
15source $testdir/tester.tcl
16
17
18do_test filectrl-1.1 {
19  file_control_test db
20} {}
21do_test filectrl-1.2 {
22  db eval {CREATE TEMP TABLE x(y);}
23  file_control_test db
24} {}
25do_test filectrl-1.3 {
26  db close
27  sqlite3 db :memory:
28  file_control_test db
29} {}
30do_test filectrl-1.4 {
31  sqlite3 db test.db
32  file_control_lasterrno_test db
33} {}
34do_test filectrl-1.5 {
35  db close
36  sqlite3 db test_control_lockproxy.db
37  file_control_lockproxy_test db [pwd]
38} {}
39db close
40file delete -force .test_control_lockproxy.db-conch test.proxy
41finish_test
42