# 2006 June 10

#

# 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 is on testing the following virtual table methods:

#

#     xBegin

#     xSync

#     xCommit

#     xRollback

#

# $Id: vtab4.test,v 1.3 2008/07/12 14:52:21 drh Exp $

set testdir [file dirname $argv0]

source $testdir/tester.tcl

unset -nocomplain echo_module

unset -nocomplain echo_module_sync_fail

ifcapable !vtab {

  finish_test

  return

}

# Register the echo module

db cache size 0

register_echo_module [sqlite3_connection_pointer db]

do_test vtab4-1.1 {

  execsql {

    CREATE TABLE treal(a PRIMARY KEY, b, c);

    CREATE VIRTUAL TABLE techo USING echo(treal);

  }

} {}

# Test an INSERT, UPDATE and DELETE statement on the virtual table

# in an implicit transaction. Each should result in a single call

# to xBegin, xSync and xCommit.

#

do_test vtab4-1.2 {

  set echo_module [list]

  execsql {

    INSERT INTO techo VALUES(1, 2, 3);

  }

  set echo_module

} {xBegin echo(treal) xSync echo(treal) xCommit echo(treal)}

do_test vtab4-1.3 {

  set echo_module [list]

  execsql {

    UPDATE techo SET a = 2;

  }

  set echo_module

} [list xBestIndex {SELECT rowid, * FROM 'treal'} \

        xBegin     echo(treal)                    \

        xFilter    {SELECT rowid, * FROM 'treal'} \

        xSync      echo(treal)                    \

        xCommit    echo(treal)                    \

]

do_test vtab4-1.4 {

  set echo_module [list]

  execsql {

    DELETE FROM techo;

  }

  set echo_module

} [list xBestIndex {SELECT rowid, * FROM 'treal'} \

        xBegin     echo(treal)                    \

        xFilter    {SELECT rowid, * FROM 'treal'} \

        xSync      echo(treal)                    \

        xCommit    echo(treal)                    \

]

# Ensure xBegin is not called more than once in a single transaction.

#

do_test vtab4-2.1 {

  set echo_module [list]

  execsql {

    BEGIN;

    INSERT INTO techo VALUES(1, 2, 3);

    INSERT INTO techo VALUES(4, 5, 6);

    INSERT INTO techo VALUES(7, 8, 9);

    COMMIT;

  }

  set echo_module

} {xBegin echo(treal) xSync echo(treal) xCommit echo(treal)}

# Try a transaction with two virtual tables.

#

do_test vtab4-2.2 {

  execsql {

    CREATE TABLE sreal(a, b, c UNIQUE);

    CREATE VIRTUAL TABLE secho USING echo(sreal);

  }

  set echo_module [list]

  execsql {

    BEGIN;

    INSERT INTO secho SELECT * FROM techo;

    DELETE FROM techo;

    COMMIT;

  }

  set echo_module

} [list xBestIndex {SELECT rowid, * FROM 'treal'} \

        xBegin     echo(sreal)                    \

        xFilter    {SELECT rowid, * FROM 'treal'} \

        xBestIndex {SELECT rowid, * FROM 'treal'} \

        xBegin     echo(treal)                    \

        xFilter    {SELECT rowid, * FROM 'treal'} \

        xSync   echo(sreal)                       \

        xSync   echo(treal)                       \

        xCommit echo(sreal)                       \

        xCommit echo(treal)                       \

]

do_test vtab4-2.3 {

  execsql {

    SELECT * FROM secho;

  }

} {1 2 3 4 5 6 7 8 9}

do_test vtab4-2.4 {

  execsql {

    SELECT * FROM techo;

  }

} {}

# Try an explicit ROLLBACK on a transaction with two open virtual tables.

do_test vtab4-2.5 {

  set echo_module [list]

  execsql {

    BEGIN;

    INSERT INTO techo SELECT * FROM secho;

    DELETE FROM secho;

    ROLLBACK;

  }

  set echo_module

} [list xBestIndex {SELECT rowid, * FROM 'sreal'} \

        xBegin     echo(treal)                    \

        xFilter    {SELECT rowid, * FROM 'sreal'} \

        xBestIndex {SELECT rowid, * FROM 'sreal'} \

        xBegin     echo(sreal)                    \

        xFilter    {SELECT rowid, * FROM 'sreal'} \

        xRollback  echo(treal)                    \

        xRollback  echo(sreal)                    \

]

do_test vtab4-2.6 {

  execsql {

    SELECT * FROM secho;

  }

} {1 2 3 4 5 6 7 8 9}

do_test vtab4-2.7 {

  execsql {

    SELECT * FROM techo;

  }

} {}

do_test vtab4-3.1 {

  set echo_module [list]

  set echo_module_sync_fail treal

  catchsql {

    INSERT INTO techo VALUES(1, 2, 3);

  }

} {1 {unknown error}}

do_test vtab4-3.2 {

  set echo_module

} {xBegin echo(treal) xSync echo(treal) xRollback echo(treal)}

do_test vtab4-3.3 {

  set echo_module [list]

  set echo_module_sync_fail sreal

  catchsql {

    BEGIN;

    INSERT INTO techo SELECT * FROM secho;

    DELETE FROM secho;

    COMMIT;

  }

  set echo_module

} [list xBestIndex {SELECT rowid, * FROM 'sreal'} \

        xBegin     echo(treal)                    \

        xFilter    {SELECT rowid, * FROM 'sreal'} \

        xBestIndex {SELECT rowid, * FROM 'sreal'} \

        xBegin     echo(sreal)                    \

        xFilter    {SELECT rowid, * FROM 'sreal'} \

        xSync      echo(treal)                    \

        xSync      echo(sreal)                    \

        xRollback  echo(treal)                    \

        xRollback  echo(sreal)                    \

]

finish_test