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 a couple of coverage tests. (CVS 6149)

Browse Source 
FossilOrigin-Name: 6a64109d1f9b63ac8b29ea2c77da02506387b4a1
This commit is contained in:
danielk1977
2009-01-09 10:49:14 +00:00
parent 1c767f0df3
commit 03ba3fa02c
5 changed files with 255 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
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.135 2008/11/21 00:10:35 aswift Exp $
# $Id: tester.tcl,v 1.136 2009/01/09 10:49:14 danielk1977 Exp $
#
# What for user input before continuing. This gives an opportunity
@ -137,14 +137,18 @@ if {![info exists nTest]} {
sqlite3_instvfs marker binarylog "$argv0 $argv"
}
}
catch {db close}
file delete -force test.db
file delete -force test.db-journal
sqlite3 db ./test.db
set ::DB [sqlite3_connection_pointer db]
if {[info exists ::SETUP_SQL]} {
db eval $::SETUP_SQL
proc reset_db {} {
catch {db close}
file delete -force test.db
file delete -force test.db-journal
sqlite3 db ./test.db
set ::DB [sqlite3_connection_pointer db]
if {[info exists ::SETUP_SQL]} {
db eval $::SETUP_SQL
}
}
reset_db
# Abort early if this script has been run before.
#