# 2005 October 3 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # 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 implements regression tests for SQLite library. # # This file implements tests the ability of the library to open # many different databases at the same time without leaking memory. # # $Id: manydb.test,v 1.3 2006/01/11 01:08:34 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl set N 300 # First test how many file descriptors are available for use. To open a # database for writing SQLite requires 3 file descriptors (the database, the # journal and the directory). set filehandles {} catch { for {set i 0} {$i<($N * 3)} {incr i} { lappend filehandles [open testfile.1 w] } } foreach fd $filehandles { close $fd } catch { file delete -force testfile.1 } set N [expr $i / 3] # Create a bunch of random database names # unset -nocomplain dbname unset -nocomplain used for {set i 0} {$i<$N} {incr i} { while 1 { set name test-[format %08x [expr {int(rand()*0x7fffffff)}]].db if {[info exists used($name)]} continue set dbname($i) $name set used($name) $i break } } # Create a bunch of databases # for {set i 0} {$i<$N} {incr i} { do_test manydb-1.$i { sqlite3 db$i $dbname($i) execsql { CREATE TABLE t1(a,b); BEGIN; INSERT INTO t1 VALUES(1,2); } db$i } {} } # Finish the transactions # for {set i 0} {$i<$N} {incr i} { do_test manydb-2.$i { execsql { COMMIT; SELECT * FROM t1; } db$i } {1 2} } # Close the databases and erase the files. # for {set i 0} {$i<$N} {incr i} { do_test manydb-3.$i { db$i close file delete -force $dbname($i) } {} } finish_test