database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2026-01-06 08:01:16 +03:00
Code Activity

Add some code to permutations.test to make sure no test file modifies the shared-cache setting. (CVS 5645)

Browse Source 
FossilOrigin-Name: 8565b7c66525dc7808a2a266deb1a0d995c99917
This commit is contained in:
danielk1977
2008-08-30 13:25:10 +00:00
parent 3dbb0572d7
commit c1def3e0af
4 changed files with 36 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
test/permutations.test
View File

@@ -9,7 +9,7 @@
#
#***********************************************************************
#
# $Id: permutations.test,v 1.25 2008/08/29 12:00:20 danielk1977 Exp $
# $Id: permutations.test,v 1.26 2008/08/30 13:25:11 danielk1977 Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@@ -133,13 +133,17 @@ proc run_tests {name args} {
uplevel $options(-initialize)
set ::permutations_presql $options(-presql)
foreach file $options(-include) {
foreach file [lsort $options(-include)] {
if {[lsearch $options(-exclude) $file] < 0 &&
( $::perm::testfile eq "" ||
$::perm::testfile eq $file ||
"$::perm::testfile.test" eq $file )
} {
set ::perm::shared_cache_setting [shared_cache_setting]
uplevel source $::testdir/$file
if {$::perm::shared_cache_setting ne [shared_cache_setting]} {
error "File $::testdir/$file changed the shared cache setting from $::perm::shared_cache_setting to [shared_cache_setting]"
}
} else {
# puts "skipping file $file"
}
@@ -148,6 +152,14 @@ proc run_tests {name args} {
uplevel $options(-shutdown)
}
proc shared_cache_setting {} {
set ret 0
catch {
set ret [sqlite3_enable_shared_cache]
}
return $ret
}
#############################################################################
# Start of tests