Changes to the way tcl test scripts work. No changes to production code.
FossilOrigin-Name: 2c5e48a4855e2ec4572697c8fcfe4433e302ef33
This commit is contained in:
dan
+26
-78
@@ -10,92 +10,40 @@
|
||||
#***********************************************************************
|
||||
# This file runs all tests.
|
||||
#
|
||||
# $Id: all.test,v 1.62 2009/01/06 18:43:51 drh Exp $
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
db close
|
||||
|
||||
if {[file exists ./sqlite_test_count]} {
|
||||
set COUNT [exec cat ./sqlite_test_count]
|
||||
} else {
|
||||
set COUNT 1
|
||||
}
|
||||
|
||||
if {[llength $argv]>0} {
|
||||
foreach {name value} $argv {
|
||||
switch -- $name {
|
||||
-count {
|
||||
set COUNT $value
|
||||
}
|
||||
-quick {
|
||||
set G(isquick) $value
|
||||
}
|
||||
-soak {
|
||||
set G(issoak) $value
|
||||
}
|
||||
default {
|
||||
puts stderr "Unknown option: $name"
|
||||
exit
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
set argv {}
|
||||
|
||||
set EXCLUDE {}
|
||||
lappend EXCLUDE all.test ;# This file
|
||||
lappend EXCLUDE async.test
|
||||
lappend EXCLUDE crash.test ;# Run separately later.
|
||||
lappend EXCLUDE crash2.test ;# Run separately later.
|
||||
lappend EXCLUDE quick.test ;# Alternate test driver script
|
||||
lappend EXCLUDE veryquick.test ;# Alternate test driver script
|
||||
lappend EXCLUDE misuse.test ;# Run separately later.
|
||||
lappend EXCLUDE memleak.test ;# Alternate test driver script
|
||||
lappend EXCLUDE permutations.test ;# Run separately later.
|
||||
lappend EXCLUDE soak.test ;# Takes a very long time (default 1 hr)
|
||||
lappend EXCLUDE fts3.test ;# Wrapper for muliple fts3*.tests
|
||||
lappend EXCLUDE mallocAll.test ;# Wrapper for running all malloc tests
|
||||
|
||||
# Files to include in the test. If this list is empty then everything
|
||||
# that is not in the EXCLUDE list is run.
|
||||
#
|
||||
set INCLUDE {
|
||||
}
|
||||
|
||||
for {set Counter 0} {$Counter<$COUNT} {incr Counter} {
|
||||
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
|
||||
set tail [file tail $testfile]
|
||||
if {[lsearch -exact $EXCLUDE $tail]>=0} continue
|
||||
if {[llength $INCLUDE]>0 && [lsearch -exact $INCLUDE $tail]<0} continue
|
||||
reset_prng_state
|
||||
slave_test_file $testfile
|
||||
}
|
||||
|
||||
if {[set_test_counter errors]} break
|
||||
}
|
||||
set argv all
|
||||
source $testdir/permutations.test
|
||||
set argv ""
|
||||
|
||||
# Run the crashtest only on unix and only once. If the library does not
|
||||
# always create auto-vacuum databases, also run autovacuum_crash.test.
|
||||
#
|
||||
run_test_suite full
|
||||
|
||||
run_test_suite memsubsys1
|
||||
run_test_suite memsubsys2
|
||||
run_test_suite singlethread
|
||||
run_test_suite multithread
|
||||
run_test_suite onefile
|
||||
run_test_suite utf16
|
||||
run_test_suite exclusive
|
||||
run_test_suite persistent_journal
|
||||
run_test_suite persistent_journal_error
|
||||
run_test_suite no_journal
|
||||
run_test_suite no_journal_error
|
||||
run_test_suite autovacuum_ioerr
|
||||
run_test_suite no_mutex_try
|
||||
run_test_suite fullmutex
|
||||
run_test_suite journaltest
|
||||
run_test_suite inmemory_journal
|
||||
run_test_suite pcache0
|
||||
run_test_suite pcache10
|
||||
run_test_suite pcache50
|
||||
run_test_suite pcache90
|
||||
run_test_suite pcache100
|
||||
|
||||
if {$::tcl_platform(platform)=="unix"} {
|
||||
slave_test_file [file join $testdir crash.test]
|
||||
slave_test_file [file join $testdir crash2.test]
|
||||
|
||||
ifcapable !default_autovacuum {
|
||||
set argv autovacuum_crash
|
||||
source $testdir/permutations.test
|
||||
set argv ""
|
||||
run_test_suite autovacuum_crash
|
||||
}
|
||||
}
|
||||
|
||||
# Run the misuse test after memory leak detection. It may leak memory.
|
||||
# Currently, misuse.test also leaks a handful of file descriptors. This is
|
||||
# not considered a problem.
|
||||
#
|
||||
slave_test_file [file join $testdir misuse.test]
|
||||
finish_test
|
||||
|
||||
|
||||
|
||||
+269
-215
@@ -15,167 +15,168 @@ set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
db close
|
||||
|
||||
# Argument processing.
|
||||
#
|
||||
#puts "PERM-DEBUG: argv=$argv"
|
||||
namespace eval ::perm {
|
||||
variable testmode [lindex $::argv 0]
|
||||
variable testfile [lindex $::argv 1]
|
||||
}
|
||||
set argv [lrange $argv 2 end]
|
||||
#puts "PERM-DEBUG: testmode=$::perm::testmode tstfile=$::perm::testfile"
|
||||
|
||||
if {$::perm::testmode eq "veryquick"} {
|
||||
set ::perm::testmode [list persistent_journal no_journal]
|
||||
set G(isquick) 1
|
||||
}
|
||||
if {$::perm::testmode eq "quick"} {
|
||||
set ::perm::testmode [list persistent_journal no_journal autovacuum_ioerr]
|
||||
set G(isquick) 1
|
||||
}
|
||||
if {$::perm::testmode eq "all" || $::perm::testmode eq ""} {
|
||||
set ::perm::testmode {
|
||||
memsubsys1 memsubsys2 singlethread multithread onefile utf16 exclusive
|
||||
persistent_journal persistent_journal_error no_journal no_journal_error
|
||||
autovacuum_ioerr no_mutex_try fullmutex journaltest inmemory_journal
|
||||
pcache0 pcache10 pcache50 pcache90 pcache100
|
||||
}
|
||||
}
|
||||
if {$::perm::testmode eq "targets"} {
|
||||
puts ""
|
||||
puts -nonewline "veryquick "
|
||||
puts "Same as persistent_journal and no_journal"
|
||||
puts -nonewline "quick "
|
||||
puts "Same as persistent_journal, no_journal and autovacuum_ioerr"
|
||||
puts -nonewline "all "
|
||||
puts "Everything except autovacuum_crash"
|
||||
}
|
||||
#puts "PERM-DEBUG: testmode=$::perm::testmode"
|
||||
|
||||
set EXCLUDE {
|
||||
all.test in2.test onefile.test
|
||||
async2.test incrvacuum_ioerr.test permutations.test
|
||||
async.test jrnlmode2.test quick.test
|
||||
autovacuum_crash.test jrnlmode3.test shared_err.test
|
||||
autovacuum_ioerr.test jrnlmode4.test soak.test
|
||||
btree8.test loadext.test speed1p.test
|
||||
corrupt.test malloc2.test speed1.test
|
||||
crash2.test malloc3.test speed2.test
|
||||
crash3.test malloc4.test speed3.test
|
||||
crash4.test mallocAll.test speed4p.test
|
||||
crash6.test malloc.test speed4.test
|
||||
crash7.test memleak.test sqllimits1.test
|
||||
crash.test memsubsys1.test thread001.test
|
||||
exclusive3.test memsubsys2.test thread002.test
|
||||
fts3.test misc7.test utf16.test
|
||||
fuzz_malloc.test misuse.test veryquick.test
|
||||
fuzz.test mutex2.test vtab_err.test
|
||||
lookaside.test fuzz3.test savepoint4.test
|
||||
}
|
||||
set ALLTESTS [list]
|
||||
foreach filename [glob $testdir/*.test] {
|
||||
set filename [file tail $filename]
|
||||
if {[lsearch $EXCLUDE $filename] < 0} { lappend ALLTESTS $filename }
|
||||
}
|
||||
set ALLTESTS [lsort $ALLTESTS]
|
||||
set WALTESTS [list]
|
||||
foreach filename $ALLTESTS {
|
||||
if {[regexp {^wal} $filename]} {lappend WALTESTS $filename}
|
||||
}
|
||||
|
||||
# run_tests NAME OPTIONS
|
||||
#-------------------------------------------------------------------------
|
||||
# test_suite NAME OPTIONS
|
||||
#
|
||||
# where available options are:
|
||||
#
|
||||
# -description TITLE (default "")
|
||||
# -initialize SCRIPT (default "")
|
||||
# -shutdown SCRIPT (default "")
|
||||
# -include LIST-OF-FILES (default $::ALLTESTS)
|
||||
# -exclude LIST-OF-FILES (default "")
|
||||
# -presql SQL (default "")
|
||||
# -options LIST (default "")
|
||||
# -files LIST-OF-FILES (default $::ALLTESTS)
|
||||
#
|
||||
proc run_tests {name args} {
|
||||
#
|
||||
proc test_suite {name args} {
|
||||
|
||||
set default(-shutdown) ""
|
||||
set default(-initialize) ""
|
||||
set default(-exclude) ""
|
||||
set default(-include) $::ALLTESTS
|
||||
set default(-presql) ""
|
||||
set default(-shutdown) ""
|
||||
set default(-initialize) ""
|
||||
set default(-presql) ""
|
||||
set default(-description) "no description supplied (fixme)"
|
||||
set default(-options) ""
|
||||
set default(-files) ""
|
||||
|
||||
array set options [array get default]
|
||||
array set options $args
|
||||
foreach k [array names options] {
|
||||
if {[info exists default($k)]==0} {
|
||||
error "Unknown option: $k"
|
||||
}
|
||||
if {[llength $args]%2} {
|
||||
error "uneven number of options/switches passed to test_suite"
|
||||
}
|
||||
#puts "PERM-DEBUG: name=$name testfile=$::perm::testfile"
|
||||
#puts "PERM-DEBUG: [array get options]"
|
||||
|
||||
if {$::perm::testmode eq "targets"} {
|
||||
puts [format "% -20s %s" $name [string trim $options(-description)]]
|
||||
return
|
||||
}
|
||||
if {$::perm::testmode ne "" && [lsearch $::perm::testmode $name]<0} {
|
||||
puts "skipping permutation test $name..."
|
||||
return
|
||||
foreach {k v} $args {
|
||||
set o [array names options ${k}*]
|
||||
if {[llength $o]>1} { error "ambiguous option: $k" }
|
||||
if {[llength $o]==0} { error "unknown option: $k" }
|
||||
set options([lindex $o 0]) $v
|
||||
}
|
||||
|
||||
set ::testspec($name) [array get options]
|
||||
lappend ::testsuitelist $name
|
||||
}
|
||||
|
||||
set ::G(perm:name) $name
|
||||
set ::G(perm:presql) $options(-presql)
|
||||
set ::G(perm:sqlite3_args) $options(-options)
|
||||
|
||||
uplevel $options(-initialize)
|
||||
|
||||
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]
|
||||
|
||||
slave_test_file $::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]"
|
||||
#-------------------------------------------------------------------------
|
||||
# test_set ARGS...
|
||||
#
|
||||
proc test_set {args} {
|
||||
set isExclude 0
|
||||
foreach a $args {
|
||||
if {[string match -* $a]} {
|
||||
switch -- $a {
|
||||
-include { set isExclude 0 }
|
||||
-exclude { set isExclude 1 }
|
||||
default {
|
||||
error "Unknown switch: $a"
|
||||
}
|
||||
}
|
||||
} elseif {$isExclude == 0} {
|
||||
foreach f $a { set t($f) 1 }
|
||||
} else {
|
||||
# puts "skipping file $file"
|
||||
foreach f $a { array unset t $f }
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
uplevel $options(-shutdown)
|
||||
|
||||
unset ::G(perm:name)
|
||||
unset ::G(perm:presql)
|
||||
unset ::G(perm:sqlite3_args)
|
||||
return [array names t]
|
||||
}
|
||||
|
||||
proc shared_cache_setting {} {
|
||||
set ret 0
|
||||
catch {
|
||||
set ret [sqlite3_enable_shared_cache]
|
||||
}
|
||||
return $ret
|
||||
#-------------------------------------------------------------------------
|
||||
# Set up the following global list variables containing the names of
|
||||
# various test scripts:
|
||||
#
|
||||
# $alltests
|
||||
# $slowtests
|
||||
#
|
||||
|
||||
set alltests [list]
|
||||
foreach f [glob $testdir/*.test] { lappend alltests [file tail $f] }
|
||||
if {$::tcl_platform(platform)!="unix"} {
|
||||
set alltests [test_set $alltests -exclude crash.test crash2.test]
|
||||
}
|
||||
set alltests [test_set $alltests -exclude {
|
||||
all.test async.test quick.test veryquick.test
|
||||
memleak.test permutations.test soak.test fts3.test
|
||||
mallocAll.test
|
||||
}]
|
||||
|
||||
set allquicktests [test_set $alltests -exclude {
|
||||
async2.test async3.test backup_ioerr.test corrupt.test
|
||||
corruptC.test crash.test crash2.test crash3.test crash4.test crash5.test
|
||||
crash6.test crash7.test delete3.test e_fts3.test fts3rnd.test
|
||||
fkey_malloc.test fuzz.test fuzz3.test fuzz_malloc.test in2.test loadext.test
|
||||
misc7.test mutex2.test notify2.test onefile.test
|
||||
savepoint4.test savepoint6.test select9.test
|
||||
speed1.test speed1p.test speed2.test speed3.test speed4.test
|
||||
speed4p.test sqllimits1.test tkt2686.test thread001.test thread002.test
|
||||
thread003.test thread004.test thread005.test trans2.test vacuum3.test
|
||||
incrvacuum_ioerr.test autovacuum_crash.test btree8.test shared_err.test
|
||||
vtab_err.test walslow.test walcrash.test
|
||||
walthread.test
|
||||
}]
|
||||
|
||||
#############################################################################
|
||||
# Start of tests
|
||||
#
|
||||
|
||||
#-------------------------------------------------------------------------
|
||||
# Define the generic test suites:
|
||||
#
|
||||
# veryquick
|
||||
# quick
|
||||
# full
|
||||
# veryquick_plus_notify2
|
||||
#
|
||||
|
||||
test_suite "veryquick" -description {
|
||||
"Very" quick test suite. Runs in less than 5 minutes on a workstation.
|
||||
This test suite is the same as the "quick" tests, except that some files
|
||||
that test malloc and IO errors are omitted.
|
||||
} -files [
|
||||
test_set $allquicktests -exclude *malloc* *ioerr* *fault*
|
||||
]
|
||||
|
||||
test_suite "quick" -description {
|
||||
Quick test suite. Runs in around 10 minutes on a workstation.
|
||||
} -files [
|
||||
test_set $allquicktests
|
||||
]
|
||||
|
||||
test_suite "veryquick_plus_notify2" -description {
|
||||
Very quick test suite + file notify2.test. This is used by one of the
|
||||
sqlite.org release test configurations.
|
||||
} -files [
|
||||
test_set $allquicktests notify2.test -exclude *malloc* *ioerr* *fault*
|
||||
]
|
||||
|
||||
test_suite "full" -description {
|
||||
Full test suite. Takes a long time.
|
||||
} -files [
|
||||
test_set $alltests
|
||||
] -initialize {
|
||||
unset -nocomplain ::G(isquick)
|
||||
}
|
||||
|
||||
#-------------------------------------------------------------------------
|
||||
# Define the coverage related test suites:
|
||||
#
|
||||
# coverage-wal
|
||||
# coverage-fkey
|
||||
#
|
||||
test_suite "coverage-wal" -description {
|
||||
Coverage tests for file wal.c.
|
||||
} -files {
|
||||
wal.test wal2.test wal3.test walmode.test
|
||||
walbak.test walhook.test walcrash2.test walcksum.test
|
||||
walfault.test
|
||||
}
|
||||
|
||||
|
||||
|
||||
#-------------------------------------------------------------------------
|
||||
# Define the permutation test suites:
|
||||
#
|
||||
|
||||
# Run some tests using pre-allocated page and scratch blocks.
|
||||
#
|
||||
run_tests "memsubsys1" -description {
|
||||
test_suite "memsubsys1" -description {
|
||||
Tests using pre-allocated page and scratch blocks
|
||||
} -exclude {
|
||||
ioerr5.test
|
||||
malloc5.test
|
||||
} -initialize {
|
||||
} -files [
|
||||
test_set $::allquicktests -exclude ioerr5.test malloc5.test
|
||||
] -initialize {
|
||||
catch {db close}
|
||||
sqlite3_shutdown
|
||||
sqlite3_config_pagecache 4096 24
|
||||
@@ -198,12 +199,11 @@ run_tests "memsubsys1" -description {
|
||||
# sqlite3_soft_heap_limit() and sqlite3_release_memory() functionality.
|
||||
# This functionality is disabled if a pre-allocated page block is provided.
|
||||
#
|
||||
run_tests "memsubsys2" -description {
|
||||
test_suite "memsubsys2" -description {
|
||||
Tests using small pre-allocated page and scratch blocks
|
||||
} -exclude {
|
||||
ioerr5.test
|
||||
malloc5.test
|
||||
} -initialize {
|
||||
} -files [
|
||||
test_set $::allquicktests -exclude ioerr5.test malloc5.test
|
||||
] -initialize {
|
||||
catch {db close}
|
||||
sqlite3_shutdown
|
||||
sqlite3_config_pagecache 512 5
|
||||
@@ -221,7 +221,7 @@ run_tests "memsubsys2" -description {
|
||||
|
||||
# Run all tests with the lookaside allocator disabled.
|
||||
#
|
||||
run_tests "nolookaside" -description {
|
||||
test_suite "nolookaside" -description {
|
||||
OOM tests with lookaside disabled
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -235,11 +235,11 @@ run_tests "nolookaside" -description {
|
||||
sqlite3_config_lookaside 100 500
|
||||
sqlite3_initialize
|
||||
autoinstall_test_functions
|
||||
}
|
||||
} -files $::allquicktests
|
||||
|
||||
# Run some tests in SQLITE_CONFIG_SINGLETHREAD mode.
|
||||
#
|
||||
run_tests "singlethread" -description {
|
||||
test_suite "singlethread" -description {
|
||||
Tests run in SQLITE_CONFIG_SINGLETHREAD mode
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -247,7 +247,7 @@ run_tests "singlethread" -description {
|
||||
catch {sqlite3_config singlethread}
|
||||
sqlite3_initialize
|
||||
autoinstall_test_functions
|
||||
} -include {
|
||||
} -files {
|
||||
delete.test delete2.test insert.test rollback.test select1.test
|
||||
select2.test trans.test update.test vacuum.test types.test
|
||||
types2.test types3.test
|
||||
@@ -259,7 +259,7 @@ run_tests "singlethread" -description {
|
||||
autoinstall_test_functions
|
||||
}
|
||||
|
||||
run_tests "nomutex" -description {
|
||||
test_suite "nomutex" -description {
|
||||
Tests run with the SQLITE_OPEN_MULTITHREADED flag passed to sqlite3_open().
|
||||
} -initialize {
|
||||
rename sqlite3 sqlite3_nomutex
|
||||
@@ -269,7 +269,7 @@ run_tests "nomutex" -description {
|
||||
}
|
||||
uplevel [concat sqlite3_nomutex $args]
|
||||
}
|
||||
} -include {
|
||||
} -files {
|
||||
delete.test delete2.test insert.test rollback.test select1.test
|
||||
select2.test trans.test update.test vacuum.test types.test
|
||||
types2.test types3.test
|
||||
@@ -280,7 +280,7 @@ run_tests "nomutex" -description {
|
||||
|
||||
# Run some tests in SQLITE_CONFIG_MULTITHREAD mode.
|
||||
#
|
||||
run_tests "multithread" -description {
|
||||
test_suite "multithread" -description {
|
||||
Tests run in SQLITE_CONFIG_MULTITHREAD mode
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -288,7 +288,7 @@ run_tests "multithread" -description {
|
||||
catch {sqlite3_config multithread}
|
||||
sqlite3_initialize
|
||||
autoinstall_test_functions
|
||||
} -include {
|
||||
} -files {
|
||||
delete.test delete2.test insert.test rollback.test select1.test
|
||||
select2.test trans.test update.test vacuum.test types.test
|
||||
types2.test types3.test
|
||||
@@ -302,7 +302,7 @@ run_tests "multithread" -description {
|
||||
|
||||
# Run some tests in SQLITE_OPEN_FULLMUTEX mode.
|
||||
#
|
||||
run_tests "fullmutex" -description {
|
||||
test_suite "fullmutex" -description {
|
||||
Tests run in SQLITE_OPEN_FULLMUTEX mode
|
||||
} -initialize {
|
||||
rename sqlite3 sqlite3_fullmutex
|
||||
@@ -312,7 +312,7 @@ run_tests "fullmutex" -description {
|
||||
}
|
||||
uplevel [concat sqlite3_fullmutex $args]
|
||||
}
|
||||
} -include {
|
||||
} -files {
|
||||
delete.test delete2.test insert.test rollback.test select1.test
|
||||
select2.test trans.test update.test vacuum.test types.test
|
||||
types2.test types3.test
|
||||
@@ -323,7 +323,7 @@ run_tests "fullmutex" -description {
|
||||
|
||||
# Run some tests using the "onefile" demo.
|
||||
#
|
||||
run_tests "onefile" -description {
|
||||
test_suite "onefile" -description {
|
||||
Run some tests using the "test_onefile.c" demo
|
||||
} -initialize {
|
||||
rename sqlite3 sqlite3_onefile
|
||||
@@ -333,7 +333,7 @@ run_tests "onefile" -description {
|
||||
}
|
||||
uplevel [concat sqlite3_onefile $args]
|
||||
}
|
||||
} -include {
|
||||
} -files {
|
||||
conflict.test insert.test insert2.test insert3.test
|
||||
rollback.test select1.test select2.test select3.test
|
||||
} -shutdown {
|
||||
@@ -343,11 +343,11 @@ run_tests "onefile" -description {
|
||||
|
||||
# Run some tests using UTF-16 databases.
|
||||
#
|
||||
run_tests "utf16" -description {
|
||||
test_suite "utf16" -description {
|
||||
Run tests using UTF-16 databases
|
||||
} -presql {
|
||||
pragma encoding = 'UTF-16'
|
||||
} -include {
|
||||
} -files {
|
||||
alter.test alter3.test
|
||||
auth.test bind.test blob.test capi2.test capi3.test collate1.test
|
||||
collate2.test collate3.test collate4.test collate5.test collate6.test
|
||||
@@ -366,45 +366,45 @@ run_tests "utf16" -description {
|
||||
|
||||
# Run some tests in exclusive locking mode.
|
||||
#
|
||||
run_tests "exclusive" -description {
|
||||
test_suite "exclusive" -description {
|
||||
Run tests in exclusive locking mode.
|
||||
} -presql {
|
||||
pragma locking_mode = 'exclusive'
|
||||
} -include {
|
||||
} -files {
|
||||
rollback.test select1.test select2.test
|
||||
malloc.test ioerr.test
|
||||
}
|
||||
|
||||
# Run some tests in exclusive locking mode with truncated journals.
|
||||
#
|
||||
run_tests "exclusive-truncate" -description {
|
||||
test_suite "exclusive-truncate" -description {
|
||||
Run tests in exclusive locking mode and truncate journal mode.
|
||||
} -presql {
|
||||
pragma locking_mode = 'exclusive';
|
||||
pragma journal_mode = TRUNCATE;
|
||||
} -include {
|
||||
} -files {
|
||||
delete.test delete2.test insert.test rollback.test select1.test
|
||||
select2.test update.test malloc.test ioerr.test
|
||||
}
|
||||
|
||||
# Run some tests in persistent journal mode.
|
||||
#
|
||||
run_tests "persistent_journal" -description {
|
||||
test_suite "persistent_journal" -description {
|
||||
Run tests in persistent-journal mode.
|
||||
} -presql {
|
||||
pragma journal_mode = persist
|
||||
} -include {
|
||||
} -files {
|
||||
delete.test delete2.test insert.test rollback.test select1.test
|
||||
select2.test trans.test update.test vacuum.test
|
||||
}
|
||||
|
||||
# Run some tests in truncating journal mode.
|
||||
#
|
||||
run_tests "truncate_journal" -description {
|
||||
test_suite "truncate_journal" -description {
|
||||
Run tests in persistent-journal mode.
|
||||
} -presql {
|
||||
pragma journal_mode = truncate
|
||||
} -include {
|
||||
} -files {
|
||||
delete.test delete2.test insert.test rollback.test select1.test
|
||||
select2.test trans.test update.test vacuum.test
|
||||
malloc.test ioerr.test
|
||||
@@ -412,58 +412,58 @@ run_tests "truncate_journal" -description {
|
||||
|
||||
# Run some error tests in persistent journal mode.
|
||||
#
|
||||
run_tests "persistent_journal_error" -description {
|
||||
test_suite "persistent_journal_error" -description {
|
||||
Run malloc.test and ioerr.test in persistent-journal mode.
|
||||
} -presql {
|
||||
pragma journal_mode = persist
|
||||
} -include {
|
||||
} -files {
|
||||
malloc.test ioerr.test
|
||||
}
|
||||
|
||||
# Run some tests in no journal mode.
|
||||
#
|
||||
run_tests "no_journal" -description {
|
||||
test_suite "no_journal" -description {
|
||||
Run tests in no-journal mode.
|
||||
} -presql {
|
||||
pragma journal_mode = persist
|
||||
} -include {
|
||||
} -files {
|
||||
delete.test delete2.test insert.test rollback.test select1.test
|
||||
select2.test trans.test update.test vacuum.test
|
||||
}
|
||||
|
||||
# Run some error tests in no journal mode.
|
||||
#
|
||||
run_tests "no_journal_error" -description {
|
||||
test_suite "no_journal_error" -description {
|
||||
Run malloc.test and ioerr.test in no-journal mode.
|
||||
} -presql {
|
||||
pragma journal_mode = persist
|
||||
} -include {
|
||||
} -files {
|
||||
malloc.test ioerr.test
|
||||
}
|
||||
|
||||
# Run some crash-tests in autovacuum mode.
|
||||
#
|
||||
run_tests "autovacuum_crash" -description {
|
||||
test_suite "autovacuum_crash" -description {
|
||||
Run crash.test in autovacuum mode.
|
||||
} -presql {
|
||||
pragma auto_vacuum = 1
|
||||
} -include crash.test
|
||||
} -files crash.test
|
||||
|
||||
# Run some ioerr-tests in autovacuum mode.
|
||||
#
|
||||
run_tests "autovacuum_ioerr" -description {
|
||||
test_suite "autovacuum_ioerr" -description {
|
||||
Run ioerr.test in autovacuum mode.
|
||||
} -presql {
|
||||
pragma auto_vacuum = 1
|
||||
} -include ioerr.test
|
||||
} -files ioerr.test
|
||||
|
||||
# Run tests with an in-memory journal.
|
||||
#
|
||||
run_tests "inmemory_journal" -description {
|
||||
test_suite "inmemory_journal" -description {
|
||||
Run tests with an in-memory journal file.
|
||||
} -presql {
|
||||
pragma journal_mode = 'memory'
|
||||
} -exclude {
|
||||
} -files [test_set $::allquicktests -exclude {
|
||||
# Exclude all tests that simulate IO errors.
|
||||
autovacuum_ioerr2.test incrvacuum_ioerr.test ioerr.test
|
||||
ioerr.test ioerr2.test ioerr3.test ioerr4.test ioerr5.test
|
||||
@@ -479,13 +479,13 @@ run_tests "inmemory_journal" -description {
|
||||
stmt.test
|
||||
|
||||
# WAL mode is different.
|
||||
walmode.test walfault.test wal.test wal2.test wal3.test
|
||||
}
|
||||
wal*
|
||||
}]
|
||||
|
||||
ifcapable mem3 {
|
||||
run_tests "memsys3" -description {
|
||||
test_suite "memsys3" -description {
|
||||
Run tests using the allocator in mem3.c.
|
||||
} -exclude {
|
||||
} [test_set $::allquicktests -exclude {
|
||||
autovacuum.test delete3.test manydb.test
|
||||
bigrow.test incrblob2.test memdb.test
|
||||
bitvec.test index2.test memsubsys1.test
|
||||
@@ -493,7 +493,7 @@ ifcapable mem3 {
|
||||
capi3.test join3.test pagesize.test
|
||||
collate5.test limit.test backup_ioerr.test
|
||||
backup_malloc.test
|
||||
} -initialize {
|
||||
}] -initialize {
|
||||
catch {db close}
|
||||
sqlite3_reset_auto_extension
|
||||
sqlite3_shutdown
|
||||
@@ -521,16 +521,16 @@ ifcapable mem3 {
|
||||
}
|
||||
|
||||
ifcapable mem5 {
|
||||
run_tests "memsys5" -description {
|
||||
test_suite "memsys5" -description {
|
||||
Run tests using the allocator in mem5.c.
|
||||
} -exclude {
|
||||
} [test_set $::allquicktests -exclude {
|
||||
autovacuum.test delete3.test manydb.test
|
||||
bigrow.test incrblob2.test memdb.test
|
||||
bitvec.test index2.test memsubsys1.test
|
||||
capi3c.test ioerr.test memsubsys2.test
|
||||
capi3.test join3.test pagesize.test
|
||||
collate5.test limit.test zeroblob.test
|
||||
} -initialize {
|
||||
}] -initialize {
|
||||
catch {db close}
|
||||
sqlite3_shutdown
|
||||
sqlite3_config_heap 25000000 64
|
||||
@@ -548,9 +548,9 @@ ifcapable mem5 {
|
||||
autoinstall_test_functions
|
||||
}
|
||||
|
||||
run_tests "memsys5-2" -description {
|
||||
test_suite "memsys5-2" -description {
|
||||
Run tests using the allocator in mem5.c in a different configuration.
|
||||
} -include {
|
||||
} -files {
|
||||
select1.test
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -572,10 +572,11 @@ ifcapable mem5 {
|
||||
}
|
||||
|
||||
ifcapable threadsafe {
|
||||
run_tests "no_mutex_try" -description {
|
||||
test_suite "no_mutex_try" -description {
|
||||
The sqlite3_mutex_try() interface always fails
|
||||
} -exclude [concat $EXCLUDE mutex1.test mutex2.test] \
|
||||
-initialize {
|
||||
} -files [
|
||||
test_set $::allquicktests -exclude mutex1.test mutex2.test
|
||||
] -initialize {
|
||||
catch {db close}
|
||||
sqlite3_shutdown
|
||||
install_mutex_counters 1
|
||||
@@ -611,9 +612,9 @@ ifcapable threadsafe {
|
||||
# } -shutdown {
|
||||
# rename crashsql {}
|
||||
# rename sa_crashsql crashsql
|
||||
# } -include crash.test
|
||||
# } -files crash.test
|
||||
|
||||
run_tests "safe_append" -description {
|
||||
test_suite "safe_append" -description {
|
||||
Run some tests on a SAFE_APPEND file-system.
|
||||
} -initialize {
|
||||
rename sqlite3 sqlite3_safeappend
|
||||
@@ -627,8 +628,9 @@ run_tests "safe_append" -description {
|
||||
} -shutdown {
|
||||
rename sqlite3 {}
|
||||
rename sqlite3_shutdown sqlite3
|
||||
} -include [lsort [concat shared_err.test $ALLTESTS]] \
|
||||
-exclude async3.test
|
||||
} -files [
|
||||
test_set $::allquicktests shared_err.test -exclude async3.test
|
||||
]
|
||||
|
||||
# The set of tests to run on the alternative-pcache
|
||||
set perm-alt-pcache-testset {
|
||||
@@ -644,7 +646,7 @@ set perm-alt-pcache-testset {
|
||||
update.test
|
||||
}
|
||||
|
||||
run_tests "pcache0" -description {
|
||||
test_suite "pcache0" -description {
|
||||
Alternative pcache implementation without random discard
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -660,9 +662,9 @@ run_tests "pcache0" -description {
|
||||
install_malloc_faultsim 1
|
||||
sqlite3_initialize
|
||||
autoinstall_test_functions
|
||||
} -include ${perm-alt-pcache-testset}
|
||||
} -files ${perm-alt-pcache-testset}
|
||||
|
||||
run_tests "pcache10" -description {
|
||||
test_suite "pcache10" -description {
|
||||
Alternative pcache implementation without 10% random discard
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -676,9 +678,9 @@ run_tests "pcache10" -description {
|
||||
sqlite3_config_alt_pcache 0 0 0
|
||||
sqlite3_initialize
|
||||
autoinstall_test_functions
|
||||
} -include ${perm-alt-pcache-testset}
|
||||
} -files ${perm-alt-pcache-testset}
|
||||
|
||||
run_tests "pcache50" -description {
|
||||
test_suite "pcache50" -description {
|
||||
Alternative pcache implementation without 50% random discard
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -692,9 +694,9 @@ run_tests "pcache50" -description {
|
||||
sqlite3_config_alt_pcache 0 0 0
|
||||
sqlite3_initialize
|
||||
autoinstall_test_functions
|
||||
} -include ${perm-alt-pcache-testset}
|
||||
} -files ${perm-alt-pcache-testset}
|
||||
|
||||
run_tests "pcache90" -description {
|
||||
test_suite "pcache90" -description {
|
||||
Alternative pcache implementation without 90% random discard
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -708,9 +710,9 @@ run_tests "pcache90" -description {
|
||||
sqlite3_config_alt_pcache 0 0 0
|
||||
sqlite3_initialize
|
||||
autoinstall_test_functions
|
||||
} -include ${perm-alt-pcache-testset}
|
||||
} -files ${perm-alt-pcache-testset}
|
||||
|
||||
run_tests "pcache100" -description {
|
||||
test_suite "pcache100" -description {
|
||||
Alternative pcache implementation that always discards when unpinning
|
||||
} -initialize {
|
||||
catch {db close}
|
||||
@@ -724,55 +726,107 @@ run_tests "pcache100" -description {
|
||||
sqlite3_config_alt_pcache 0 0 0
|
||||
sqlite3_initialize
|
||||
autoinstall_test_functions
|
||||
} -include ${perm-alt-pcache-testset}
|
||||
} -files ${perm-alt-pcache-testset}
|
||||
|
||||
run_tests "journaltest" -description {
|
||||
test_suite "journaltest" -description {
|
||||
Check that pages are synced before being written (test_journal.c).
|
||||
} -initialize {
|
||||
set G(isquick) 1
|
||||
catch {db close}
|
||||
register_jt_vfs -default ""
|
||||
#sqlite3_instvfs binarylog -default binarylog ostrace.bin
|
||||
} -shutdown {
|
||||
#sqlite3_instvfs destroy binarylog
|
||||
unregister_jt_vfs
|
||||
} -include $::ALLTESTS -exclude [concat $::WALTESTS {
|
||||
incrvacuum.test
|
||||
ioerr.test
|
||||
corrupt4.test
|
||||
io.test
|
||||
crash8.test
|
||||
async4.test
|
||||
bigfile.test
|
||||
} -files [test_set $::allquicktests -exclude {
|
||||
wal* incrvacuum.test ioerr.test corrupt4.test io.test crash8.test
|
||||
async4.test bigfile.test
|
||||
}]
|
||||
|
||||
if {[info commands register_demovfs] != ""} {
|
||||
run_tests "demovfs" -description {
|
||||
test_suite "demovfs" -description {
|
||||
Check that the demovfs (code in test_demovfs.c) more or less works.
|
||||
} -initialize {
|
||||
register_demovfs
|
||||
} -shutdown {
|
||||
unregister_demovfs
|
||||
} -include {
|
||||
} -files {
|
||||
insert.test insert2.test insert3.test rollback.test
|
||||
select1.test select2.test select3.test
|
||||
}
|
||||
}
|
||||
|
||||
run_tests "wal" -description {
|
||||
test_suite "wal" -description {
|
||||
Run tests with journal_mode=WAL
|
||||
} -initialize {
|
||||
set ::G(savepoint6_iterations) 100
|
||||
} -shutdown {
|
||||
unset -nocomplain ::G(savepoint6_iterations)
|
||||
} -include {
|
||||
} -files {
|
||||
savepoint.test savepoint2.test savepoint6.test
|
||||
trans.test avtrans.test
|
||||
}
|
||||
|
||||
# End of tests
|
||||
#############################################################################
|
||||
|
||||
if {$::perm::testmode eq "targets"} { puts "" ; exit }
|
||||
# run_tests NAME OPTIONS
|
||||
#
|
||||
# where available options are:
|
||||
#
|
||||
# -description TITLE (default "")
|
||||
# -initialize SCRIPT (default "")
|
||||
# -shutdown SCRIPT (default "")
|
||||
# -presql SQL (default "")
|
||||
# -files LIST-OF-FILES (default "")
|
||||
#
|
||||
proc run_tests {name args} {
|
||||
array set options $args
|
||||
|
||||
set ::G(perm:name) $name
|
||||
set ::G(perm:presql) $options(-presql)
|
||||
set ::G(isquick) 1
|
||||
|
||||
uplevel $options(-initialize)
|
||||
|
||||
foreach file [lsort $options(-files)] {
|
||||
slave_test_file $::testdir/$file
|
||||
}
|
||||
|
||||
uplevel $options(-shutdown)
|
||||
|
||||
unset ::G(perm:name)
|
||||
unset ::G(perm:presql)
|
||||
}
|
||||
|
||||
proc run_test_suite {name} {
|
||||
if {[info exists ::testspec($name)]==0} {
|
||||
error "No such test suite: $name"
|
||||
}
|
||||
uplevel run_tests $name $::testspec($name)
|
||||
}
|
||||
|
||||
proc help {} {
|
||||
foreach k $::testsuitelist {
|
||||
array set o $::testspec($k)
|
||||
puts "Test suite: \"$k\""
|
||||
set d [string trim $o(-description)]
|
||||
set d [regsub {\n *} $d "\n "]
|
||||
puts " $d"
|
||||
puts ""
|
||||
}
|
||||
exit -1
|
||||
}
|
||||
|
||||
if {[info script] == $argv0} {
|
||||
proc main {argv} {
|
||||
if {[llength $argv]==0} {
|
||||
help
|
||||
} else {
|
||||
set suite [lindex $argv 0]
|
||||
if {[info exists ::testspec($suite)]==0} help
|
||||
set extra ""
|
||||
if {[llength $argv]>1} { set extra [list -files [lrange $argv 1 end]] }
|
||||
eval run_tests $suite $::testspec($suite) $extra
|
||||
}
|
||||
}
|
||||
main $argv
|
||||
finish_test
|
||||
}
|
||||
|
||||
finish_test
|
||||
|
||||
+6
-142
@@ -8,149 +8,13 @@
|
||||
#
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
db close
|
||||
source $testdir/permutations.test
|
||||
|
||||
proc lshift {lvar} {
|
||||
upvar $lvar l
|
||||
set ret [lindex $l 0]
|
||||
set l [lrange $l 1 end]
|
||||
return $ret
|
||||
if {[info exists env(QUICKTEST_INCLUDE]} {
|
||||
# A hack so that releasetest.tcl keeps working.
|
||||
run_test_suite quick_plus_notify2
|
||||
} else {
|
||||
run_test_suite quick
|
||||
}
|
||||
while {[set arg [lshift argv]] != ""} {
|
||||
switch -- $arg {
|
||||
-sharedpagercache {
|
||||
sqlite3_enable_shared_cache 1
|
||||
}
|
||||
-soak {
|
||||
set G(issoak) 1
|
||||
}
|
||||
-start {
|
||||
set STARTAT "[lshift argv]*"
|
||||
}
|
||||
default {
|
||||
set argv [linsert $argv 0 $arg]
|
||||
break
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
set G(isquick) 1
|
||||
|
||||
set EXCLUDE {
|
||||
all.test
|
||||
async.test
|
||||
async2.test
|
||||
async3.test
|
||||
backup_ioerr.test
|
||||
corrupt.test
|
||||
corruptC.test
|
||||
crash.test
|
||||
crash2.test
|
||||
crash3.test
|
||||
crash4.test
|
||||
crash5.test
|
||||
crash6.test
|
||||
crash7.test
|
||||
delete3.test
|
||||
e_fts3.test
|
||||
fts3.test
|
||||
fts3rnd.test
|
||||
fkey_malloc.test
|
||||
fuzz.test
|
||||
fuzz3.test
|
||||
fuzz_malloc.test
|
||||
in2.test
|
||||
loadext.test
|
||||
memleak.test
|
||||
misc7.test
|
||||
misuse.test
|
||||
mutex2.test
|
||||
notify2.test
|
||||
onefile.test
|
||||
permutations.test
|
||||
quick.test
|
||||
savepoint4.test
|
||||
savepoint6.test
|
||||
select9.test
|
||||
soak.test
|
||||
speed1.test
|
||||
speed1p.test
|
||||
speed2.test
|
||||
speed3.test
|
||||
speed4.test
|
||||
speed4p.test
|
||||
sqllimits1.test
|
||||
tkt2686.test
|
||||
thread001.test
|
||||
thread002.test
|
||||
thread003.test
|
||||
thread004.test
|
||||
thread005.test
|
||||
trans2.test
|
||||
vacuum3.test
|
||||
|
||||
incrvacuum_ioerr.test
|
||||
autovacuum_crash.test
|
||||
btree8.test
|
||||
shared_err.test
|
||||
vtab_err.test
|
||||
veryquick.test
|
||||
mallocAll.test
|
||||
|
||||
walslow.test
|
||||
walcrash.test
|
||||
walthread.test
|
||||
}
|
||||
|
||||
if {[sqlite3 -has-codec]} {
|
||||
# lappend EXCLUDE \
|
||||
# conflict.test
|
||||
}
|
||||
|
||||
|
||||
# Files to include in the test. If this list is empty then everything
|
||||
# that is not in the EXCLUDE list is run.
|
||||
#
|
||||
set INCLUDE {
|
||||
}
|
||||
|
||||
# If the QUICKTEST_INCLUDE environment variable is set, then interpret
|
||||
# it as a list of test files. Always run these files, even if they
|
||||
# begin with "malloc*" or "ioerr*" or are part of the EXCLUDE list
|
||||
# defined above.
|
||||
#
|
||||
set QUICKTEST_INCLUDE {}
|
||||
catch { set QUICKTEST_INCLUDE $env(QUICKTEST_INCLUDE) }
|
||||
|
||||
# Run all test files in directory $testdir, subject to the following:
|
||||
#
|
||||
# 1. If a test file is specified as part of the $INCLUDE or
|
||||
# $QUICKTEST_INCLUDE list variables, run it.
|
||||
#
|
||||
# 2. If $INCLUDE is non-empty, and rule 1 does not apply to it, do not run it.
|
||||
#
|
||||
# 3. If a test file is specified as part of $EXCLUDE, and rule 1 does not
|
||||
# apply, do not run it.
|
||||
#
|
||||
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
|
||||
set tail [file tail $testfile]
|
||||
|
||||
if {[info exists STARTAT] && [string match $STARTAT $tail]} {unset STARTAT}
|
||||
if {[info exists STARTAT]} continue
|
||||
|
||||
set run [expr {[llength $INCLUDE]==0}]
|
||||
if {[info exists ISVERYQUICK] && [string match *malloc* $tail]} { set run 0 }
|
||||
if {[info exists ISVERYQUICK] && [string match *ioerr* $tail]} { set run 0 }
|
||||
if {[lsearch -exact $EXCLUDE $tail]>=0} { set run 0 }
|
||||
if {[lsearch -exact $INCLUDE $tail]>=0} { set run 1 }
|
||||
if {[lsearch -exact $QUICKTEST_INCLUDE $tail]>=0} { set run 1 }
|
||||
|
||||
if {$run} {
|
||||
slave_test_file $testfile
|
||||
}
|
||||
}
|
||||
slave_test_file $testdir/misuse.test
|
||||
|
||||
finish_test
|
||||
|
||||
|
||||
+31
-8
@@ -133,12 +133,14 @@ if {[info exists cmdlinearg]==0} {
|
||||
# --malloctrace=N
|
||||
# --backtrace=N
|
||||
# --binarylog=N
|
||||
# --soak=N
|
||||
#
|
||||
set cmdlinearg(soft-heap-limit) 0
|
||||
set cmdlinearg(maxerror) 1000
|
||||
set cmdlinearg(malloctrace) 0
|
||||
set cmdlinearg(backtrace) 10
|
||||
set cmdlinearg(binarylog) 0
|
||||
set cmdlinearg(soak) 0
|
||||
|
||||
set leftover [list]
|
||||
foreach a $argv {
|
||||
@@ -164,11 +166,15 @@ if {[info exists cmdlinearg]==0} {
|
||||
}
|
||||
{^-+backtrace=.+$} {
|
||||
foreach {dummy cmdlinearg(backtrace)} [split $a =] break
|
||||
sqlite3_memdebug_backtrace $value
|
||||
}
|
||||
sqlite3_memdebug_backtrace $value
|
||||
{^-+binarylog=.+$} {
|
||||
foreach {dummy cmdlinearg(binarylog)} [split $a =] break
|
||||
}
|
||||
{^-+soak=.+$} {
|
||||
foreach {dummy cmdlinearg(soak)} [split $a =] break
|
||||
set ::G(issoak) $cmdlinearg(soak)
|
||||
}
|
||||
default {
|
||||
lappend leftover $a
|
||||
}
|
||||
@@ -1140,21 +1146,38 @@ proc slave_test_script {script} {
|
||||
}
|
||||
|
||||
proc slave_test_file {zFile} {
|
||||
set tail [file tail $zFile]
|
||||
|
||||
ifcapable shared_cache {
|
||||
set scs [sqlite3_enable_shared_cache]
|
||||
}
|
||||
|
||||
reset_prng_state
|
||||
set ::sqlite_open_file_count 0
|
||||
set time [time { slave_test_script [list source $zFile] }]
|
||||
set ms [expr [lindex $time 0] / 1000]
|
||||
|
||||
# Test that all files opened by the test script were closed.
|
||||
#
|
||||
do_test ${tail}-closeallfiles {
|
||||
expr {$::sqlite_open_file_count>0}
|
||||
} {0}
|
||||
set ::sqlite_open_file_count 0
|
||||
|
||||
set time [time {
|
||||
slave_test_script [list source $zFile]
|
||||
}]
|
||||
# Test that the global "shared-cache" setting was not altered by
|
||||
# the test script.
|
||||
#
|
||||
ifcapable shared_cache {
|
||||
set res [expr {[sqlite3_enable_shared_cache] == $scs}]
|
||||
do_test ${tail}-sharedcachesetting [list set {} $res] 1
|
||||
}
|
||||
|
||||
set tail [file tail $zFile]
|
||||
if {$::sqlite_open_file_count>0} {
|
||||
puts "$tail did not close all files: $::sqlite_open_file_count"
|
||||
fail_test $tail
|
||||
fail_test "$tail-closeallfiles"
|
||||
set ::sqlite_open_file_count 0
|
||||
exit
|
||||
}
|
||||
puts "time $tail [lrange $time 0 1]"
|
||||
puts "Time: $tail $ms ms"
|
||||
|
||||
show_memstats
|
||||
}
|
||||
|
||||
+6
-2
@@ -11,5 +11,9 @@
|
||||
# $Id: veryquick.test,v 1.9 2008/07/12 14:52:21 drh Exp $
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
set ISVERYQUICK 1
|
||||
source $testdir/quick.test
|
||||
source $testdir/permutations.test
|
||||
|
||||
run_test_suite veryquick
|
||||
|
||||
finish_test
|
||||
|
||||
|
||||
Reference in New Issue
Block a user