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 forcedelete test.db test2.db
  47
  48 if {$tcl_platform(platform)=="windows"} {
  49   do_test filectrl-2.1 {
  50     sqlite3 db test2.db
  51     set size [file size test2.db]
  52     set handle [file_control_win32_get_handle db]
  53     db close
  54     forcedelete test2.db
  55     list $size $handle [expr {$handle != 0}]
  56   } {/^0 \{0 [0-9A-Fa-f]+\} 1$/}
  57
  58   do_test filectrl-2.2 {
  59     sqlite3 db test2.db
  60     execsql {
  61       CREATE TABLE t1(x);
  62       INSERT INTO t1 (x) VALUES(RANDOMBLOB(1048576));
  63     }
  64     set size [file size test2.db]
  65     set handle [file_control_win32_get_handle db]
  66     db close
  67     forcedelete test2.db
  68     list $size $handle [expr {$handle != 0}]
  69   } {/^1\d+ \{0 [0-9A-Fa-f]+\} 1$/}
  70 }
  71
  72 finish_test