# 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