Return to async.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/async.test, revision 1.1.1.1

1.1       misho       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:   # [delete_file]). 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