blob: af2c017b72acd81196d8ce157f4970493008fb46 [file] [log] [blame]
# 2004 September 2
#
# The author disclaims copyright to this source code. In place of
# a legal notice, here is a blessing:
#
# May you do good and not evil.
# May you find forgiveness for yourself and forgive others.
# May you share freely, never taking more than you give.
#
#***********************************************************************
# This file implements regression tests for SQLite library.
# This file implements tests for the page_size PRAGMA.
#
# $Id: pagesize.test,v 1.13 2008/08/26 21:07:27 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# This test script depends entirely on "PRAGMA page_size". So if this
# pragma is not available, omit the whole file.
ifcapable !pager_pragmas {
finish_test
return
}
do_test pagesize-1.1 {
execsql {PRAGMA page_size}
} 1024
ifcapable {explain} {
do_test pagesize-1.2 {
catch {execsql {EXPLAIN PRAGMA page_size}}
} 0
}
do_test pagesize-1.3 {
execsql {
CREATE TABLE t1(a);
PRAGMA page_size=2048;
PRAGMA page_size;
}
} 1024
do_test pagesize-1.4 {
db close
file delete -force test.db
sqlite3 db test.db
execsql {
PRAGMA page_size=511;
PRAGMA page_size;
}
} 1024
do_test pagesize-1.5 {
execsql {
PRAGMA page_size=512;
PRAGMA page_size;
}
} 512
if {![info exists SQLITE_MAX_PAGE_SIZE] || $SQLITE_MAX_PAGE_SIZE>=8192} {
do_test pagesize-1.6 {
execsql {
PRAGMA page_size=8192;
PRAGMA page_size;
}
} 8192
do_test pagesize-1.7 {
execsql {
PRAGMA page_size=65537;
PRAGMA page_size;
}
} 8192
do_test pagesize-1.8 {
execsql {
PRAGMA page_size=1234;
PRAGMA page_size
}
} 8192
}
foreach PGSZ {512 2048 4096 8192} {
if {[info exists SQLITE_MAX_PAGE_SIZE]
&& $SQLITE_MAX_PAGE_SIZE<$PGSZ} continue
ifcapable memorydb {
do_test pagesize-2.$PGSZ.0.1 {
db close
sqlite3 db :memory:
execsql "PRAGMA page_size=$PGSZ;"
execsql {PRAGMA page_size}
} $PGSZ
do_test pagesize-2.$PGSZ.0.2 {
execsql {CREATE TABLE t1(x UNIQUE, y UNIQUE, z UNIQUE)}
execsql {PRAGMA page_size}
} $PGSZ
do_test pagesize-2.$PGSZ.0.3 {
execsql {
INSERT INTO t1 VALUES(1,2,3);
INSERT INTO t1 VALUES(2,3,4);
SELECT * FROM t1;
}
} {1 2 3 2 3 4}
}
do_test pagesize-2.$PGSZ.1 {
db close
file delete -force test.db
sqlite3 db test.db
execsql "PRAGMA page_size=$PGSZ"
execsql {
CREATE TABLE t1(x);
PRAGMA page_size;
}
} $PGSZ
do_test pagesize-2.$PGSZ.2 {
db close
sqlite3 db test.db
execsql {
PRAGMA page_size
}
} $PGSZ
do_test pagesize-2.$PGSZ.3 {
file size test.db
} [expr {$PGSZ*($AUTOVACUUM?3:2)}]
ifcapable {vacuum} {
do_test pagesize-2.$PGSZ.4 {
execsql {VACUUM}
} {}
}
integrity_check pagesize-2.$PGSZ.5
do_test pagesize-2.$PGSZ.6 {
db close
sqlite3 db test.db
execsql {PRAGMA page_size}
} $PGSZ
do_test pagesize-2.$PGSZ.7 {
execsql {
INSERT INTO t1 VALUES(randstr(10,9000));
INSERT INTO t1 VALUES(randstr(10,9000));
INSERT INTO t1 VALUES(randstr(10,9000));
BEGIN;
INSERT INTO t1 SELECT x||x FROM t1;
INSERT INTO t1 SELECT x||x FROM t1;
INSERT INTO t1 SELECT x||x FROM t1;
INSERT INTO t1 SELECT x||x FROM t1;
SELECT count(*) FROM t1;
}
} 48
do_test pagesize-2.$PGSZ.8 {
execsql {
ROLLBACK;
SELECT count(*) FROM t1;
}
} 3
integrity_check pagesize-2.$PGSZ.9
do_test pagesize-2.$PGSZ.10 {
db close
sqlite3 db test.db
execsql {PRAGMA page_size}
} $PGSZ
do_test pagesize-2.$PGSZ.11 {
execsql {
INSERT INTO t1 SELECT x||x FROM t1;
INSERT INTO t1 SELECT x||x FROM t1;
INSERT INTO t1 SELECT x||x FROM t1;
INSERT INTO t1 SELECT x||x FROM t1;
INSERT INTO t1 SELECT x||x FROM t1;
INSERT INTO t1 SELECT x||x FROM t1;
SELECT count(*) FROM t1;
}
} 192
do_test pagesize-2.$PGSZ.12 {
execsql {
BEGIN;
DELETE FROM t1 WHERE rowid%5!=0;
SELECT count(*) FROM t1;
}
} 38
do_test pagesize-2.$PGSZ.13 {
execsql {
ROLLBACK;
SELECT count(*) FROM t1;
}
} 192
integrity_check pagesize-2.$PGSZ.14
do_test pagesize-2.$PGSZ.15 {
execsql {DELETE FROM t1 WHERE rowid%5!=0}
ifcapable {vacuum} {execsql VACUUM}
execsql {SELECT count(*) FROM t1}
} 38
do_test pagesize-2.$PGSZ.16 {
execsql {DROP TABLE t1}
ifcapable {vacuum} {execsql VACUUM}
} {}
integrity_check pagesize-2.$PGSZ.17
db close
file delete -force test.db
sqlite3 db test.db
do_test pagesize-2.$PGSZ.30 {
execsql "
CREATE TABLE t1(x);
PRAGMA temp.page_size=$PGSZ;
CREATE TEMP TABLE t2(y);
PRAGMA main.page_size;
PRAGMA temp.page_size;
"
} [list 1024 $PGSZ]
db close
file delete -force test.db
sqlite3 db test.db
do_test pagesize-2.$PGSZ.40 {
execsql "
PRAGMA page_size=$PGSZ;
CREATE TABLE t1(x);
CREATE TEMP TABLE t2(y);
PRAGMA main.page_size;
PRAGMA temp.page_size;
"
} [list $PGSZ $PGSZ]
}
finish_test