database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Minor fixes related to the tests in misuse.test (CVS 1738)

Browse Source 
FossilOrigin-Name: 0af3ff39422e02afdfdaf2005ab5eb01b496dc72
This commit is contained in:
danielk1977
2004-06-26 09:50:11 +00:00
parent 40b38dcdf8
commit e35ee196dc
7 changed files with 95 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
test/misuse.test
View File

@ -13,11 +13,28 @@
# 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 $
# $Id: misuse.test,v 1.6 2004/06/26 09:50:12 danielk1977 Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
proc catchsql2 {sql} {
set r [
catch {
set res [list]
db eval $sql data {
if { $res==[list] } {
foreach f $data(*) {lappend res $f}
}
foreach f $data(*) {lappend res $data($f)}
}
set res
} msg
]
lappend r $msg
}
# Make sure the test logic works
#
do_test misuse-1.1 {
@ -28,14 +45,20 @@ do_test misuse-1.1 {
CREATE TABLE t1(a,b);
INSERT INTO t1 VALUES(1,2);
}
sqlite_exec_printf $::DB {SELECT * FROM t1} {}
catchsql2 {
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} {}
catchsql2 {
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} {}
sqlite3_create_function $::DB
catchsql2 {
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
@ -46,12 +69,12 @@ do_test misuse-1.3 {
# they do not.
#
do_test misuse-1.4 {
sqlite_exec_printf $::DB {
catchsql2 {
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} {}
catchsql2 {SELECT * FROM t1}
} {0 {a b 1 2}}
do_test misuse-1.6 {
catchsql {
@ -69,19 +92,19 @@ do_test misuse-2.1 {
}
} {1 2}
do_test misuse-2.2 {
sqlite_exec_printf $::DB {SELECT * FROM t1} {}
catchsql2 {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
sqlite3_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}}
catchsql2 {SELECT * FROM t1}
} {1 {library routine called out of sequence}}
do_test misuse-2.5 {
catchsql {
SELECT * FROM t1
@ -98,19 +121,19 @@ do_test misuse-3.1 {
}
} {1 2}
do_test misuse-3.2 {
sqlite_exec_printf $::DB {SELECT * FROM t1} {}
catchsql2 {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
sqlite3_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}}
catchsql2 {SELECT * FROM t1}
} {1 {library routine called out of sequence}}
do_test misuse-3.5 {
catchsql {
SELECT * FROM t1
@ -119,6 +142,8 @@ do_test misuse-3.5 {
# Attempt to close the database from an sqlite_exec callback.
#
# Update for v3: The db cannot be closed because there are active
# VMs. The sqlite3_close call would return SQLITE_BUSY.
do_test misuse-4.1 {
db close
set ::DB [sqlite3 db test2.db]
@ -127,19 +152,20 @@ do_test misuse-4.1 {
}
} {1 2}
do_test misuse-4.2 {
sqlite_exec_printf $::DB {SELECT * FROM t1} {}
catchsql2 {SELECT * FROM t1}
} {0 {a b 1 2}}
do_test misuse-4.3 {
set v [catch {
db eval {SELECT * FROM t1} {} {
sqlite_close $::DB
set r [sqlite3_close $::DB]
}
} msg]
lappend v $msg
} {1 {library routine called out of sequence}}
lappend v $msg $r
} {0 {} SQLITE_BUSY}
do_test misuse-4.4 {
sqlite_exec_printf $::DB {SELECT * FROM t1} {}
} {21 {library routine called out of sequence}}
sqlite3_close $::DB
catchsql2 {SELECT * FROM t1}
} {1 {library routine called out of sequence}}
do_test misuse-4.5 {
catchsql {
SELECT * FROM t1
@ -156,11 +182,14 @@ do_test misuse-5.1 {
}
} {1 2}
do_test misuse-5.2 {
sqlite_exec_printf $::DB {SELECT * FROM t1} {}
catchsql2 {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}}
set r [catch {
sqlite3_prepare $::DB {SELECT * FROM t1} -1 TAIL
} msg]
lappend r $msg
} {1 {(21) library routine called out of sequence}}
finish_test