OLD | NEW |
| (Empty) |
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 | |
14 set testdir [file dirname $argv0] | |
15 source $testdir/tester.tcl | |
16 | |
17 | |
18 do_test filectrl-1.1 { | |
19 file_control_test db | |
20 } {} | |
21 do_test filectrl-1.2 { | |
22 db eval {CREATE TEMP TABLE x(y);} | |
23 file_control_test db | |
24 } {} | |
25 do_test filectrl-1.3 { | |
26 db close | |
27 sqlite3 db :memory: | |
28 file_control_test db | |
29 } {} | |
30 do_test filectrl-1.4 { | |
31 sqlite3 db test.db | |
32 file_control_lasterrno_test db | |
33 } {} | |
34 do_test filectrl-1.5 { | |
35 db close | |
36 sqlite3 db test_control_lockproxy.db | |
37 file_control_lockproxy_test db [get_pwd] | |
38 } {} | |
39 do_test filectrl-1.6 { | |
40 sqlite3 db test.db | |
41 set fn [file_control_tempfilename db] | |
42 puts -nonewline \[$fn\] | |
43 set fn | |
44 } {/etilqs_/} | |
45 db close | |
46 forcedelete .test_control_lockproxy.db-conch test.proxy | |
47 finish_test | |
OLD | NEW |