AryaWu/sqlite

1# 2007 Sep 132#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#12# This file attempts to duplicate an error scenario seen on a13# customer system using version 3.2.2.  The problem appears to14# have been fixed (perhaps by accident) with check-in [3503].15# These tests will prevent an accidental recurrance.16#17# $Id: shortread1.test,v 1.1 2007/09/14 01:48:12 drh Exp $18#19 20set testdir [file dirname $argv0]21source $testdir/tester.tcl22 23do_test shortread1-1.1 {24  execsql {25    CREATE TABLE t1(a TEXT);26    BEGIN;27    INSERT INTO t1 VALUES(hex(randomblob(5000)));28    INSERT INTO t1 VALUES(hex(randomblob(100)));29    PRAGMA freelist_count;30  }31} {0}32do_test shortread1-1.2 {33  execsql {34    DELETE FROM t1 WHERE rowid=1;35    PRAGMA freelist_count;36  }37} {11}38do_test shortread1-1.3 {39  sqlite3_release_memory [expr {1024*9}]40  execsql {41    INSERT INTO t1 VALUES(hex(randomblob(5000)));42    PRAGMA freelist_count;43  }44} {0}45do_test shortread1-1.4 {46  execsql {47    COMMIT;48    SELECT count(*) FROM t1;49  }50} {2}51 52finish_test53