xref: /sqlite-3.40.0/test/chunksize.test (revision 48646e49) 
1*48646e49Sdan# 2019 June 5
2*48646e49Sdan#
3*48646e49Sdan# The author disclaims copyright to this source code.  In place of
4*48646e49Sdan# a legal notice, here is a blessing:
5*48646e49Sdan#
6*48646e49Sdan#    May you do good and not evil.
7*48646e49Sdan#    May you find forgiveness for yourself and forgive others.
8*48646e49Sdan#    May you share freely, never taking more than you give.
9*48646e49Sdan#
10*48646e49Sdan#***********************************************************************
11*48646e49Sdan#
12*48646e49Sdan
13*48646e49Sdanset testdir [file dirname $argv0]
14*48646e49Sdansource $testdir/tester.tcl
15*48646e49Sdanset testprefix chunksize
16*48646e49Sdan
17*48646e49Sdanif {$::tcl_platform(platform)!="unix"} {
18*48646e49Sdan  finish_test
19*48646e49Sdan  return
20*48646e49Sdan}
21*48646e49Sdan
22*48646e49Sdanforeach {tn jrnlmode} {
23*48646e49Sdan  1 delete
24*48646e49Sdan  2 wal
25*48646e49Sdan} {
26*48646e49Sdan  reset_db
27*48646e49Sdan  file_control_chunksize_test db main 32768
28*48646e49Sdan  do_execsql_test $tn.0 " PRAGMA journal_mode = $jrnlmode " $jrnlmode
29*48646e49Sdan  do_execsql_test $tn.1 {
30*48646e49Sdan    CREATE TABLE t1(a, b);
31*48646e49Sdan    INSERT INTO t1 VALUES(1, 2);
32*48646e49Sdan  }
33*48646e49Sdan
34*48646e49Sdan  execsql { PRAGMA wal_checkpoint }
35*48646e49Sdan
36*48646e49Sdan  do_test $tn.2 {
37*48646e49Sdan    file size test.db
38*48646e49Sdan  } 32768
39*48646e49Sdan}
40*48646e49Sdan
41*48646e49Sdanfinish_test
42