test/createtab.test

   1 # 2007 May 02
   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 # This file implements regression tests for SQLite library.  The
  12 # focus of this file is testing that it is OK to create new tables
  13 # and indices while creating existing tables and indices.
  14 #
  15 # $Id: createtab.test,v 1.3 2007/09/12 17:01:45 danielk1977 Exp $
  16
  17 set testdir [file dirname $argv0]
  18 source $testdir/tester.tcl
  19
  20 ifcapable autovacuum {
  21   set upperBound 2
  22 } else {
  23   set upperBound 0
  24 }
  25
  26 # Run these tests for all possible values of autovacuum.
  27 #
  28 for {set av 0} {$av<=$upperBound} {incr av} {
  29   db close
  30   forcedelete test.db test.db-journal
  31   sqlite3 db test.db
  32
  33   # Create a table that spans multiple pages.  It is important
  34   # that part of the database be in pages beyond the root page.
  35   #
  36   do_test createtab-$av.1 {
  37     execsql "PRAGMA auto_vacuum=$av"
  38     execsql {
  39       PRAGMA page_size=1024;
  40       CREATE TABLE t1(x INTEGER PRIMARY KEY, y);
  41       INSERT INTO t1 VALUES(1, hex(randomblob(200)));
  42       INSERT INTO t1 VALUES(2, hex(randomblob(200)));
  43       INSERT INTO t1 VALUES(3, hex(randomblob(200)));
  44       INSERT INTO t1 VALUES(4, hex(randomblob(200)));
  45       SELECT count(*) FROM t1;
  46     }
  47   } {4}
  48
  49   set isUtf16 0
  50   ifcapable utf16 {
  51     set isUtf16 [expr {[execsql {PRAGMA encoding}] != "UTF-8"}]
  52   }
  53
  54   do_test createtab-$av.2 {
  55     file size test.db
  56   } [expr {1024*(4+($av!=0)+(${isUtf16}*2))}]
  57
  58   # Start reading the table
  59   #
  60   do_test createtab-$av.3 {
  61     set STMT [sqlite3_prepare db {SELECT x FROM t1} -1 TAIL]
  62     sqlite3_step $STMT
  63   } {SQLITE_ROW}
  64   do_test createtab-$av.4 {
  65     sqlite3_column_int $STMT 0
  66   } {1}
  67
  68   # While still reading the table, create a new table.
  69   #
  70   do_test createtab-$av.5 {
  71     execsql {
  72       CREATE TABLE t2(a,b);
  73       INSERT INTO t2 VALUES(1,2);
  74       SELECT * FROM t2;
  75     }
  76   } {1 2}
  77
  78   # Continue reading the original table.
  79   #
  80   do_test createtab-$av.6 {
  81     sqlite3_column_int $STMT 0
  82   } {1}
  83   do_test createtab-$av.7 {
  84     sqlite3_step $STMT
  85   } {SQLITE_ROW}
  86   do_test createtab-$av.8 {
  87     sqlite3_column_int $STMT 0
  88   } {2}
  89
  90   # Do another cycle of creating a new database table while contining
  91   # to read the original table.
  92   #
  93   do_test createtab-$av.11 {
  94     execsql {
  95       CREATE TABLE t3(a,b);
  96       INSERT INTO t3 VALUES(4,5);
  97       SELECT * FROM t3;
  98     }
  99   } {4 5}
 100   do_test createtab-$av.12 {
 101     sqlite3_column_int $STMT 0
 102   } {2}
 103   do_test createtab-$av.13 {
 104     sqlite3_step $STMT
 105   } {SQLITE_ROW}
 106   do_test createtab-$av.14 {
 107     sqlite3_column_int $STMT 0
 108   } {3}
 109
 110   # One more cycle.
 111   #
 112   do_test createtab-$av.21 {
 113     execsql {
 114       CREATE TABLE t4(a,b);
 115       INSERT INTO t4 VALUES('abc','xyz');
 116       SELECT * FROM t4;
 117     }
 118   } {abc xyz}
 119   do_test createtab-$av.22 {
 120     sqlite3_column_int $STMT 0
 121   } {3}
 122   do_test createtab-$av.23 {
 123     sqlite3_step $STMT
 124   } {SQLITE_ROW}
 125   do_test createtab-$av.24 {
 126     sqlite3_column_int $STMT 0
 127   } {4}
 128
 129   # Finish reading.  Do an integrity check on the database.
 130   #
 131   do_test createtab-$av.30 {
 132     sqlite3_step $STMT
 133   } {SQLITE_DONE}
 134   do_test createtab-$av.31 {
 135     sqlite3_finalize $STMT
 136   } {SQLITE_OK}
 137   do_test createtab-$av.32 {
 138     execsql {
 139       SELECT name FROM sqlite_master WHERE type='table' ORDER BY 1
 140     }
 141   } {t1 t2 t3 t4}
 142   integrity_check createtab-$av.40
 143
 144 }
 145
 146 finish_test