AryaWu/sqlite

1# 2005 September 192#3# The author disclaims copyright to this source code.  In place of4# 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 is14# fixed.  15#16 17set testdir [file dirname $argv0]18source $testdir/tester.tcl19 20ifcapable {!vacuum || !autovacuum} {21  finish_test22  return23}24if {[db one {PRAGMA auto_vacuum}]} {25  finish_test26  return27}28 29do_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 t135  }36} {1 2 3 4}37do_test tkt1512-1.2 {38  file size test.db39} {2048}40do_test tkt1512-1.3 {41  execsql {42    DROP TABLE t1;43  }44  file size test.db45} {2048}46do_test tkt1512-1.4 {47  execsql {48    VACUUM;49  }50  file size test.db51} {1024}52 53 54finish_test55