test/filectrl.test

   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   set fn
  43 } {/etilqs_/}
  44 db close
  45 forcedelete .test_control_lockproxy.db-conch test.proxy
  46 finish_test