wasCSharpSQLite – Blame information for rev 1
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | office | 1 | # |
| 2 | # May you do good and not evil. |
||
| 3 | # May you find forgiveness for yourself and forgive others. |
||
| 4 | # May you share freely, never taking more than you give. |
||
| 5 | # |
||
| 6 | #*********************************************************************** |
||
| 7 | # This file runs all tests. |
||
| 8 | # |
||
| 9 | # $Id: async.test,v 1.21 2009/06/05 17:09:12 drh Exp $ |
||
| 10 | |||
| 11 | set testdir [file dirname $argv0] |
||
| 12 | source $testdir/tester.tcl |
||
| 13 | |||
| 14 | if {[info commands sqlite3async_initialize] eq ""} { |
||
| 15 | # The async logic is not built into this system |
||
| 16 | finish_test |
||
| 17 | return |
||
| 18 | } |
||
| 19 | |||
| 20 | rename finish_test async_really_finish_test |
||
| 21 | proc finish_test {} { |
||
| 22 | catch {db close} |
||
| 23 | catch {db2 close} |
||
| 24 | catch {db3 close} |
||
| 25 | } |
||
| 26 | if {[info exists G(isquick)]} { set ASYNC_SAVE_ISQUICK $G(isquick) } |
||
| 27 | set G(isquick) 1 |
||
| 28 | |||
| 29 | set ASYNC_INCLUDE { |
||
| 30 | insert.test |
||
| 31 | insert2.test |
||
| 32 | insert3.test |
||
| 33 | lock.test |
||
| 34 | lock2.test |
||
| 35 | lock3.test |
||
| 36 | select1.test |
||
| 37 | select2.test |
||
| 38 | select3.test |
||
| 39 | select4.test |
||
| 40 | trans.test |
||
| 41 | } |
||
| 42 | |||
| 43 | # Enable asynchronous IO. |
||
| 44 | sqlite3async_initialize "" 1 |
||
| 45 | |||
| 46 | # This proc flushes the contents of the async-IO queue through to the |
||
| 47 | # underlying VFS. A couple of the test scripts identified in $ASYNC_INCLUDE |
||
| 48 | # above contain lines like "catch flush_async_queue" in places where |
||
| 49 | # this is required for the tests to work in async mode. |
||
| 50 | # |
||
| 51 | proc flush_async_queue {} { |
||
| 52 | sqlite3async_control halt idle |
||
| 53 | sqlite3async_start |
||
| 54 | sqlite3async_wait |
||
| 55 | sqlite3async_control halt never |
||
| 56 | } |
||
| 57 | |||
| 58 | rename do_test async_really_do_test |
||
| 59 | proc do_test {name args} { |
||
| 60 | uplevel async_really_do_test async_io-$name $args |
||
| 61 | flush_async_queue |
||
| 62 | } |
||
| 63 | |||
| 64 | foreach testfile [lsort -dictionary [glob $testdir/*.test]] { |
||
| 65 | set tail [file tail $testfile] |
||
| 66 | if {[lsearch -exact $ASYNC_INCLUDE $tail]<0} continue |
||
| 67 | source $testfile |
||
| 68 | |||
| 69 | # Make sure everything is flushed through. This is because [source]ing |
||
| 70 | # the next test file will delete the database file on disk (using |
||
| 71 | # [file delete]). If the asynchronous backend still has the file |
||
| 72 | # open, it will become confused. |
||
| 73 | # |
||
| 74 | flush_async_queue |
||
| 75 | } |
||
| 76 | |||
| 77 | # Flush the write-queue and disable asynchronous IO. This should ensure |
||
| 78 | # all allocated memory is cleaned up. |
||
| 79 | set sqlite3async_trace 1 |
||
| 80 | flush_async_queue |
||
| 81 | sqlite3async_shutdown |
||
| 82 | set sqlite3async_trace 0 |
||
| 83 | |||
| 84 | rename do_test {} |
||
| 85 | rename async_really_do_test do_test |
||
| 86 | rename finish_test {} |
||
| 87 | rename async_really_finish_test finish_test |
||
| 88 | |||
| 89 | if {[info exists ASYNC_SAVE_ISQUICK]} { set G(isquick) $ASYNC_SAVE_ISQUICK } |
||
| 90 | finish_test |