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

Add the "interrupt" method to the TCL interface. Ticket #1889. (CVS 3332)

Browse Source 
FossilOrigin-Name: b0d19e575b14778e76ae5d6546fba0d2e9f25e33
This commit is contained in:
drh
2006-07-17 00:02:44 +00:00
parent 050be3294a
commit f11bded545
5 changed files with 42 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
test/interrupt.test
View File

@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this script is the sqlite_interrupt() API.
#
# $Id: interrupt.test,v 1.12 2006/01/03 00:33:50 drh Exp $
# $Id: interrupt.test,v 1.13 2006/07/17 00:02:46 drh Exp $
set testdir [file dirname $argv0]
@ -34,7 +34,7 @@ proc cksum {{db db}} {
}
# This routine attempts to execute the sql in $sql. It triggers an
# interrupt a progressively later and later points during the processing
# interrupt at progressively later and later points during the processing
# and checks to make sure SQLITE_INTERRUPT is returned. Eventually,
# the routine completes successfully.
#
@ -186,5 +186,12 @@ do_test interrupt-5.1 {
CREATE INDEX fake ON fake1(a COLLATE fake_collation, b, c DESC);
}
} {1 interrupt}
do_test interrupt-5.2 {
proc fake_interrupt {args} {db interrupt; return SQLITE_OK}
db collation_needed fake_interrupt
catchsql {
CREATE INDEX fake ON fake1(a COLLATE fake_collation, b, c DESC);
}
} {1 interrupt}
finish_test