Index: third_party/sqlite/sqlite-src-3080704/test/attach4.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/attach4.test b/third_party/sqlite/sqlite-src-3080704/test/attach4.test |
deleted file mode 100644 |
index 77dd7e41154f4a0523ddd110fb50b26b4a8c65b9..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/attach4.test |
+++ /dev/null |
@@ -1,118 +0,0 @@ |
-# 200 July 1 |
-# |
-# 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. The |
-# focus of this script is attaching many database files to a single |
-# connection. |
-# |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
- |
-set testprefix attach4 |
- |
-ifcapable !attach { |
- finish_test |
- return |
-} |
- |
-puts "Testing with SQLITE_MAX_ATTACHED=$SQLITE_MAX_ATTACHED" |
- |
-set files {main test.db} |
-for {set ii 0} {$ii < $SQLITE_MAX_ATTACHED} {incr ii} { |
- lappend files aux$ii "test.db$ii" |
-} |
- |
-do_test 1.1 { |
- sqlite3_limit db SQLITE_LIMIT_ATTACHED -1 |
-} $SQLITE_MAX_ATTACHED |
- |
-do_test 1.2.1 { |
- db close |
- foreach {name f} $files { forcedelete $f } |
- sqlite3 db test.db |
- |
- foreach {name f} $files { |
- if {$name == "main"} continue |
- execsql "ATTACH '$f' AS $name" |
- } |
- |
- db eval {PRAGMA database_list} { |
- lappend L $name [file tail $file] |
- } |
- set L |
-} $files |
- |
-do_catchsql_test 1.2.2 { |
- ATTACH 'x.db' AS next; |
-} [list 1 "too many attached databases - max $SQLITE_MAX_ATTACHED"] |
- |
-do_test 1.3 { |
- execsql BEGIN; |
- foreach {name f} $files { |
- execsql "CREATE TABLE $name.tbl(x)" |
- execsql "INSERT INTO $name.tbl VALUES('$f')" |
- } |
- execsql COMMIT; |
-} {} |
- |
-do_test 1.4 { |
- set L [list] |
- foreach {name f} $files { |
- lappend L $name [execsql "SELECT x FROM $name.tbl"] |
- } |
- set L |
-} $files |
- |
-set L [list] |
-set S "" |
-foreach {name f} $files { |
- if {[permutation] == "journaltest"} { |
- set mode delete |
- } else { |
- set mode wal |
- } |
- ifcapable !wal { set mode delete } |
- lappend L $mode |
- append S " |
- PRAGMA $name.journal_mode = WAL; |
- UPDATE $name.tbl SET x = '$name'; |
- " |
-} |
-do_execsql_test 1.5 $S $L |
- |
-do_test 1.6 { |
- set L [list] |
- foreach {name f} $files { |
- lappend L [execsql "SELECT x FROM $name.tbl"] $f |
- } |
- set L |
-} $files |
- |
-do_test 1.7 { |
- execsql BEGIN; |
- foreach {name f} $files { |
- execsql "UPDATE $name.tbl SET x = '$f'" |
- } |
- execsql COMMIT; |
-} {} |
- |
-do_test 1.8 { |
- set L [list] |
- foreach {name f} $files { |
- lappend L $name [execsql "SELECT x FROM $name.tbl"] |
- } |
- set L |
-} $files |
- |
-db close |
-foreach {name f} $files { forcedelete $f } |
- |
-finish_test |