AryaWu/sqlite

1# 2019 June 52#3# The author disclaims copyright to this source code.  In place of4# 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 13set testdir [file dirname $argv0]14source $testdir/tester.tcl15set testprefix chunksize16 17if {$::tcl_platform(platform) ne "unix"} {18  finish_test19  return20}21 22foreach {tn jrnlmode} {23  1 delete24  2 wal25} {26  reset_db27  file_control_chunksize_test db main 3276828  do_execsql_test $tn.0 " PRAGMA journal_mode = $jrnlmode " $jrnlmode29  do_execsql_test $tn.1 {30    CREATE TABLE t1(a, b);31    INSERT INTO t1 VALUES(1, 2);32  }33 34  execsql { PRAGMA wal_checkpoint }35 36  do_test $tn.2 {37    file size test.db38  } 3276839}40 41finish_test42