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

Added test code to check for file descriptor leaks. All regression tests pass

Browse Source 
now on both win2k and linux. (CVS 868)

FossilOrigin-Name: 75ba78280f7ab6b6acce5878859312f3223ee898
This commit is contained in:
drh
2003-02-16 22:21:32 +00:00
parent 99ee360003
commit 94e9203247
13 changed files with 102 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/tester.tcl
View File

@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.23 2002/06/25 13:16:04 drh Exp $
# $Id: tester.tcl,v 1.24 2003/02/16 22:21:33 drh Exp $
# Make sure tclsqlite was compiled correctly. Abort now with an
# error message if not.
@ -158,7 +158,7 @@ proc finish_test {} {
finalize_testing
}
proc finalize_testing {} {
global nTest nErr nProb
global nTest nErr nProb sqlite_open_file_count
if {$nErr==0} memleak_check
catch {db close}
puts "$nErr errors out of $nTest tests"
@ -167,6 +167,10 @@ proc finalize_testing {} {
puts "$nProb probabilistic tests also failed, but this does"
puts "not necessarily indicate a malfunction."
}
if {$sqlite_open_file_count} {
puts "$sqlite_open_file_count files were left open"
incr nErr
}
exit [expr {$nErr>0}]
}