misuse.test revision 2
2N/A
2N/A#pragma ident "%Z%%M% %I% %E% SMI"
2N/A
2N/A# 2002 May 10
2N/A#
2N/A# The author disclaims copyright to this source code. In place of
2N/A# a legal notice, here is a blessing:
2N/A#
2N/A# May you do good and not evil.
2N/A# May you find forgiveness for yourself and forgive others.
2N/A# May you share freely, never taking more than you give.
2N/A#
2N/A#***********************************************************************
2N/A# This file implements regression tests for SQLite library.
2N/A#
2N/A# This file implements tests for the SQLITE_MISUSE detection logic.
2N/A# This test file leaks memory and file descriptors.
2N/A#
2N/A# $Id: misuse.test,v 1.4 2004/01/07 19:24:48 drh Exp $
2N/A
2N/Aset testdir [file dirname $argv0]
2N/Asource $testdir/tester.tcl
2N/A
2N/A# Make sure the test logic works
2N/A#
2N/Ado_test misuse-1.1 {
2N/A db close
2N/A catch {file delete -force test2.db}
2N/A set ::DB [sqlite db test2.db]
2N/A execsql {
2N/A CREATE TABLE t1(a,b);
2N/A INSERT INTO t1 VALUES(1,2);
2N/A }
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {0 {a b 1 2}}
2N/Ado_test misuse-1.2 {
2N/A sqlite_exec_printf $::DB {SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1} {}
2N/A} {1 {no such function: x_coalesce}}
2N/Ado_test misuse-1.3 {
2N/A sqlite_create_function $::DB
2N/A sqlite_exec_printf $::DB {SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1} {}
2N/A} {0 {xyz 1}}
2N/A
2N/A# Use the x_sqlite_exec() SQL function to simulate the effect of two
2N/A# threads trying to use the same database at the same time.
2N/A#
2N/A# It used to be prohibited to invoke sqlite_exec() from within a function,
2N/A# but that has changed. The following tests used to cause errors but now
2N/A# they do not.
2N/A#
2N/Ado_test misuse-1.4 {
2N/A sqlite_exec_printf $::DB {
2N/A SELECT x_sqlite_exec('SELECT * FROM t1') AS xyz;
2N/A } {}
2N/A} {0 {xyz {1 2}}}
2N/Ado_test misuse-1.5 {
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {0 {a b 1 2}}
2N/Ado_test misuse-1.6 {
2N/A catchsql {
2N/A SELECT * FROM t1
2N/A }
2N/A} {0 {1 2}}
2N/A
2N/A# Attempt to register a new SQL function while an sqlite_exec() is active.
2N/A#
2N/Ado_test misuse-2.1 {
2N/A db close
2N/A set ::DB [sqlite db test2.db]
2N/A execsql {
2N/A SELECT * FROM t1
2N/A }
2N/A} {1 2}
2N/Ado_test misuse-2.2 {
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {0 {a b 1 2}}
2N/Ado_test misuse-2.3 {
2N/A set v [catch {
2N/A db eval {SELECT * FROM t1} {} {
2N/A sqlite_create_function $::DB
2N/A }
2N/A } msg]
2N/A lappend v $msg
2N/A} {1 {library routine called out of sequence}}
2N/Ado_test misuse-2.4 {
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {21 {library routine called out of sequence}}
2N/Ado_test misuse-2.5 {
2N/A catchsql {
2N/A SELECT * FROM t1
2N/A }
2N/A} {1 {library routine called out of sequence}}
2N/A
2N/A# Attempt to register a new SQL aggregate while an sqlite_exec() is active.
2N/A#
2N/Ado_test misuse-3.1 {
2N/A db close
2N/A set ::DB [sqlite db test2.db]
2N/A execsql {
2N/A SELECT * FROM t1
2N/A }
2N/A} {1 2}
2N/Ado_test misuse-3.2 {
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {0 {a b 1 2}}
2N/Ado_test misuse-3.3 {
2N/A set v [catch {
2N/A db eval {SELECT * FROM t1} {} {
2N/A sqlite_create_aggregate $::DB
2N/A }
2N/A } msg]
2N/A lappend v $msg
2N/A} {1 {library routine called out of sequence}}
2N/Ado_test misuse-3.4 {
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {21 {library routine called out of sequence}}
2N/Ado_test misuse-3.5 {
2N/A catchsql {
2N/A SELECT * FROM t1
2N/A }
2N/A} {1 {library routine called out of sequence}}
2N/A
2N/A# Attempt to close the database from an sqlite_exec callback.
2N/A#
2N/Ado_test misuse-4.1 {
2N/A db close
2N/A set ::DB [sqlite db test2.db]
2N/A execsql {
2N/A SELECT * FROM t1
2N/A }
2N/A} {1 2}
2N/Ado_test misuse-4.2 {
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {0 {a b 1 2}}
2N/Ado_test misuse-4.3 {
2N/A set v [catch {
2N/A db eval {SELECT * FROM t1} {} {
2N/A sqlite_close $::DB
2N/A }
2N/A } msg]
2N/A lappend v $msg
2N/A} {1 {library routine called out of sequence}}
2N/Ado_test misuse-4.4 {
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {21 {library routine called out of sequence}}
2N/Ado_test misuse-4.5 {
2N/A catchsql {
2N/A SELECT * FROM t1
2N/A }
2N/A} {1 {library routine called out of sequence}}
2N/A
2N/A# Attempt to use a database after it has been closed.
2N/A#
2N/Ado_test misuse-5.1 {
2N/A db close
2N/A set ::DB [sqlite db test2.db]
2N/A execsql {
2N/A SELECT * FROM t1
2N/A }
2N/A} {1 2}
2N/Ado_test misuse-5.2 {
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {0 {a b 1 2}}
2N/Ado_test misuse-5.3 {
2N/A db close
2N/A sqlite_exec_printf $::DB {SELECT * FROM t1} {}
2N/A} {21 {library routine called out of sequence}}
2N/A
2N/Afinish_test