# 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, a, b, c FROM 'treal'} \
xBegin echo(treal) \
xFilter {SELECT rowid, a, b, c 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, NULL, NULL, NULL FROM 'treal'} \
xBegin echo(treal) \
xFilter {SELECT rowid, NULL, NULL, NULL 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, a, b, c FROM 'treal'} \
xBegin echo(sreal) \
xFilter {SELECT rowid, a, b, c FROM 'treal'} \
xBestIndex {SELECT rowid, NULL, NULL, NULL FROM 'treal'} \
xBegin echo(treal) \
xFilter {SELECT rowid, NULL, NULL, NULL 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, a, b, c FROM 'sreal'} \
xBegin echo(treal) \
xFilter {SELECT rowid, a, b, c FROM 'sreal'} \
xBestIndex {SELECT rowid, NULL, NULL, NULL FROM 'sreal'} \
xBegin echo(sreal) \
xFilter {SELECT rowid, NULL, NULL, NULL 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, a, b, c FROM 'sreal'} \
xBegin echo(treal) \
xFilter {SELECT rowid, a, b, c FROM 'sreal'} \
xBestIndex {SELECT rowid, NULL, NULL, NULL FROM 'sreal'} \
xBegin echo(sreal) \
xFilter {SELECT rowid, NULL, NULL, NULL FROM 'sreal'} \
xSync echo(treal) \
xSync echo(sreal) \
xRollback echo(treal) \
xRollback echo(sreal) \
]
finish_test