[sqlite] Remove obsolete reference version 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/test/syscall.test

-# 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