test/tkt1512.test

   1 # 2005 September 19
   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.
  12 #
  13 # This file implements tests to verify that ticket #1512 is
  14 # fixed.
  15 #
  16
  17 set testdir [file dirname $argv0]
  18 source $testdir/tester.tcl
  19
  20 ifcapable {!vacuum || !autovacuum} {
  21   finish_test
  22   return
  23 }
  24 if {[db one {PRAGMA auto_vacuum}]} {
  25   finish_test
  26   return
  27 }
  28
  29 do_test tkt1512-1.1 {
  30   execsql {
  31     CREATE TABLE t1(a,b);
  32     INSERT INTO t1 VALUES(1,2);
  33     INSERT INTO t1 VALUES(3,4);
  34     SELECT * FROM t1
  35   }
  36 } {1 2 3 4}
  37 do_test tkt1512-1.2 {
  38   file size test.db
  39 } {2048}
  40 do_test tkt1512-1.3 {
  41   execsql {
  42     DROP TABLE t1;
  43   }
  44   file size test.db
  45 } {2048}
  46 do_test tkt1512-1.4 {
  47   execsql {
  48     VACUUM;
  49   }
  50   file size test.db
  51 } {1024}
  52
  53
  54 finish_test