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/thread004.test | |
| parent | 23582c8129228b4961ad35319cfd2d270039345f (diff) | |
[External] Remove external from RT-Thread
Diffstat (limited to 'components/external/SQLite-3.8.1/test/thread004.test')
| -rw-r--r-- | components/external/SQLite-3.8.1/test/thread004.test | 79 |
1 files changed, 0 insertions, 79 deletions
diff --git a/components/external/SQLite-3.8.1/test/thread004.test b/components/external/SQLite-3.8.1/test/thread004.test deleted file mode 100644 index b2adc460d0..0000000000 --- a/components/external/SQLite-3.8.1/test/thread004.test +++ /dev/null @@ -1,79 +0,0 @@ -# 2009 February 26 -# -# 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. -# -#*********************************************************************** -# -# $Id: thread004.test,v 1.3 2009/06/05 17:09:12 drh Exp $ - -set testdir [file dirname $argv0] - -source $testdir/tester.tcl -if {[run_thread_tests]==0} { finish_test ; return } -ifcapable !shared_cache { - finish_test - return -} -if { [info commands sqlite3_table_column_metadata] eq "" } { - finish_test - return -} - -# Use shared-cache mode for this test. -# -db close -set ::enable_shared_cache [sqlite3_enable_shared_cache] -sqlite3_enable_shared_cache 1 - -# Create a table in database test.db -# -sqlite3 db test.db -do_test thread004-1.1 { - execsql { CREATE TABLE t1(a, b, c) } -} {} - -do_test thread004-1.2 { - - set ThreadOne { - set iStart [clock_seconds] - while {[clock_seconds]<$iStart+20} { - set ::DB [sqlite3_open test.db] - sqlite3_close $::DB - } - } - set ThreadTwo { - set ::DB [sqlite3_open test.db] - set iStart [clock_seconds] - set nErr 0 - while {[clock_seconds] <$iStart+20} { - incr nErr [catch {sqlite3_table_column_metadata $::DB main t1 a}] - } - sqlite3_close $::DB - set nErr - } - - # Run two threads. The first thread opens and closes database test.db - # repeatedly. Each time this happens, the in-memory schema used by - # all connections to test.db is discarded. - # - # The second thread calls sqlite3_table_column_metadata() over and - # over again. Each time it is called, the database schema is loaded - # if it is not already in memory. At one point this was crashing. - # - unset -nocomplain finished - thread_spawn finished(1) $thread_procs $ThreadOne - thread_spawn finished(2) $thread_procs $ThreadTwo - - foreach t {1 2} { - if {![info exists finished($t)]} { vwait finished($t) } - } - - set finished(2) -} {0} -sqlite3_enable_shared_cache $::enable_shared_cache -finish_test |
