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 14 set testdir [file dirname $argv0] 15 source $testdir/tester.tcl 16 17 ifcapable !vtab { 18 finish_test 19 return 20 } 21 22 23 24 unset -nocomplain echo_module_begin_fail 25 do_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 43 ifcapable !memdebug { 44 puts "Skipping vtab_err-2 tests: not compiled with -DSQLITE_MEMDEBUG..." 45 finish_test 46 return 47 } 48 source $testdir/malloc_common.tcl 49 50 51 do_malloc_test vtab_err-2 -tclprep { 52 register_echo_module [sqlite3_connection_pointer db] 53 } -sqlbody { 54 BEGIN; 55 CREATE TABLE r(a PRIMARY KEY, b, c); 56 CREATE VIRTUAL TABLE e USING echo(r); 57 INSERT INTO e VALUES(1, 2, 3); 58 INSERT INTO e VALUES('a', 'b', 'c'); 59 UPDATE e SET c = 10; 60 DELETE FROM e WHERE a = 'a'; 61 COMMIT; 62 BEGIN; 63 CREATE TABLE r2(a, b, c); 64 INSERT INTO r2 SELECT * FROM e; 65 INSERT INTO e SELECT a||'x', b, c FROM r2; 66 COMMIT; 67 } 68 69 sqlite3_memdebug_fail -1 70 71 finish_test 72
