Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Modify wal2.test to disable tests requiring TCL 8.5 if the test harness is compiled using TCL 8.4. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
016486c7d544dcf9b7422cb0fb9804aa |
User & Date: | drh 2010-08-02 10:59:14.000 |
Context
2010-08-03
| ||
13:08 | Fix the REPLACE conflict resolution so that it falls back to ABORT when a CHECK constraint fails. Ticket [c38baa3d969eab794]. (check-in: 4e157b7747 user: drh tags: trunk) | |
2010-08-02
| ||
10:59 | Modify wal2.test to disable tests requiring TCL 8.5 if the test harness is compiled using TCL 8.4. (check-in: 016486c7d5 user: drh tags: trunk) | |
10:47 | In shared-cache mode, do not allow one connection to checkpoint a database while a second connection is reading or writing the same shared-cache. (check-in: e75b52d156 user: dan tags: trunk) | |
Changes
Changes to test/wal2.test.
︙ | ︙ | |||
976 977 978 979 980 981 982 983 984 985 986 987 988 989 | } {wal 1 2 3 4 5 6 7 8 9} do_test wal2-11.1.1 { sqlite3 db2 test.db execsql { SELECT name FROM sqlite_master } db2 } {t1} # Set all zeroed slots in the first hash table to invalid values. # set blob [string range [tvfs shm $::filename] 0 16383] set I [string range [tvfs shm $::filename] 16384 end] binary scan $I t* L set I [list] foreach p $L { | > | 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 | } {wal 1 2 3 4 5 6 7 8 9} do_test wal2-11.1.1 { sqlite3 db2 test.db execsql { SELECT name FROM sqlite_master } db2 } {t1} if {$::tcl_version>=8.5} { # Set all zeroed slots in the first hash table to invalid values. # set blob [string range [tvfs shm $::filename] 0 16383] set I [string range [tvfs shm $::filename] 16384 end] binary scan $I t* L set I [list] foreach p $L { |
︙ | ︙ | |||
999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 | # set blob [string range [tvfs shm $::filename] 0 16383] append blob [string repeat [binary format c 55] 16384] tvfs shm $::filename $blob do_test wal2-11.3 { catchsql { SELECT * FROM t1 } db2 } {1 {database disk image is malformed}} db close db2 close tvfs delete #------------------------------------------------------------------------- # If a connection is required to create a WAL or SHM file, it creates | > | 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 | # set blob [string range [tvfs shm $::filename] 0 16383] append blob [string repeat [binary format c 55] 16384] tvfs shm $::filename $blob do_test wal2-11.3 { catchsql { SELECT * FROM t1 } db2 } {1 {database disk image is malformed}} } db close db2 close tvfs delete #------------------------------------------------------------------------- # If a connection is required to create a WAL or SHM file, it creates |
︙ | ︙ | |||
1144 1145 1146 1147 1148 1149 1150 | } $b($can_read,$can_write) } catch { db close } } } finish_test | < | 1146 1147 1148 1149 1150 1151 1152 | } $b($can_read,$can_write) } catch { db close } } } finish_test |