| # 2014 October 30 |
| # |
| # 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 |
| set testprefix e_blobclose |
| |
| set dots [string repeat . 40] |
| do_execsql_test 1.0 { |
| CREATE TABLE x1(a INTEGER PRIMARY KEY, b DOTS); |
| INSERT INTO x1 VALUES(-1, $dots); |
| INSERT INTO x1 VALUES(-10, $dots); |
| INSERT INTO x1 VALUES(-100, $dots); |
| INSERT INTO x1 VALUES(-1000, $dots); |
| INSERT INTO x1 VALUES(-10000, $dots); |
| } |
| |
| # EVIDENCE-OF: R-03145-46390 This function closes an open BLOB handle. |
| # |
| # It's not clear how to test that a blob handle really is closed. |
| # Attempting to use a closed blob handle will likely crash the process. |
| # Assume here that if the SHARED lock on the db file is released, |
| # the blob handle has been closed. |
| # |
| do_execsql_test 1.1 { PRAGMA lock_status } {main unlocked temp closed} |
| sqlite3_blob_open db main x1 b -1 0 B |
| do_execsql_test 1.2 { PRAGMA lock_status } {main shared temp closed} |
| sqlite3_blob_close $B |
| do_execsql_test 1.3 { PRAGMA lock_status } {main unlocked temp closed} |
| |
| |
| # EVIDENCE-OF: R-34027-00617 If the blob handle being closed was opened |
| # for read-write access, and if the database is in auto-commit mode and |
| # there are no other open read-write blob handles or active write |
| # statements, the current transaction is committed. |
| # |
| # 2.1.*: Transaction is not committed if there are other open |
| # read-write blob handles. |
| # |
| # 2.2.*: Transaction is not committed if not in auto-commit mode. |
| # |
| # 2.3.*: Active write statements. |
| # |
| do_test 2.1.1 { |
| sqlite3_blob_open db main x1 b -100 1 B1 |
| sqlite3_blob_open db main x1 b -1000 1 B2 |
| sqlite3_blob_open db main x1 b -10000 1 B3 |
| sqlite3_blob_open db main x1 b -10000 0 B4 ;# B4 is read-only! |
| execsql { PRAGMA lock_status } |
| } {main reserved temp closed} |
| do_test 2.1.2 { |
| sqlite3_blob_close $B1 |
| execsql { PRAGMA lock_status } |
| } {main reserved temp closed} |
| do_test 2.1.3 { |
| sqlite3_blob_close $B2 |
| execsql { PRAGMA lock_status } |
| } {main reserved temp closed} |
| do_test 2.1.4 { |
| sqlite3_blob_close $B3 |
| execsql { PRAGMA lock_status } |
| } {main shared temp closed} |
| do_test 2.1.5 { |
| sqlite3_blob_close $B4 |
| execsql { PRAGMA lock_status } |
| } {main unlocked temp closed} |
| |
| do_test 2.2.1 { |
| sqlite3_blob_open db main x1 b -100 1 B1 |
| execsql { PRAGMA lock_status } |
| } {main reserved temp closed} |
| do_test 2.2.2 { |
| execsql { BEGIN } |
| sqlite3_blob_close $B1 |
| execsql { PRAGMA lock_status } |
| } {main reserved temp closed} |
| do_test 2.2.3 { |
| execsql { COMMIT } |
| execsql { PRAGMA lock_status } |
| } {main unlocked temp closed} |
| |
| proc val {} { |
| sqlite3_blob_close $::B |
| db eval { PRAGMA lock_status } |
| } |
| db func val val |
| do_test 2.3.1 { |
| sqlite3_blob_open db main x1 b -100 1 B |
| execsql { PRAGMA lock_status } |
| } {main reserved temp closed} |
| do_test 2.3.2 { |
| execsql { INSERT INTO x1 VALUES(15, val()) } |
| execsql { PRAGMA lock_status } |
| } {main unlocked temp closed} |
| do_test 2.3.3 { |
| execsql { SELECT * FROM x1 WHERE a = 15 } |
| } {15 {main reserved temp closed}} |
| |
| # A reader does not inhibit commit. |
| do_test 2.3.4 { |
| sqlite3_blob_open db main x1 b -100 1 B |
| execsql { PRAGMA lock_status } |
| } {main reserved temp closed} |
| do_test 2.3.5 { |
| execsql { SELECT a, val() FROM x1 LIMIT 1 } |
| } {-10000 {main shared temp closed}} |
| |
| |
| do_test 3.1 { |
| sqlite3_blob_open db main x1 b -10 1 B |
| execsql { |
| INSERT INTO x1 VALUES(1, 'abc'); |
| SELECT * FROM x1 WHERE a=1; |
| } |
| } {1 abc} |
| do_test 3.2 { |
| sqlite3_blob_write $B 0 "abcdefghij" 10 |
| execsql { SELECT * FROM x1 WHERE a=-10 } |
| } {-10 abcdefghij..............................} |
| |
| do_test 3.3 { |
| sqlite3 db2 test.db |
| execsql { BEGIN ; SELECT * FROM x1 } db2 |
| sqlite3_blob_close $B |
| } {SQLITE_BUSY} |
| |
| # EVIDENCE-OF: R-41959-38737 Otherwise, if this function is passed a |
| # valid open blob handle, the values returned by the sqlite3_errcode() |
| # and sqlite3_errmsg() functions are set before returning. |
| # |
| do_test 3.4 { |
| list [sqlite3_errcode db] [sqlite3_errmsg db] |
| } {SQLITE_BUSY {database is locked}} |
| |
| # EVIDENCE-OF: R-37801-37633 The BLOB handle is closed unconditionally. |
| # Even if this routine returns an error code, the handle is still |
| # closed. |
| # |
| # Test that the lock has been released. Assume this means the handle |
| # is closed, even though blob_close() returned SQLITE_BUSY. |
| # |
| do_execsql_test 3.4 { PRAGMA lock_status } {main unlocked temp closed} |
| |
| # EVIDENCE-OF: R-35111-05628 If an error occurs while committing the |
| # transaction, an error code is returned and the transaction rolled |
| # back. |
| # |
| # Row 1 is removed (it was inserted this transaction) and row -10 |
| # is restored to its original state. Transaction has been rolled back. |
| # |
| do_execsql_test 3.5 { |
| SELECT * FROM x1 WHERE a IN (1, -10); |
| } {-10 ........................................} |
| |
| # EVIDENCE-OF: R-25894-51060 Calling this routine with a null pointer |
| # (such as would be returned by a failed call to sqlite3_blob_open()) is |
| # a harmless no-op. |
| # |
| do_test 4.0 { sqlite3_blob_close 0 } {} |
| |
| finish_test |