summaryrefslogtreecommitdiff
path: root/components/external/SQLite-3.8.1/test/async.test
diff options
context:
space:
mode:
authorbernard <[email protected]>2017-11-02 13:50:42 +0800
committerbernard <[email protected]>2017-11-02 13:50:42 +0800
commitb2057f506a09e2adef81fc77efd697d16ae14bec (patch)
tree3affefabfe376a0ec1b3ac4a5eef957c1dd58dc8 /components/external/SQLite-3.8.1/test/async.test
parent23582c8129228b4961ad35319cfd2d270039345f (diff)
[External] Remove external from RT-Thread
Diffstat (limited to 'components/external/SQLite-3.8.1/test/async.test')
-rw-r--r--components/external/SQLite-3.8.1/test/async.test90
1 files changed, 0 insertions, 90 deletions
diff --git a/components/external/SQLite-3.8.1/test/async.test b/components/external/SQLite-3.8.1/test/async.test
deleted file mode 100644
index e1bc08642e..0000000000
--- a/components/external/SQLite-3.8.1/test/async.test
+++ /dev/null
@@ -1,90 +0,0 @@
-#
-# 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 runs all tests.
-#
-# $Id: async.test,v 1.21 2009/06/05 17:09:12 drh Exp $
-
-set testdir [file dirname $argv0]
-source $testdir/tester.tcl
-
-if {[info commands sqlite3async_initialize] eq ""} {
- # The async logic is not built into this system
- finish_test
- return
-}
-
-rename finish_test async_really_finish_test
-proc finish_test {} {
- catch {db close}
- catch {db2 close}
- catch {db3 close}
-}
-if {[info exists G(isquick)]} { set ASYNC_SAVE_ISQUICK $G(isquick) }
-set G(isquick) 1
-
-set ASYNC_INCLUDE {
- insert.test
- insert2.test
- insert3.test
- lock.test
- lock2.test
- lock3.test
- select1.test
- select2.test
- select3.test
- select4.test
- trans.test
-}
-
-# Enable asynchronous IO.
-sqlite3async_initialize "" 1
-
-# This proc flushes the contents of the async-IO queue through to the
-# underlying VFS. A couple of the test scripts identified in $ASYNC_INCLUDE
-# above contain lines like "catch flush_async_queue" in places where
-# this is required for the tests to work in async mode.
-#
-proc flush_async_queue {} {
- sqlite3async_control halt idle
- sqlite3async_start
- sqlite3async_wait
- sqlite3async_control halt never
-}
-
-rename do_test async_really_do_test
-proc do_test {name args} {
- uplevel async_really_do_test async_io-$name $args
- flush_async_queue
-}
-
-foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
- set tail [file tail $testfile]
- if {[lsearch -exact $ASYNC_INCLUDE $tail]<0} continue
- source $testfile
-
- # Make sure everything is flushed through. This is because [source]ing
- # the next test file will delete the database file on disk (using
- # [delete_file]). If the asynchronous backend still has the file
- # open, it will become confused.
- #
- flush_async_queue
-}
-
-# Flush the write-queue and disable asynchronous IO. This should ensure
-# all allocated memory is cleaned up.
-set sqlite3async_trace 1
-flush_async_queue
-sqlite3async_shutdown
-set sqlite3async_trace 0
-
-rename do_test {}
-rename async_really_do_test do_test
-rename finish_test {}
-rename async_really_finish_test finish_test
-
-if {[info exists ASYNC_SAVE_ISQUICK]} { set G(isquick) $ASYNC_SAVE_ISQUICK }
-finish_test