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

Working better with Win95.

Browse Source 
Continued work on the new db.c backend. (CVS 1714)

FossilOrigin-Name: df0ff304855bd18c7a3517c500e891b6d006be6a
This commit is contained in:
drh
2001-01-31 13:28:08 +00:00
parent d1881e6165
commit 17a6893463
10 changed files with 173 additions and 187 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
test/tester.tcl
View File

@ -23,7 +23,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.9 2001/01/22 00:31:53 drh Exp $
# $Id: tester.tcl,v 1.10 2001/01/31 13:28:09 drh Exp $
# Create a test database
#
@ -36,7 +36,9 @@ if {![info exists dbprefix]} {
}
switch $dbprefix {
gdbm: {
file delete -force testdb
if {[catch {file delete -force testdb}]} {
exec rm -rf testdb
}
file mkdir testdb
}
memory: {
@ -155,3 +157,11 @@ proc execsql2 {sql} {
}
return $result
}
# Delete a file or directory
#
proc forcedelete {filename} {
if {[catch {file delete -force $filename}]} {
exec rm -rf $filename
}
}