# 2004 June 30

#

# 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 verifying that a rollback in one statement

# caused by an ON CONFLICT ROLLBACK clause aborts any other pending

# statements.

#

# $Id: rollback.test,v 1.6 2007/09/12 17:01:45 danielk1977 Exp $

set testdir [file dirname $argv0]

source $testdir/tester.tcl

set DB [sqlite3_connection_pointer db]

do_test rollback-1.1 {

  execsql {

    CREATE TABLE t1(a);

    INSERT INTO t1 VALUES(1);

    INSERT INTO t1 VALUES(2);

    INSERT INTO t1 VALUES(3);

    INSERT INTO t1 VALUES(4);

    SELECT * FROM t1;

  }

} {1 2 3 4}

ifcapable conflict {

  do_test rollback-1.2 {

    execsql {

      CREATE TABLE t3(a unique on conflict rollback);

      INSERT INTO t3 SELECT a FROM t1;

      BEGIN;

      INSERT INTO t1 SELECT * FROM t1;

    }

  } {}

}

do_test rollback-1.3 {

  set STMT [sqlite3_prepare $DB "SELECT a FROM t1" -1 TAIL]

  sqlite3_step $STMT

} {SQLITE_ROW}

ifcapable conflict {

  # This causes a ROLLBACK, which deletes the table out from underneath the

  # SELECT statement.

  #

  do_test rollback-1.4 {

    catchsql {

      INSERT INTO t3 SELECT a FROM t1;

    }

  } {1 {column a is not unique}}

  # Try to continue with the SELECT statement

  #

  do_test rollback-1.5 {

    sqlite3_step $STMT

  } {SQLITE_ERROR}

  # Restart the SELECT statement

  #

  do_test rollback-1.6 { sqlite3_reset $STMT } {SQLITE_ABORT}

} else {

  do_test rollback-1.6 { sqlite3_reset $STMT } {SQLITE_OK}

}

do_test rollback-1.7 {

  sqlite3_step $STMT

} {SQLITE_ROW}

do_test rollback-1.8 {

  sqlite3_step $STMT

} {SQLITE_ROW}

do_test rollback-1.9 {

  sqlite3_finalize $STMT

} {SQLITE_OK}

finish_test