Index: third_party/sqlite/sqlite-src-3080704/test/syscall.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/syscall.test b/third_party/sqlite/sqlite-src-3080704/test/syscall.test |
deleted file mode 100644 |
index c2d9979031ff61b827e783472328526017902503..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/syscall.test |
+++ /dev/null |
@@ -1,278 +0,0 @@ |
-# 2011 March 29 |
-# |
-# 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. |
-# |
-#*********************************************************************** |
-# |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
-source $testdir/lock_common.tcl |
-source $testdir/malloc_common.tcl |
- |
-if {[llength [info commands test_syscall]]==0} { |
- finish_test |
- return |
-} |
- |
-if {[test_syscall defaultvfs] != "unix"} { |
- finish_test |
- return |
-} |
-set testprefix syscall |
- |
-#------------------------------------------------------------------------- |
-# Tests for the xSetSystemCall method. |
-# |
-do_test 1.1.1 { |
- list [catch { test_syscall reset open } msg] $msg |
-} {0 {}} |
-do_test 1.1.2 { |
- list [catch { test_syscall reset nosuchcall } msg] $msg |
-} {1 SQLITE_NOTFOUND} |
-do_test 1.1.3 { |
- list [catch { test_syscall reset open } msg] $msg |
-} {0 {}} |
-do_test 1.1.4 { |
- list [catch { test_syscall reset ""} msg] $msg |
-} {1 SQLITE_NOTFOUND} |
- |
-do_test 1.2 { test_syscall reset } {} |
- |
-do_test 1.3.1 { test_syscall install {open getcwd access} } {} |
-do_test 1.3.2 { test_syscall reset } {} |
- |
-#------------------------------------------------------------------------- |
-# Tests for the xGetSystemCall method. |
-# |
-do_test 2.1.1 { test_syscall exists open } 1 |
-do_test 2.1.2 { test_syscall exists nosuchcall } 0 |
- |
-#------------------------------------------------------------------------- |
-# Tests for the xNextSystemCall method. |
-# |
-foreach s { |
- open close access getcwd stat fstat ftruncate |
- fcntl read pread write pwrite fchmod fallocate |
- pread64 pwrite64 unlink openDirectory mkdir rmdir |
- statvfs fchown umask mmap munmap mremap |
- getpagesize |
-} { |
- if {[test_syscall exists $s]} {lappend syscall_list $s} |
-} |
-do_test 3.1 { lsort [test_syscall list] } [lsort $syscall_list] |
- |
-#------------------------------------------------------------------------- |
-# This test verifies that if a call to open() fails and errno is set to |
-# EINTR, the call is retried. If it succeeds, execution continues as if |
-# nothing happened. |
-# |
-test_syscall reset |
-forcedelete test.db2 |
-do_execsql_test 4.1 { |
- CREATE TABLE t1(x, y); |
- INSERT INTO t1 VALUES(1, 2); |
- ATTACH 'test.db2' AS aux; |
- CREATE TABLE aux.t2(x, y); |
- INSERT INTO t2 VALUES(3, 4); |
-} |
- |
-db_save_and_close |
-test_syscall install open |
-foreach jrnl [list wal delete] { |
- for {set i 1} {$i < 20} {incr i} { |
- db_restore_and_reopen |
- test_syscall fault $i 0 |
- test_syscall errno open EINTR |
- |
- do_test 4.2.$jrnl.$i { |
- sqlite3 db test.db |
- execsql { ATTACH 'test.db2' AS aux } |
- execsql "PRAGMA main.journal_mode = $jrnl" |
- execsql "PRAGMA aux.journal_mode = $jrnl" |
- execsql { |
- BEGIN; |
- INSERT INTO t1 VALUES(5, 6); |
- INSERT INTO t2 VALUES(7, 8); |
- COMMIT; |
- } |
- |
- db close |
- sqlite3 db test.db |
- execsql { ATTACH 'test.db2' AS aux } |
- execsql { |
- SELECT * FROM t1; |
- SELECT * FROM t2; |
- } |
- } {1 2 5 6 3 4 7 8} |
- } |
-} |
- |
-#------------------------------------------------------------------------- |
-# This test verifies that closing database handles does not drop locks |
-# held by other database handles in the same process on the same file. |
-# |
-# The os_unix.c module has to take precautions to prevent this as the |
-# close() system call drops locks held by other file-descriptors on the |
-# same file. From the Linux man page: |
-# |
-# close() closes a file descriptor, so that it no longer refers to any file |
-# and may be reused. Any record locks (see fcntl(2)) held on the file it |
-# was associated with, and owned by the process, are removed (regardless |
-# of the file descriptor that was used to obtain the lock). |
-# |
-catch { db close } |
-forcedelete test.db test.db2 |
- |
-do_multiclient_test tn { |
- code1 { |
- sqlite3 dbX1 test.db |
- sqlite3 dbX2 test.db |
- } |
- |
- do_test syscall-5.$tn.1 { |
- sql1 { |
- CREATE TABLE t1(a, b); |
- INSERT INTO t1 VALUES(1, 2); |
- BEGIN; |
- INSERT INTO t1 VALUES(3, 4); |
- } |
- } {} |
- |
- do_test syscall-5.$tn.2 { sql2 { SELECT * FROM t1 } } {1 2} |
- do_test syscall-5.$tn.3 { |
- csql2 { INSERT INTO t1 VALUES(5, 6) } |
- } {1 {database is locked}} |
- |
- do_test syscall-5.$tn.4 { |
- code1 { |
- dbX1 close |
- dbX2 close |
- } |
- } {} |
- |
- do_test syscall-5.$tn.5 { |
- csql2 { INSERT INTO t1 VALUES(5, 6) } |
- } {1 {database is locked}} |
- |
- do_test syscall-5.$tn.6 { sql1 { COMMIT } } {} |
- |
- do_test syscall-5.$tn.7 { |
- csql2 { INSERT INTO t1 VALUES(5, 6) } |
- } {0 {}} |
-} |
- |
-catch {db close} |
-do_test 6.1 { |
- sqlite3 db1 test.db1 |
- sqlite3 db2 test.db2 |
- sqlite3 db3 test.db3 |
- sqlite3 dbM "" |
- |
- db2 close |
- db3 close |
- dbM close |
- db1 close |
-} {} |
- |
-do_test 6.2 { |
- sqlite3 db test.db |
- execsql { |
- PRAGMA temp_store = file; |
- |
- PRAGMA main.cache_size = 10; |
- PRAGMA temp.cache_size = 10; |
- CREATE TABLE temp.tt(a, b); |
- INSERT INTO tt VALUES(randomblob(500), randomblob(600)); |
- INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt; |
- INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt; |
- INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt; |
- INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt; |
- INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt; |
- INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt; |
- INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt; |
- INSERT INTO tt SELECT randomblob(500), randomblob(600) FROM tt; |
- } |
- |
- db close |
-} {} |
- |
-#------------------------------------------------------------------------- |
-# Test that a database file a single byte in size is treated as an empty |
-# file. Whereas a file 2 bytes or larger might be considered corrupt. |
-# |
-catch { db close } |
-forcedelete test.db test.db2 |
- |
-proc create_db_file {nByte} { |
- set fd [open test.db w] |
- fconfigure $fd -translation binary -encoding binary |
- puts -nonewline $fd [string range "xSQLite" 1 $nByte] |
- close $fd |
-} |
- |
-foreach {nByte res} { |
- 1 {0 {}} |
- 2 {1 {file is encrypted or is not a database}} |
- 3 {1 {file is encrypted or is not a database}} |
-} { |
- do_test 7.$nByte { |
- create_db_file $nByte |
- list [catch { |
- sqlite3 db test.db |
- execsql { CREATE TABLE t1(a, b) } |
- } msg] $msg |
- } $res |
- catch { db close } |
-} |
- |
-#------------------------------------------------------------------------- |
-# |
-catch { db close } |
-forcedelete test.db test.db2 |
- |
-do_test 8.1 { |
- sqlite3 db test.db |
- file_control_chunksize_test db main 4096 |
- file size test.db |
-} {0} |
-foreach {tn hint size} { |
- 1 1000 4096 |
- 2 1000 4096 |
- 3 3000 4096 |
- 4 4096 4096 |
- 5 4197 8192 |
-} { |
- do_test 8.2.$tn { |
- file_control_sizehint_test db main $hint |
- file size test.db |
- } $size |
-} |
- |
-do_test 8.3 { |
- db close |
- forcedelete test.db test.db2 |
- sqlite3 db test.db |
- file_control_chunksize_test db main 16 |
- file size test.db |
-} {0} |
-foreach {tn hint size} { |
- 1 5 16 |
- 2 13 16 |
- 3 45 48 |
- 4 48 48 |
- 5 49 64 |
-} { |
- do_test 8.4.$tn { |
- file_control_sizehint_test db main $hint |
- file size test.db |
- } $size |
-} |
- |
-test_syscall reset |
-finish_test |