github.com/jdgcs/sqlite3@v1.12.1-0.20210908114423-bc5f96e4dd51/testdata/tcl/filectrl.test (about)

     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