Return to tkt3457.test CVS log

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

sqlite3

    1: # 2008 October 29
    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.
   12: #
   13: # $Id: tkt3457.test,v 1.1.1.1 2012/02/21 17:04:16 misho Exp $
   14: 
   15: set testdir [file dirname $argv0]
   16: source $testdir/tester.tcl
   17: 
   18: if {$tcl_platform(platform) != "unix"} {
   19:   finish_test
   20:   return
   21: }
   22: 
   23: #-----------------------------------------------------------------------
   24: # To roll back a hot-journal file, the application needs read and write 
   25: # permission on the journal file in question. The following tests test
   26: # the outcome of trying to rollback a hot-journal file when this is not
   27: # the case.
   28: # 
   29: #   tkt3457-1.2: Application has neither read, nor write permission on
   30: #                the hot-journal file. Result: SQLITE_CANTOPEN.
   31: #                
   32: #   tkt3457-1.3: Application has write but not read permission on
   33: #                the hot-journal file. Result: SQLITE_CANTOPEN.
   34: #
   35: #   tkt3457-1.4: Application has read but not write permission on
   36: #                the hot-journal file. Result: SQLITE_CANTOPEN.
   37: #
   38: #   tkt3457-1.5: Application has read/write permission on the hot-journal 
   39: #                file. Result: SQLITE_OK.
   40: # 
   41: do_test tkt3457-1.1 {
   42:   execsql {
   43:     CREATE TABLE t1(a, b, c);
   44:     INSERT INTO t1 VALUES(1, 2, 3);
   45:     BEGIN;
   46:     INSERT INTO t1 VALUES(4, 5, 6);
   47:   }
   48: 
   49:   forcecopy test.db bak.db
   50:   forcecopy test.db-journal bak.db-journal
   51: 
   52:   # Fix the first journal-header in the journal-file. Because the
   53:   # journal file has not yet been synced, the 8-byte magic string at the
   54:   # start of the first journal-header has not been written by SQLite.
   55:   # So write it now.
   56:   set fd [open bak.db-journal a+]
   57:   fconfigure $fd -encoding binary -translation binary
   58:   seek $fd 0
   59:   puts -nonewline $fd "\xd9\xd5\x05\xf9\x20\xa1\x63\xd7"
   60:   close $fd
   61: 
   62:   execsql COMMIT
   63: } {}
   64: 
   65: do_test tkt3457-1.2 {
   66:   forcecopy bak.db-journal test.db-journal
   67:   file attributes test.db-journal -permissions ---------
   68:   catchsql { SELECT * FROM t1 }
   69: } {1 {unable to open database file}}
   70: do_test tkt3457-1.3 {
   71:   forcecopy bak.db-journal test.db-journal
   72:   file attributes test.db-journal -permissions -w--w--w-
   73:   catchsql { SELECT * FROM t1 }
   74: } {1 {unable to open database file}}
   75: do_test tkt3457-1.4 {
   76:   forcecopy bak.db-journal test.db-journal
   77:   file attributes test.db-journal -permissions r--r--r--
   78:   catchsql { SELECT * FROM t1 }
   79: } {1 {unable to open database file}}
   80: 
   81: do_test tkt3457-1.5 {
   82:   forcecopy bak.db-journal test.db-journal
   83:   file attributes test.db-journal -permissions rw-rw-rw-
   84:   catchsql { SELECT * FROM t1 }
   85: } {0 {1 2 3 4 5 6}}
   86: 
   87: finish_test