Return to notify3.test CVS log

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

sqlite3

    1: # 2010 June 30
    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.  The
   12: # focus of this file is testing the sqlite3_unlock_notify() API.
   13: #
   14: 
   15: set testdir [file dirname $argv0]
   16: source $testdir/tester.tcl
   17: 
   18: # This script only runs if shared-cache and unlock-notify are available.
   19: #
   20: ifcapable !unlock_notify||!shared_cache { 
   21:   finish_test 
   22:   return 
   23: }
   24: 
   25: set esc [sqlite3_enable_shared_cache 1]
   26: 
   27: sqlite3 db  test.db
   28: forcedelete test.db2 test.db2-journal test.db2-wal
   29: sqlite3 db2 test.db2
   30: 
   31: do_test notify3-1.1 {
   32:   execsql { 
   33:     CREATE TABLE t1(a, b); 
   34:     INSERT INTO t1 VALUES('t1 A', 't1 B');
   35:   }
   36: } {}
   37: do_test notify3-1.2 {
   38:   execsql { 
   39:     CREATE TABLE t2(a, b);
   40:     INSERT INTO t2 VALUES('t2 A', 't2 B');
   41:   } db2
   42: } {}
   43: 
   44: do_test notify3-1.3 {
   45:   execsql { 
   46:     BEGIN EXCLUSIVE;
   47:     INSERT INTO t2 VALUES('t2 C', 't2 D');
   48:   } db2
   49: } {}
   50: do_test notify3-1.4 {
   51:   catchsql { ATTACH 'test.db2' AS aux }
   52: } {0 {}}
   53: 
   54: do_test notify3-1.5 {
   55:   catchsql { SELECT * FROM t2 }
   56: } {1 {database schema is locked: aux}}
   57: 
   58: do_test notify3-1.6 {
   59:   list [sqlite3_errcode db] [sqlite3_extended_errcode db]
   60: } {SQLITE_LOCKED SQLITE_LOCKED_SHAREDCACHE}
   61: 
   62: do_test notify3-1.7 {
   63:   sqlite3_extended_result_codes db 1
   64:   catch { set ::stmt [sqlite3_prepare_v2 db "SELECT * FROM t2" -1 tail] } msg
   65:   set msg
   66: } {(262) database schema is locked: aux}
   67: 
   68: do_test notify3-1.8 {
   69:   set ::when 1
   70:   db unlock_notify { set ::res $::when }
   71:   set ::when 2
   72:   execsql { COMMIT } db2
   73:   set ::res
   74: } {2}
   75: do_test notify3-1.9 {
   76:   catchsql { SELECT * FROM t2 }
   77: } {0 {{t2 A} {t2 B} {t2 C} {t2 D}}}
   78: db close
   79: 
   80: 
   81: set err   {{1 {unable to open database: test.db2}}}
   82: set noerr {{0 {}}}
   83: 
   84: # When a new database is attached, the connection doing the attaching 
   85: # tries to load any unloaded schemas for both the new database and any
   86: # already attached databases (including the main database). If it is
   87: # unable to load any such schemas, then the ATTACH statement fails.
   88: #
   89: # This block tests that if the loading of schemas as a result of an
   90: # ATTACH fails due to locks on the schema table held by other shared-cache
   91: # connections the extended error code is SQLITE_LOCKED_SHAREDCACHE and
   92: # it is possible to use the unlock-notify mechanism to determine when
   93: # the ATTACH might succeed.
   94: #
   95: # This test does not work for test-permutations that specify SQL to
   96: # be executed as part of the [sqlite3] command that opens the database.
   97: # Executing such SQL causes SQLite to load the database schema into memory 
   98: # earlier than expected, causing test cases to fail.
   99: #
  100: if {[presql] == ""} {
  101:   foreach {
  102:     tn
  103:     db1_loaded
  104:     db2_loaded
  105:     enable_extended_errors
  106:     result
  107:     error1 error2
  108:   } "
  109:     0   0 0 0   $err     SQLITE_LOCKED               SQLITE_LOCKED_SHAREDCACHE
  110:     1   0 0 1   $err     SQLITE_LOCKED_SHAREDCACHE   SQLITE_LOCKED_SHAREDCACHE
  111:     2   0 1 0   $err     SQLITE_LOCKED               SQLITE_LOCKED_SHAREDCACHE
  112:     3   0 1 1   $err     SQLITE_LOCKED_SHAREDCACHE   SQLITE_LOCKED_SHAREDCACHE
  113:     4   1 0 0   $err     SQLITE_LOCKED               SQLITE_LOCKED_SHAREDCACHE
  114:     5   1 0 1   $err     SQLITE_LOCKED_SHAREDCACHE   SQLITE_LOCKED_SHAREDCACHE
  115:     6   1 1 0   $noerr   SQLITE_OK                   SQLITE_OK
  116:     7   1 1 1   $noerr   SQLITE_OK                   SQLITE_OK
  117:   " {
  118:   
  119:     do_test notify3-2.$tn.1 {
  120:       catch { db1 close }
  121:       catch { db2 close }
  122:       sqlite3 db1 test.db
  123:       sqlite3 db2 test.db2
  124:   
  125:       sqlite3_extended_result_codes db1 $enable_extended_errors
  126:       sqlite3_extended_result_codes db2 $enable_extended_errors
  127:   
  128:       if { $db1_loaded } { db1 eval "SELECT * FROM sqlite_master" }
  129:       if { $db2_loaded } { db2 eval "SELECT * FROM sqlite_master" }
  130:   
  131:       db2 eval "BEGIN EXCLUSIVE"
  132:       catchsql "ATTACH 'test.db2' AS two" db1
  133:     } $result
  134:   
  135:     do_test notify3-2.$tn.2 {
  136:       list [sqlite3_errcode db1] [sqlite3_extended_errcode db1]
  137:     } [list $error1 $error2]
  138:   
  139:     do_test notify3-2.$tn.3 {
  140:       db1 unlock_notify {set invoked 1}
  141:       set invoked 0
  142:       db2 eval commit
  143:       set invoked
  144:     } [lindex $result 0]
  145:   }
  146: }
  147: catch { db1 close }
  148: catch { db2 close }
  149: 
  150: 
  151: sqlite3_enable_shared_cache $esc
  152: finish_test
  153: