Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Changes In Branch tkt-886387ad40 Excluding Merge-Ins
This is equivalent to a diff from 53a3809160 to ae33a7a7f3
2015-10-16
| ||
20:36 | Update SQLite core library to the 3.9.1 release. Update version history docs. check-in: ca9e4bc86f user: mistachkin tags: trunk | |
2015-10-15
| ||
22:05 | Add preliminary test case for [886387ad40]. Closed-Leaf check-in: ae33a7a7f3 user: mistachkin tags: tkt-886387ad40 | |
19:51 | Add SQLITE_ENABLE_API_ARMOR to the interop assembly. check-in: 53a3809160 user: mistachkin tags: trunk | |
19:38 | Permit an existing registered function to be replaced. Fix for [2556655d1b]. check-in: cb9c3d67aa user: mistachkin tags: trunk | |
Added Tests/tkt-886387ad40.eagle.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | ############################################################################### # # tkt-886387ad40.eagle -- # # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### package require Eagle package require Eagle.Library package require Eagle.Test runTestPrologue ############################################################################### package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### runTest {test tkt-886387ad40-1.1 {ExecuteNonQuery w/PRAGMA} -setup { setupDb [set fileName tkt-886387ad40-1.1.db] } -body { set connection [getDbConnection] array set sql [list \ 1 "PRAGMA locking_mode;" \ 2 "PRAGMA locking_mode=EXCLUSIVE;" \ 3 "PRAGMA locking_mode;" \ 4 "PRAGMA locking_mode=NORMAL;" \ 5 "PRAGMA locking_mode;" \ 6 "PRAGMA legacy_file_format;" \ 7 "PRAGMA legacy_file_format=1;" \ 8 "PRAGMA legacy_file_format;" \ 9 "PRAGMA legacy_file_format=0;" \ 10 "PRAGMA legacy_file_format;" \ 11 "PRAGMA page_size;" \ 12 "PRAGMA page_size=512;" \ 13 "PRAGMA page_size;" \ 14 "PRAGMA page_size=8192;" \ 15 "PRAGMA page_size;" \ ] set result [list]; set i 0 foreach j [lsort -integer [array names sql]] { incr i set command($i,1) [$connection -alias CreateCommand] $command($i,1) CommandText $sql($j) lappend result [$command($i,1) ExecuteNonQuery] set command($i,2) [$connection -alias CreateCommand] $command($i,2) CommandText $sql($j) lappend result [$command($i,2) ExecuteScalar] } sql execute $db { CREATE TABLE t1(x, y); INSERT INTO t1 (x, y) VALUES(1, RANDOMBLOB(1048576)); INSERT INTO t1 (x, y) VALUES(2, RANDOMBLOB(1048576)); INSERT INTO t1 (x, y) VALUES(3, RANDOMBLOB(1048576)); INSERT INTO t1 (x, y) VALUES(4, RANDOMBLOB(1048576)); } foreach j [lsort -integer [array names sql]] { incr i set command($i,1) [$connection -alias CreateCommand] $command($i,1) CommandText $sql($j) lappend result [$command($i,1) ExecuteNonQuery] set command($i,2) [$connection -alias CreateCommand] $command($i,2) CommandText $sql($j) lappend result [$command($i,2) ExecuteScalar] } set result } -cleanup { unset -nocomplain command freeDbConnection cleanupDb $fileName unset -nocomplain result j i sql connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {-1 normal -1 exclusive -1 exclusive -1 normal -1\ normal -1 0 -1 {} -1 1 -1 {} -1 0 -1 1024 -1 {} -1 512 -1 {} -1 8192 -1 normal\ -1 exclusive -1 exclusive -1 normal -1 normal -1 0 -1 {} -1 1 -1 {} -1 0 -1\ 8192 -1 {} -1 8192 -1 {} -1 8192}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |