xref: /sqlite-3.40.0/test/vtab_err.test (revision 84c501ba) 
1# 2006 June 10
2#
3# The author disclaims copyright to this source code.  In place of
4# 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# $Id: vtab_err.test,v 1.8 2007/09/03 16:12:10 drh Exp $
13
14set testdir [file dirname $argv0]
15source $testdir/tester.tcl
16
17ifcapable !vtab {
18  finish_test
19  return
20}
21
22
23
24unset -nocomplain echo_module_begin_fail
25do_ioerr_test vtab_err-1 -tclprep {
26  register_echo_module [sqlite3_connection_pointer db]
27} -sqlbody {
28  BEGIN;
29  CREATE TABLE r(a PRIMARY KEY, b, c);
30  CREATE VIRTUAL TABLE e USING echo(r);
31  INSERT INTO e VALUES(1, 2, 3);
32  INSERT INTO e VALUES('a', 'b', 'c');
33  UPDATE e SET c = 10;
34  DELETE FROM e WHERE a = 'a';
35  COMMIT;
36  BEGIN;
37    CREATE TABLE r2(a, b, c);
38    INSERT INTO r2 SELECT * FROM e;
39    INSERT INTO e SELECT a||'x', b, c FROM r2;
40  COMMIT;
41}
42
43source $testdir/malloc_common.tcl
44
45
46do_malloc_test vtab_err-2 -tclprep {
47  register_echo_module [sqlite3_connection_pointer db]
48} -sqlbody {
49  BEGIN;
50  CREATE TABLE r(a PRIMARY KEY, b, c);
51  CREATE VIRTUAL TABLE e USING echo(r);
52  INSERT INTO e VALUES(1, 2, 3);
53  INSERT INTO e VALUES('a', 'b', 'c');
54  UPDATE e SET c = 10;
55  DELETE FROM e WHERE a = 'a';
56  COMMIT;
57  BEGIN;
58    CREATE TABLE r2(a, b, c);
59    INSERT INTO r2 SELECT * FROM e;
60    INSERT INTO e SELECT a||'x', b, c FROM r2;
61  COMMIT;
62}
63
64sqlite3_memdebug_fail -1
65
66finish_test
67