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