database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Improved test coverage of tclsqlite.c (CVS 1761)

Browse Source 
FossilOrigin-Name: 008e57dcd5e16886ed732fe1e9797a3c00e8c579
This commit is contained in:
drh
2004-06-29 12:39:08 +00:00
parent b97759ed11
commit 0f14e2ebed
7 changed files with 199 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
test/hook.test
View File

@ -15,7 +15,7 @@
#
# sqlite_commit_hook
#
# $Id: hook.test,v 1.4 2004/05/31 08:26:49 danielk1977 Exp $
# $Id: hook.test,v 1.5 2004/06/29 12:39:08 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -79,5 +79,15 @@ do_test hook-3.8 {
execsql {SELECT * FROM t2}
} {1 2 2 3 3 4 4 5 5 6}
# Test turnning off the commit hook
#
do_test hook-3.9 {
db commit_hook {}
set ::commit_cnt {}
execsql {
INSERT INTO t2 VALUES(7,8);
}
set ::commit_cnt
} {}
finish_test