# 2007 December 19

#

# The author disclaims copyright to this source code.  In place of

# a legal notice, here is a blessing:

#

#    May you do good and not evil.

#    May you find forgiveness for yourself and forgive others.

#    May you share freely, never taking more than you give.

#

#***********************************************************************

# This file implements regression tests for SQLite library.  The

# focus of this file is testing for correct handling of I/O errors

# during incremental vacuum with a shared cache.

#

# $Id: ioerr4.test,v 1.2 2008/05/08 01:11:42 drh Exp $

set testdir [file dirname $argv0]

source $testdir/tester.tcl

# This test requires both shared cache and incremental vacuum.

#

ifcapable {!shared_cache || !autovacuum} {

  finish_test

  return

}

# Enable shared cache mode and incremental vacuum.

#

do_test ioerr4-1.1 {

  db close

  set ::enable_shared_cache [sqlite3_enable_shared_cache 1]

} {0}

do_test ioerr4-1.2 {

  file delete -force test.db test.db-journal

  sqlite3 db test.db

  sqlite3 db2 test.db

  db eval {

    PRAGMA auto_vacuum=INCREMENTAL;

    CREATE TABLE a(i INTEGER, b BLOB);

  }

  db2 eval {

    SELECT name FROM sqlite_master

  }

} {a}

do_test ioerr4-1.3 {

  db eval {

    PRAGMA auto_vacuum;

  }

} {2}

# Insert and delete many records in order to put lots of pages

# on the freelist.

#

do_test ioerr4-1.4 {

  db eval {

    INSERT INTO a VALUES(1, zeroblob(2000));

    INSERT INTO a VALUES(2, zeroblob(2000));

    INSERT INTO a SELECT i+2, zeroblob(2000) FROM a;

    INSERT INTO a SELECT i+4, zeroblob(2000) FROM a;

    INSERT INTO a SELECT i+8, zeroblob(2000) FROM a;

    INSERT INTO a SELECT i+16, zeroblob(2000) FROM a;

    SELECT count(*) FROM a;

  }

} {32}

do_test ioerr4-1.5 {

  db eval {

    PRAGMA freelist_count

  }

} {0}

do_test ioerr4-1.6 {

  db eval {

    DELETE FROM a;

    PRAGMA freelist_count;

  }

} {64}

# Set up for an I/O error on incremental vacuum

# with two connections on shared cache.

#

db close

db2 close

file copy -force test.db test.db-bu

do_ioerr_test ioerr4-2 -tclprep {

  catch {db2 close}

  db close

  file delete -force test.db test.db-journal

  file copy -force test.db-bu test.db

  sqlite3_enable_shared_cache 1

  set ::DB [sqlite3 db test.db; sqlite3_connection_pointer db]

  db eval {PRAGMA auto_vacuum=INCREMENTAL}

  sqlite3 db2 test.db

} -tclbody {

  db eval {PRAGMA incremental_vacuum(5)}

}

db2 close

file delete -force test.db-bu

sqlite3_enable_shared_cache $::enable_shared_cache

finish_test