gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/dataversion1.test (about) 1 # 2018-07-18 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 # 12 # Test case for SQLITE_FCNTL_DATA_VERSION 13 # 14 15 set testdir [file dirname $argv0] 16 source $testdir/tester.tcl 17 18 # Construct a database and get its initial data version 19 sqlite3 db test.db 20 do_test dataversion1-100 { 21 db eval { 22 CREATE TABLE t1(x); 23 INSERT INTO t1(x) VALUES(99); 24 SELECT * FROM t1; 25 } 26 } {99} 27 set dv1 [file_control_data_version db main] 28 29 # The data version does not change by ATTACH or by changes to 30 # other schemas within the same connection. 31 # 32 do_test dataversion1-101 { 33 db eval { 34 ATTACH ':memory:' AS aux1; 35 CREATE TABLE aux1.t2(y); 36 CREATE TEMP TABLE t3(z); 37 } 38 file_control_data_version db main 39 } $dv1 40 41 # The data version does change when SQL modifies the table 42 do_test dataversion1-110 { 43 db eval { 44 UPDATE t1 SET x=x+1; 45 } 46 set dv2 [file_control_data_version db] 47 expr {$::dv1==$dv2} 48 } {0} 49 50 # But the data version is constant if there are changes to other 51 # schemas 52 set dv1 [file_control_data_version db main] 53 do_test dataversion1-120 { 54 db eval { 55 UPDATE t2 SET y=y+1; 56 } 57 file_control_data_version db 58 } $dv1 59 60 # Changes to the database via another connection are not detected 61 # until there is a read transaction. 62 # 63 sqlite3 db2 test.db 64 do_test dataversion1-130 { 65 db2 eval { 66 SELECT * FROM t1 67 } 68 } {100} 69 do_test dataversion1-131 { 70 file_control_data_version db 71 } $dv1 72 do_test dataversion1-132 { 73 db2 eval { 74 UPDATE t1 SET x=x+1; 75 } 76 set dv2 [file_control_data_version db] 77 expr {$::dv1==$dv2} 78 } {1} 79 do_test dataversion1-133 { 80 db eval {SELECT * FROM t1} 81 set dv2 [file_control_data_version db] 82 expr {$::dv1==$dv2} 83 } {0} 84 85 86 87 finish_test