# 2002 May 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. # # This file implements tests for the SQLITE_MISUSE detection logic. # This test file leaks memory and file descriptors. # # $Id: misuse.test,v 1.5 2004/06/19 00:16:31 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Make sure the test logic works # do_test misuse-1.1 { db close catch {file delete -force test2.db} set ::DB [sqlite3 db test2.db] execsql { CREATE TABLE t1(a,b); INSERT INTO t1 VALUES(1,2); } sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} do_test misuse-1.2 { sqlite_exec_printf $::DB {SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1} {} } {1 {no such function: x_coalesce}} do_test misuse-1.3 { sqlite_create_function $::DB sqlite_exec_printf $::DB {SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1} {} } {0 {xyz 1}} # Use the x_sqlite_exec() SQL function to simulate the effect of two # threads trying to use the same database at the same time. # # It used to be prohibited to invoke sqlite_exec() from within a function, # but that has changed. The following tests used to cause errors but now # they do not. # do_test misuse-1.4 { sqlite_exec_printf $::DB { SELECT x_sqlite_exec('SELECT * FROM t1') AS xyz; } {} } {0 {xyz {1 2}}} do_test misuse-1.5 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} do_test misuse-1.6 { catchsql { SELECT * FROM t1 } } {0 {1 2}} # Attempt to register a new SQL function while an sqlite_exec() is active. # do_test misuse-2.1 { db close set ::DB [sqlite3 db test2.db] execsql { SELECT * FROM t1 } } {1 2} do_test misuse-2.2 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} do_test misuse-2.3 { set v [catch { db eval {SELECT * FROM t1} {} { sqlite_create_function $::DB } } msg] lappend v $msg } {1 {library routine called out of sequence}} do_test misuse-2.4 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {21 {library routine called out of sequence}} do_test misuse-2.5 { catchsql { SELECT * FROM t1 } } {1 {library routine called out of sequence}} # Attempt to register a new SQL aggregate while an sqlite_exec() is active. # do_test misuse-3.1 { db close set ::DB [sqlite3 db test2.db] execsql { SELECT * FROM t1 } } {1 2} do_test misuse-3.2 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} do_test misuse-3.3 { set v [catch { db eval {SELECT * FROM t1} {} { sqlite_create_aggregate $::DB } } msg] lappend v $msg } {1 {library routine called out of sequence}} do_test misuse-3.4 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {21 {library routine called out of sequence}} do_test misuse-3.5 { catchsql { SELECT * FROM t1 } } {1 {library routine called out of sequence}} # Attempt to close the database from an sqlite_exec callback. # do_test misuse-4.1 { db close set ::DB [sqlite3 db test2.db] execsql { SELECT * FROM t1 } } {1 2} do_test misuse-4.2 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} do_test misuse-4.3 { set v [catch { db eval {SELECT * FROM t1} {} { sqlite_close $::DB } } msg] lappend v $msg } {1 {library routine called out of sequence}} do_test misuse-4.4 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {21 {library routine called out of sequence}} do_test misuse-4.5 { catchsql { SELECT * FROM t1 } } {1 {library routine called out of sequence}} # Attempt to use a database after it has been closed. # do_test misuse-5.1 { db close set ::DB [sqlite3 db test2.db] execsql { SELECT * FROM t1 } } {1 2} do_test misuse-5.2 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} do_test misuse-5.3 { db close sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {21 {library routine called out of sequence}} finish_test