Return to manydb.test CVS log

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

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

1.1     ! misho       1: # 2005 October 3
        !             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 implements regression tests for SQLite library.
        !            12: #
        !            13: # This file implements tests the ability of the library to open
        !            14: # many different databases at the same time without leaking memory.
        !            15: #
        !            16: # $Id: manydb.test,v 1.4 2008/11/21 00:10:35 aswift Exp $
        !            17: 
        !            18: set testdir [file dirname $argv0]
        !            19: source $testdir/tester.tcl
        !            20: 
        !            21: set N 300
        !            22: # if we're using proxy locks, we use 5 filedescriptors for a db
        !            23: # that is open and in the middle of writing changes, normally
        !            24: # sqlite uses 3 (proxy locking adds the conch and the local lock)
        !            25: set using_proxy 0
        !            26: foreach {name value} [array get env SQLITE_FORCE_PROXY_LOCKING] {
        !            27:   set using_proxy value
        !            28: }
        !            29: set num_fd_per_openwrite_db 3
        !            30: if {$using_proxy>0} {
        !            31:   set num_fd_per_openwrite_db 5
        !            32: } 
        !            33: 
        !            34: # First test how many file descriptors are available for use. To open a
        !            35: # database for writing SQLite requires 3 file descriptors (the database, the
        !            36: # journal and the directory).
        !            37: set filehandles {}
        !            38: catch {
        !            39:   for {set i 0} {$i<($N * 3)} {incr i} {
        !            40:     lappend filehandles [open testfile.1 w]
        !            41:   }
        !            42: }
        !            43: foreach fd $filehandles {
        !            44:   close $fd
        !            45: }
        !            46: catch {
        !            47:   forcedelete testfile.1
        !            48: }
        !            49: set N [expr $i / $num_fd_per_openwrite_db]
        !            50: 
        !            51: # Create a bunch of random database names
        !            52: #
        !            53: unset -nocomplain dbname
        !            54: unset -nocomplain used
        !            55: for {set i 0} {$i<$N} {incr i} {
        !            56:   while 1 {
        !            57:     set name test-[format %08x [expr {int(rand()*0x7fffffff)}]].db
        !            58:     if {[info exists used($name)]} continue
        !            59:     set dbname($i) $name
        !            60:     set used($name) $i
        !            61:     break
        !            62:   }
        !            63: }
        !            64: 
        !            65: # Create a bunch of databases
        !            66: #
        !            67: for {set i 0} {$i<$N} {incr i} {
        !            68:   do_test manydb-1.$i {
        !            69:     sqlite3 db$i $dbname($i)
        !            70:     execsql {
        !            71:        CREATE TABLE t1(a,b);
        !            72:        BEGIN;
        !            73:        INSERT INTO t1 VALUES(1,2);
        !            74:     } db$i
        !            75:   } {}
        !            76: }
        !            77: 
        !            78: # Finish the transactions
        !            79: #
        !            80: for {set i 0} {$i<$N} {incr i} {
        !            81:   do_test manydb-2.$i {
        !            82:     execsql {
        !            83:        COMMIT;
        !            84:        SELECT * FROM t1;
        !            85:     } db$i
        !            86:   } {1 2}
        !            87: }
        !            88: 
        !            89: 
        !            90: # Close the databases and erase the files.
        !            91: #
        !            92: for {set i 0} {$i<$N} {incr i} {
        !            93:   do_test manydb-3.$i {
        !            94:     db$i close
        !            95:     forcedelete $dbname($i)
        !            96:   } {}
        !            97: }
        !            98: 
        !            99: 
        !           100: 
        !           101: 
        !           102: finish_test