Home | History | Annotate | Download | only in test 
      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   file delete -force 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     file delete -force $dbname($i)
     96   } {}
     97 }
     98 
     99 
    100 
    101 
    102 finish_test
    103