Return to soak.test CVS log

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

Annotation of embedaddon/sqlite3/test/soak.test, revision 1.1

1.1     ! misho       1: # 2007 May 24
        !             2: #
        !             3: # The author disclaims copyright to this source code.  In place of
        !             4: # a legal notice, here is a blessing:
        !             5: #
        !             6: #    May you do good and not evil.
        !             7: #    May you find forgiveness for yourself and forgive others.
        !             8: #    May you share freely, never taking more than you give.
        !             9: #
        !            10: #***********************************************************************
        !            11: # This file is the driver for the "soak" tests. It is a peer of the
        !            12: # quick.test and all.test scripts.
        !            13: #
        !            14: # $Id: soak.test,v 1.4 2008/11/13 18:29:51 shane Exp $
        !            15: 
        !            16: set testdir [file dirname $argv0]
        !            17: source $testdir/tester.tcl
        !            18: rename finish_test really_finish_test
        !            19: proc finish_test {} {}
        !            20: 
        !            21: # By default, guarantee that the tests will run for at least 1 hour.
        !            22: #
        !            23: set TIMEOUT 3600
        !            24: 
        !            25: # Process command-line arguments. 
        !            26: #
        !            27: if {[llength $argv]>0} {
        !            28:   foreach {name value} $argv {
        !            29:     switch -- $name {
        !            30:       -timeout {
        !            31:         set TIMEOUT $value
        !            32:       }
        !            33:       default {
        !            34:          puts stderr "Unknown option: $name"
        !            35:          exit
        !            36:       }
        !            37:     }
        !            38:   }
        !            39: }
        !            40: set argv [list]
        !            41: 
        !            42: # Test plan:
        !            43: #
        !            44: # The general principle is to run those SQLite tests that use
        !            45: # pseudo-random data in some way over and over again for a very 
        !            46: # long time. The number of tests run depends on the value of 
        !            47: # global variable $TIMEOUT - tests are run for at least $TIMEOUT 
        !            48: # seconds.
        !            49: #
        !            50: #   fuzz.test     (pseudo-random SQL statements)
        !            51: #   trans.test    (pseudo-random changes to a database followed by rollbacks)
        !            52: #   fuzz_malloc.test
        !            53: #   corruptC.test (pseudo-random corruption to a database)
        !            54: #
        !            55: # Many database changes maintaining some kind of invariant. 
        !            56: # Storing checksums etc.
        !            57: #
        !            58: 
        !            59: # List of test files that are run by this file.
        !            60: #
        !            61: set SOAKTESTS {
        !            62:   fuzz.test
        !            63:   fuzz_malloc.test
        !            64:   trans.test
        !            65:   corruptC.test
        !            66: }
        !            67: 
        !            68: set G(isquick) 1
        !            69: 
        !            70: set soak_starttime  [clock seconds]
        !            71: set soak_finishtime [expr {$soak_starttime + $TIMEOUT}]
        !            72: 
        !            73: # Loop until the timeout is reached or an error occurs.
        !            74: #
        !            75: for {set iRun 0} {[clock seconds] < $soak_finishtime} {incr iRun} {
        !            76: 
        !            77:   set iIdx [expr {$iRun % [llength $SOAKTESTS]}]
        !            78:   source [file join $testdir [lindex $SOAKTESTS $iIdx]]
        !            79:   catch {db close}
        !            80: 
        !            81:   if {$sqlite_open_file_count>0} {
        !            82:     puts "$tail did not close all files: $sqlite_open_file_count"
        !            83:     fail_test $tail
        !            84:     set sqlite_open_file_count 0
        !            85:   }
        !            86: 
        !            87:   if {[set_test_counter errors]>0} break
        !            88: }
        !            89: 
        !            90: really_finish_test