Return to attach4.test CVS log

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

Annotation of embedaddon/sqlite3/test/attach4.test, revision 1.1.1.1

1.1       misho       1: # 200 July 1
                      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.  The
                     12: # focus of this script is attaching many database files to a single
                     13: # connection.
                     14: #
                     15: 
                     16: set testdir [file dirname $argv0]
                     17: source $testdir/tester.tcl
                     18: 
                     19: set testprefix attach4
                     20: 
                     21: ifcapable !attach {
                     22:   finish_test
                     23:   return
                     24: }
                     25: 
                     26: puts "Testing with SQLITE_MAX_ATTACHED=$SQLITE_MAX_ATTACHED"
                     27: 
                     28: set files {main test.db}
                     29: for {set ii 0} {$ii < $SQLITE_MAX_ATTACHED} {incr ii} {
                     30:   lappend files aux$ii "test.db$ii"
                     31: }
                     32: 
                     33: do_test 1.1 {
                     34:   sqlite3_limit db SQLITE_LIMIT_ATTACHED -1
                     35: } $SQLITE_MAX_ATTACHED
                     36: 
                     37: do_test 1.2.1 {
                     38:   db close
                     39:   foreach {name f} $files { forcedelete $f }
                     40:   sqlite3 db test.db
                     41:   
                     42:   foreach {name f} $files {
                     43:     if {$name == "main"} continue
                     44:     execsql "ATTACH '$f' AS $name"
                     45:   }
                     46: 
                     47:   db eval {PRAGMA database_list} {
                     48:     lappend L $name [file tail $file]
                     49:   }
                     50:   set L
                     51: } $files
                     52: 
                     53: do_catchsql_test 1.2.2 {
                     54:   ATTACH 'x.db' AS next;
                     55: } [list 1 "too many attached databases - max $SQLITE_MAX_ATTACHED"]
                     56: 
                     57: do_test 1.3 {
                     58:   execsql BEGIN;
                     59:   foreach {name f} $files {
                     60:     execsql "CREATE TABLE $name.tbl(x)"
                     61:     execsql "INSERT INTO $name.tbl VALUES('$f')"
                     62:   }
                     63:   execsql COMMIT;
                     64: } {}
                     65: 
                     66: do_test 1.4 {
                     67:   set L [list]
                     68:   foreach {name f} $files {
                     69:     lappend L $name [execsql "SELECT x FROM $name.tbl"]
                     70:   }
                     71:   set L
                     72: } $files
                     73: 
                     74: set L [list]
                     75: set S ""
                     76: foreach {name f} $files {
                     77:   if {[permutation] == "journaltest"} {
                     78:     set mode delete
                     79:   } else {
                     80:     set mode wal
                     81:   }
                     82:   ifcapable !wal { set mode delete }
                     83:   lappend L $mode
                     84:   append S "
                     85:     PRAGMA $name.journal_mode = WAL;
                     86:     UPDATE $name.tbl SET x = '$name';
                     87:   "
                     88: }
                     89: do_execsql_test 1.5 $S $L
                     90: 
                     91: do_test 1.6 {
                     92:   set L [list]
                     93:   foreach {name f} $files {
                     94:     lappend L [execsql "SELECT x FROM $name.tbl"] $f
                     95:   }
                     96:   set L
                     97: } $files
                     98: 
                     99: do_test 1.7 {
                    100:   execsql BEGIN;
                    101:   foreach {name f} $files {
                    102:     execsql "UPDATE $name.tbl SET x = '$f'"
                    103:   }
                    104:   execsql COMMIT;
                    105: } {}
                    106: 
                    107: do_test 1.8 {
                    108:   set L [list]
                    109:   foreach {name f} $files {
                    110:     lappend L $name [execsql "SELECT x FROM $name.tbl"]
                    111:   }
                    112:   set L
                    113: } $files
                    114: 
                    115: db close
                    116: foreach {name f} $files { forcedelete $f }
                    117: 
                    118: finish_test