test/chunksize.test

   1 # 2019 June 5
   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
  13 set testdir [file dirname $argv0]
  14 source $testdir/tester.tcl
  15 set testprefix chunksize
  16
  17 if {$::tcl_platform(platform)!="unix"} {
  18   finish_test
  19   return
  20 }
  21
  22 foreach {tn jrnlmode} {
  23   1 delete
  24   2 wal
  25 } {
  26   reset_db
  27   file_control_chunksize_test db main 32768
  28   do_execsql_test $tn.0 " PRAGMA journal_mode = $jrnlmode " $jrnlmode
  29   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.db
  38   } 32768
  39 }
  40
  41 finish_test