Import SQLite 3.8.7.4.

third_party/sqlite/src/test/tkt3457.test

 # 2008 October 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.
 #
 #***********************************************************************
@@ skipping 28 matching lines @@
 #                file. Result: SQLITE_OK.
 # 
 do_test tkt3457-1.1 {
   execsql {
     CREATE TABLE t1(a, b, c);
     INSERT INTO t1 VALUES(1, 2, 3);
     BEGIN;
     INSERT INTO t1 VALUES(4, 5, 6);
   }
 
-  file copy -force test.db bak.db
-  file copy -force test.db-journal bak.db-journal
+  forcecopy test.db bak.db
+  forcecopy test.db-journal bak.db-journal
 
   # Fix the first journal-header in the journal-file. Because the
   # journal file has not yet been synced, the 8-byte magic string at the
   # start of the first journal-header has not been written by SQLite.
   # So write it now.
   set fd [open bak.db-journal a+]
   fconfigure $fd -encoding binary -translation binary
   seek $fd 0
   puts -nonewline $fd "\xd9\xd5\x05\xf9\x20\xa1\x63\xd7"
   close $fd
 
   execsql COMMIT
 } {}
 
+# Disable fchmod to make sure SQLite itself does not try to change the
+# permission bits on us
+#
+catch {
+  test_syscall install fchmod
+  test_syscall fault 1 1
+}
+
 do_test tkt3457-1.2 {
-  file copy -force bak.db-journal test.db-journal
+  forcecopy bak.db-journal test.db-journal
   file attributes test.db-journal -permissions ---------
   catchsql { SELECT * FROM t1 }
 } {1 {unable to open database file}}
 do_test tkt3457-1.3 {
-  file copy -force bak.db-journal test.db-journal
+  forcecopy bak.db-journal test.db-journal
   file attributes test.db-journal -permissions -w--w--w-
   catchsql { SELECT * FROM t1 }
 } {1 {unable to open database file}}
 do_test tkt3457-1.4 {
-  file copy -force bak.db-journal test.db-journal
+  forcecopy bak.db-journal test.db-journal
   file attributes test.db-journal -permissions r--r--r--
   catchsql { SELECT * FROM t1 }
 } {1 {unable to open database file}}
 
 do_test tkt3457-1.5 {
-  file copy -force bak.db-journal test.db-journal
+  forcecopy bak.db-journal test.db-journal
   file attributes test.db-journal -permissions rw-rw-rw-
   catchsql { SELECT * FROM t1 }
 } {0 {1 2 3 4 5 6}}
 
+# Reenable fchmod
+catch {
+  test_syscall uninstall
+  test_syscall fault 0 0
+}
+
 finish_test