diff options
| author | bernard <[email protected]> | 2017-11-02 13:50:42 +0800 |
|---|---|---|
| committer | bernard <[email protected]> | 2017-11-02 13:50:42 +0800 |
| commit | b2057f506a09e2adef81fc77efd697d16ae14bec (patch) | |
| tree | 3affefabfe376a0ec1b3ac4a5eef957c1dd58dc8 /components/external/SQLite-3.8.1/test/thread003.test | |
| parent | 23582c8129228b4961ad35319cfd2d270039345f (diff) | |
[External] Remove external from RT-Thread
Diffstat (limited to 'components/external/SQLite-3.8.1/test/thread003.test')
| -rw-r--r-- | components/external/SQLite-3.8.1/test/thread003.test | 189 |
1 files changed, 0 insertions, 189 deletions
diff --git a/components/external/SQLite-3.8.1/test/thread003.test b/components/external/SQLite-3.8.1/test/thread003.test deleted file mode 100644 index 8c7440c82e..0000000000 --- a/components/external/SQLite-3.8.1/test/thread003.test +++ /dev/null @@ -1,189 +0,0 @@ -# 2007 September 10 -# -# The author disclaims copyright to this source code. In place of -# a legal notice, here is a blessing: -# -# May you do good and not evil. -# May you find forgiveness for yourself and forgive others. -# May you share freely, never taking more than you give. -# -#*********************************************************************** -# -# This file contains tests that attempt to break the pcache module -# by bombarding it with simultaneous requests from multiple threads. -# -# $Id: thread003.test,v 1.8 2009/03/26 14:48:07 danielk1977 Exp $ - -set testdir [file dirname $argv0] - -source $testdir/tester.tcl -if {[run_thread_tests]==0} { finish_test ; return } - -# Set up a couple of different databases full of pseudo-randomly -# generated data. -# -do_test thread003.1.1 { - execsql { - BEGIN; - CREATE TABLE t1(a, b, c); - } - for {set ii 0} {$ii < 5000} {incr ii} { - execsql {INSERT INTO t1 VALUES($ii, randomblob(200), randomblob(200))} - } - execsql { - CREATE INDEX i1 ON t1(a, b); - COMMIT; - } -} {} -do_test thread003.1.2 { - expr {([file size test.db] / 1024) > 2000} -} {1} -do_test thread003.1.3 { - db close - forcedelete test2.db - sqlite3 db test2.db -} {} -do_test thread003.1.4 { - execsql { - BEGIN; - CREATE TABLE t1(a, b, c); - } - for {set ii 0} {$ii < 5000} {incr ii} { - execsql {INSERT INTO t1 VALUES($ii, randomblob(200), randomblob(200))} - } - execsql { - CREATE INDEX i1 ON t1(a, b); - COMMIT; - } -} {} -do_test thread003.1.5 { - expr {([file size test.db] / 1024) > 2000} -} {1} -do_test thread003.1.6 { - db close -} {} - - -# This test opens a connection on each of the large (>2MB) database files -# created by the previous block. The connections do not share a cache. -# Both "cache_size" parameters are set to 15, so there is a maximum of -# 30 pages available globally. -# -# Then, in separate threads, the databases are randomly queried over and -# over again. This will force the connections to recycle clean pages from -# each other. If there is a thread-safety problem, a segfault or assertion -# failure may eventually occur. -# -set nSecond 30 -puts "Starting thread003.2 (should run for ~$nSecond seconds)" -do_test thread003.2 { - foreach zFile {test.db test2.db} { - set SCRIPT [format { - set iEnd [expr {[clock_seconds] + %d}] - set ::DB [sqlthread open %s xyzzy] - - # Set the cache size to 15 pages per cache. 30 available globally. - execsql { PRAGMA cache_size = 15 } - - while {[clock_seconds] < $iEnd} { - set iQuery [expr {int(rand()*5000)}] - execsql " SELECT * FROM t1 WHERE a = $iQuery " - } - - sqlite3_close $::DB - expr 1 - } $nSecond $zFile] - - unset -nocomplain finished($zFile) - thread_spawn finished($zFile) $thread_procs $SCRIPT - } - foreach zFile {test.db test2.db} { - if {![info exists finished($zFile)]} { - vwait finished($zFile) - } - } - expr 0 -} {0} - -# This test is the same as the test above, except that each thread also -# writes to the database. This causes pages to be moved back and forth -# between the caches internal dirty and clean lists, which is another -# opportunity for a thread-related bug to present itself. -# -set nSecond 30 -puts "Starting thread003.3 (should run for ~$nSecond seconds)" -do_test thread003.3 { - foreach zFile {test.db test2.db} { - set SCRIPT [format { - set iStart [clock_seconds] - set iEnd [expr {[clock_seconds] + %d}] - set ::DB [sqlthread open %s xyzzy] - - # Set the cache size to 15 pages per cache. 30 available globally. - execsql { PRAGMA cache_size = 15 } - - while {[clock_seconds] < $iEnd} { - set iQuery [expr {int(rand()*5000)}] - execsql "SELECT * FROM t1 WHERE a = $iQuery" - execsql "UPDATE t1 SET b = randomblob(200) - WHERE a < $iQuery AND a > $iQuery + 20 - " - } - - sqlite3_close $::DB - expr 1 - } $nSecond $zFile] - - unset -nocomplain finished($zFile) - thread_spawn finished($zFile) $thread_procs $SCRIPT - } - foreach zFile {test.db test2.db} { - if {![info exists finished($zFile)]} { - vwait finished($zFile) - } - } - expr 0 -} {0} - -# In this test case, one thread is continually querying the database. -# The other thread does not have a database connection, but calls -# sqlite3_release_memory() over and over again. -# -set nSecond 30 -puts "Starting thread003.4 (should run for ~$nSecond seconds)" -unset -nocomplain finished(1) -unset -nocomplain finished(2) -do_test thread003.4 { - thread_spawn finished(1) $thread_procs [format { - set iEnd [expr {[clock_seconds] + %d}] - set ::DB [sqlthread open test.db xyzzy] - - # Set the cache size to 15 pages per cache. 30 available globally. - execsql { PRAGMA cache_size = 15 } - - while {[clock_seconds] < $iEnd} { - set iQuery [expr {int(rand()*5000)}] - execsql "SELECT * FROM t1 WHERE a = $iQuery" - } - - sqlite3_close $::DB - expr 1 - } $nSecond] - thread_spawn finished(2) [format { - set iEnd [expr {[clock_seconds] + %d}] - - while {[clock_seconds] < $iEnd} { - sqlite3_release_memory 1000 - } - } $nSecond] - - foreach ii {1 2} { - if {![info exists finished($ii)]} { - vwait finished($ii) - } - } - expr 0 -} {0} - -set sqlite_open_file_count 0 -finish_test |
