database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-08 14:02:16 +03:00
Code Activity

Fix the TCL interface to test_quota.c so that it works with empty callback

Browse Source 
scripts.

FossilOrigin-Name: 19e95f63359589766da673aac99d19a355a92678
This commit is contained in:
drh
2010-09-01 15:11:38 +00:00
parent 75c1917423
commit 3d3e60e481
4 changed files with 42 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
manifest
View File

@@ -1,8 +1,8 @@
-----BEGIN PGP SIGNED MESSAGE----- -----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1 Hash: SHA1
C Variable\sname\sand\scomment\schanges\sto\stest_quota.c\sfor\sclearer\spresentation. C Fix\sthe\sTCL\sinterface\sto\stest_quota.c\sso\sthat\sit\sworks\swith\sempty\scallback\nscripts.
D 2010-09-01T14:58:11 D 2010-09-01T15:11:39
F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f
F Makefile.in c599a15d268b1db2aeadea19df2adc3bf2eb6bee F Makefile.in c599a15d268b1db2aeadea19df2adc3bf2eb6bee
F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23 F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23
@@ -211,7 +211,7 @@ F src/test_mutex.c ce06b59aca168cd8c520b77159a24352a7469bd3
F src/test_onefile.c 40cf9e212a377a6511469384a64b01e6e34b2eec F src/test_onefile.c 40cf9e212a377a6511469384a64b01e6e34b2eec
F src/test_osinst.c f408c6a181f2fb04c56273afd5c3e1e82f60392c F src/test_osinst.c f408c6a181f2fb04c56273afd5c3e1e82f60392c
F src/test_pcache.c 7bf828972ac0d2403f5cfa4cd14da41f8ebe73d8 F src/test_pcache.c 7bf828972ac0d2403f5cfa4cd14da41f8ebe73d8
F src/test_quota.c 303e68971829ed6c7058f982e7361b967344abda F src/test_quota.c 875292fc8a731d6d35eeb637c70b834b75f9b479
F src/test_rtree.c e957a603a98871dcf005c1e96ae791cfe74eb7f6 F src/test_rtree.c e957a603a98871dcf005c1e96ae791cfe74eb7f6
F src/test_schema.c 8c06ef9ddb240c7a0fcd31bc221a6a2aade58bf0 F src/test_schema.c 8c06ef9ddb240c7a0fcd31bc221a6a2aade58bf0
F src/test_server.c bbba05c144b5fc4b52ff650a4328027b3fa5fcc6 F src/test_server.c bbba05c144b5fc4b52ff650a4328027b3fa5fcc6
@@ -565,7 +565,7 @@ F test/printf.test 05970cde31b1a9f54bd75af60597be75a5c54fea
F test/progress.test 5b075c3c790c7b2a61419bc199db87aaf48b8301 F test/progress.test 5b075c3c790c7b2a61419bc199db87aaf48b8301
F test/ptrchng.test ef1aa72d6cf35a2bbd0869a649b744e9d84977fc F test/ptrchng.test ef1aa72d6cf35a2bbd0869a649b744e9d84977fc
F test/quick.test 1681febc928d686362d50057c642f77a02c62e57 F test/quick.test 1681febc928d686362d50057c642f77a02c62e57
F test/quota.test a2faf03b630bf9d6dc03d5f4cf18ddb7ef1b2372 F test/quota.test d406716c5e91df17ef7821facae6a9aefaa4dd91
F test/quote.test 215897dbe8de1a6f701265836d6601cc6ed103e6 F test/quote.test 215897dbe8de1a6f701265836d6601cc6ed103e6
F test/randexpr1.tcl 40dec52119ed3a2b8b2a773bce24b63a3a746459 F test/randexpr1.tcl 40dec52119ed3a2b8b2a773bce24b63a3a746459
F test/randexpr1.test 1084050991e9ba22c1c10edd8d84673b501cc25a F test/randexpr1.test 1084050991e9ba22c1c10edd8d84673b501cc25a
@@ -856,14 +856,14 @@ F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
P c0d0fc3a1cca7ee28db8add745c71baf0545776c P 38ed1992c800cb1d1ca67977d704df73d97c78d7
R 5150c60917fb33e6d6c75a2627b04e72 R b0e1f5354d97250a31257e5a21d367a2
U drh U drh
Z 293ea454d360072e187630189bf4cbd5 Z 77e1612242203a9e9c25a20eeda4feae
-----BEGIN PGP SIGNATURE----- -----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux) Version: GnuPG v1.4.6 (GNU/Linux)
iD8DBQFMfmoGoxKgR168RlERAo+aAJ9FtwNxBNFRgcjszaS9G+1zDHJu5ACeLSkW iD8DBQFMfm0uoxKgR168RlERAoI8AKCOKs12QYn4Q1N8Y7BoPjxhD0VzxQCfVXt0
b7HAKmHRdtJZIZFAnlXrRmk= LDxzSW3L5N21o+i8h29WkWg=
=zaPS =8m6y
-----END PGP SIGNATURE----- -----END PGP SIGNATURE-----

2
manifest.uuid
View File

@@ -1 +1 @@
38ed1992c800cb1d1ca67977d704df73d97c78d7 19e95f63359589766da673aac99d19a355a92678

1
src/test_quota.c
View File

@@ -726,6 +726,7 @@ static void tclQuotaCallback(
int rc; /* Tcl error code */ int rc; /* Tcl error code */
p = (TclQuotaCallback *)pArg; p = (TclQuotaCallback *)pArg;
if( p==0 ) return;
pVarname = Tcl_NewStringObj("::piLimit_", -1); pVarname = Tcl_NewStringObj("::piLimit_", -1);
Tcl_IncrRefCount(pVarname); Tcl_IncrRefCount(pVarname);

31
test/quota.test
View File

@@ -159,6 +159,7 @@ proc quota_list {} {
} }
return [lsort $allq] return [lsort $allq]
} }
do_test quota-4.1 { do_test quota-4.1 {
sqlite3_quota_set *test.db 0 {} sqlite3_quota_set *test.db 0 {}
quota_list quota_list
@@ -172,13 +173,41 @@ do_test quota-4.3 {
quota_list quota_list
} {*test.db} } {*test.db}
do_test quota-4.4 { do_test quota-4.4 {
sqlite3_quota_set *test2.db 12345 {} sqlite3_quota_set *test2.db 100000 {}
quota_list quota_list
} {*test.db *test2.db} } {*test.db *test2.db}
do_test quota-4.5 { do_test quota-4.5 {
sqlite3_quota_set *test.db 0 {} sqlite3_quota_set *test.db 0 {}
quota_list quota_list
} {*test2.db} } {*test2.db}
do_test quota-4.6 {
file delete -force test2.db test2.db-journal test2.db-wal
sqlite3 db test2.db
db eval {CREATE TABLE t2(x); INSERT INTO t2 VALUES('tab-t2');}
quota_list
} {*test2.db}
do_test quota-4.7 {
catchsql {INSERT INTO t2 VALUES(zeroblob(200000))}
} {1 {database or disk is full}}
do_test quota-4.8 {
sqlite3 db2 test2.db
db2 eval {SELECT * FROM t2}
} {tab-t2}
do_test quota-4.9 {
sqlite3_quota_set *test2.db 0 {}
catchsql {INSERT INTO t2 VALUES(zeroblob(200000))}
} {0 {}}
do_test quota-4.10 {
quota_list
} {*test2.db}
do_test quota-4.11 {
db2 close
quota_list
} {*test2.db}
do_test quota-4.12 {
db close
quota_list
} {}
sqlite3_quota_shutdown sqlite3_quota_shutdown