Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Adjust tests related to extension loading to make them work better for POSIX. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a5895007d137ef9977720e8768d213f5 |
| User & Date: | mistachkin 2016-03-23 17:52:49 |
Context
|
2016-03-23
| ||
| 17:55 | Update version history docs. check-in: 263115f797 user: mistachkin tags: trunk | |
| 17:52 | Adjust tests related to extension loading to make them work better for POSIX. check-in: a5895007d1 user: mistachkin tags: trunk | |
| 17:50 | Further portability enhancements for the native library pre-loader and the 'vtshim' extension loader, permitting it to work better on POSIX. check-in: 4b1c267ac6 user: mistachkin tags: trunk | |
Changes
Changes to Tests/basic.eagle.
2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 .... 2685 2686 2687 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 .... 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 .... 3227 3228 3229 3230 3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241 .... 3937 3938 3939 3940 3941 3942 3943 3944 3945 3946 3947 3948 3949 3950 3951 |
runTest {test data-1.56 {totype extension} -setup {
setupDb [set fileName data-1.56.db]
} -body {
set connection [getDbConnection]
set result [list]
$connection EnableExtensions true
$connection LoadExtension [getCoreBinaryFileName] sqlite3_totype_init
lappend result [sql execute -execute scalar $db "SELECT tointeger('1');"]
lappend result [sql execute -execute scalar $db "SELECT tointeger('1x');"]
lappend result [sql execute -execute scalar $db "SELECT toreal('1.01');"]
lappend result [sql execute -execute scalar $db "SELECT toreal('1.0x');"]
set result
................................................................................
} -body {
unset -nocomplain pattern result
set connection [getDbConnection]
set result(1) [list]
$connection EnableExtensions true
$connection LoadExtension [getCoreBinaryFileName] sqlite3_regexp_init
set pattern(1) {^\d+ [A-Z]{1,3}$}; # valid
set pattern(2) {^\d+ [C]($}; # invalid
lappend result(1) [catch {
sql execute -execute scalar $db "SELECT REGEXP('$pattern(1)', '1 AB');"
} result(2)] $result(2)
................................................................................
runTest {test data-1.59 {percentile extension} -setup {
setupDb [set fileName data-1.59.db]
} -body {
set connection [getDbConnection]
set result [list]
$connection EnableExtensions true
$connection LoadExtension [getCoreBinaryFileName] sqlite3_percentile_init
lappend result [sql execute $db "CREATE TABLE t1(x);"]
lappend result [sql execute $db "INSERT INTO t1 VALUES(1),(2),(3),(4);"]
lappend result [sql execute $db "SELECT percentile(x,25) FROM t1;"]
lappend result [sql execute -execute scalar $db \
"SELECT percentile(x,25) FROM t1;"]
................................................................................
runTest {test data-1.71 {fts5 extension} -setup {
setupDb [set fileName data-1.71.db]
} -body {
set connection [getDbConnection]
set result [list]
$connection EnableExtensions true
$connection LoadExtension [getCoreBinaryFileName] sqlite3_fts5_init
lappend result [sql execute -execute scalar $db "SELECT fts5_source_id();"]
lappend result [sql execute -execute scalar $db \
"CREATE VIRTUAL TABLE t1 USING fts5(x, prefix=\"1\");"]
foreach x [list cat dog horse house] {
................................................................................
INSERT INTO big (json) VALUES('{"a" : [8, 9.1, true, false, null, "y"]}');
}
set connection [getDbConnection]
set result [list]
$connection EnableExtensions true
$connection LoadExtension [getCoreBinaryFileName] sqlite3_json_init
lappend result [sql execute -execute scalar $db \
{SELECT json('{ "this" : "is", "a": [ "test" ] }');}]
lappend result [sql execute -execute reader -format list $db \
"SELECT rowid, json_type(json) FROM big;"]
|
> | > > | > > | > > | > > | > |
2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 .... 2687 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2703 .... 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 .... 3233 3234 3235 3236 3237 3238 3239 3240 3241 3242 3243 3244 3245 3246 3247 3248 3249 .... 3945 3946 3947 3948 3949 3950 3951 3952 3953 3954 3955 3956 3957 3958 3959 3960 3961 |
runTest {test data-1.56 {totype extension} -setup {
setupDb [set fileName data-1.56.db]
} -body {
set connection [getDbConnection]
set result [list]
$connection EnableExtensions true
$connection LoadExtension \
[getNativeLibraryFileName null] sqlite3_totype_init
lappend result [sql execute -execute scalar $db "SELECT tointeger('1');"]
lappend result [sql execute -execute scalar $db "SELECT tointeger('1x');"]
lappend result [sql execute -execute scalar $db "SELECT toreal('1.01');"]
lappend result [sql execute -execute scalar $db "SELECT toreal('1.0x');"]
set result
................................................................................
} -body {
unset -nocomplain pattern result
set connection [getDbConnection]
set result(1) [list]
$connection EnableExtensions true
$connection LoadExtension \
[getNativeLibraryFileName null] sqlite3_regexp_init
set pattern(1) {^\d+ [A-Z]{1,3}$}; # valid
set pattern(2) {^\d+ [C]($}; # invalid
lappend result(1) [catch {
sql execute -execute scalar $db "SELECT REGEXP('$pattern(1)', '1 AB');"
} result(2)] $result(2)
................................................................................
runTest {test data-1.59 {percentile extension} -setup {
setupDb [set fileName data-1.59.db]
} -body {
set connection [getDbConnection]
set result [list]
$connection EnableExtensions true
$connection LoadExtension \
[getNativeLibraryFileName null] sqlite3_percentile_init
lappend result [sql execute $db "CREATE TABLE t1(x);"]
lappend result [sql execute $db "INSERT INTO t1 VALUES(1),(2),(3),(4);"]
lappend result [sql execute $db "SELECT percentile(x,25) FROM t1;"]
lappend result [sql execute -execute scalar $db \
"SELECT percentile(x,25) FROM t1;"]
................................................................................
runTest {test data-1.71 {fts5 extension} -setup {
setupDb [set fileName data-1.71.db]
} -body {
set connection [getDbConnection]
set result [list]
$connection EnableExtensions true
$connection LoadExtension \
[getNativeLibraryFileName null] sqlite3_fts5_init
lappend result [sql execute -execute scalar $db "SELECT fts5_source_id();"]
lappend result [sql execute -execute scalar $db \
"CREATE VIRTUAL TABLE t1 USING fts5(x, prefix=\"1\");"]
foreach x [list cat dog horse house] {
................................................................................
INSERT INTO big (json) VALUES('{"a" : [8, 9.1, true, false, null, "y"]}');
}
set connection [getDbConnection]
set result [list]
$connection EnableExtensions true
$connection LoadExtension \
[getNativeLibraryFileName null] sqlite3_json_init
lappend result [sql execute -execute scalar $db \
{SELECT json('{ "this" : "is", "a": [ "test" ] }');}]
lappend result [sql execute -execute reader -format list $db \
"SELECT rowid, json_type(json) FROM big;"]
|
Changes to Tests/tkt-17045010df.eagle.
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 |
runTest {test tkt-17045010df-1.1 {EnableExtensions & LoadExtension} -setup {
setupDb [set fileName tkt-17045010df-1.1.db]
} -body {
set connection [getDbConnection]
lappend result [catchAndReturn {$connection EnableExtensions false}]
lappend result [catchAndReturn {$connection LoadExtension \
[getCoreBinaryFileName] interop_test_extension_init}]
lappend result [catchAndReturn {sql execute -execute scalar $db \
"SELECT interopTest('test1');"}]
lappend result [catchAndReturn {sql execute -execute scalar $db \
"SELECT interopTest('test1', '1234');"}]
lappend result [catchAndReturn {$connection EnableExtensions true}]
lappend result [catchAndReturn {$connection LoadExtension \
[getCoreBinaryFileName] interop_test_extension_init}]
lappend result [catchAndReturn {sql execute -execute scalar $db \
"SELECT interopTest('test2');"}]
lappend result [catchAndReturn {sql execute -execute scalar $db \
"SELECT interopTest('test2', '5678');"}]
set result
|
> | > | |
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 |
runTest {test tkt-17045010df-1.1 {EnableExtensions & LoadExtension} -setup {
setupDb [set fileName tkt-17045010df-1.1.db]
} -body {
set connection [getDbConnection]
lappend result [catchAndReturn {$connection EnableExtensions false}]
lappend result [catchAndReturn {$connection LoadExtension \
[getNativeLibraryFileName null] interop_test_extension_init}]
lappend result [catchAndReturn {sql execute -execute scalar $db \
"SELECT interopTest('test1');"}]
lappend result [catchAndReturn {sql execute -execute scalar $db \
"SELECT interopTest('test1', '1234');"}]
lappend result [catchAndReturn {$connection EnableExtensions true}]
lappend result [catchAndReturn {$connection LoadExtension \
[getNativeLibraryFileName null] interop_test_extension_init}]
lappend result [catchAndReturn {sql execute -execute scalar $db \
"SELECT interopTest('test2');"}]
lappend result [catchAndReturn {sql execute -execute scalar $db \
"SELECT interopTest('test2', '5678');"}]
set result
|
Changes to Tests/vtab.eagle.
16 17 18 19 20 21 22 23 24 25 26 27 28 29 .. 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 ... 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 ... 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 ... 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 ... 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 ... 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 .... 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 .... 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 .... 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 .... 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 .... 1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 .... 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 .... 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 .... 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 |
###############################################################################
package require System.Data.SQLite.Test
runSQLiteTestPrologue
###############################################################################
runTest {test vtab-1.1 {basic virtual table support} -setup {
set fileName vtab-1.1.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
set dataSource [file join [getDatabaseDirectory] $fileName]
set sql { \
................................................................................
}
}] true true true results errors System.Data.SQLite.dll]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result \
{^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runTest {test vtab-1.2.1 {IEnumerable virtual table} -setup {
set fileName vtab-1.2.1.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{one two three 4 5\.0 Error\
\{SQL logic error or missing database
virtual table "t\d+" is read-only\}\}$}]}
###############################################################################
runTest {test vtab-1.2.2 {IEnumerable virtual table} -setup {
set fileName vtab-1.2.2.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{one two three 4 5\.0 Error\
\{SQL logic error or missing database
virtual table "t\d+" is read-only\}\}$}]}
###############################################################################
runTest {test vtab-1.3.1 {IEnumerable<T> virtual table} -setup {
set fileName vtab-1.3.1.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList 1 2 3 4 5
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{1 2 3 4 5 Error \{SQL\
logic error or missing database
virtual table "t\d+" is read-only\}\}$}]}
###############################################################################
runTest {test vtab-1.3.2 {IEnumerable<T> virtual table} -setup {
set fileName vtab-1.3.2.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList 1 2 3 4 5
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{1 2 3 4 5 Error \{SQL\
logic error or missing database
virtual table "t\d+" is read-only\}\}$}]}
###############################################################################
runTest {test vtab-1.4 {virtual table function support} -setup {
set fileName vtab-1.4.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\{\} b25l \{SQL logic\
error or missing database
unable to use function Base64 in the requested context\} \{SQL logic error or\
missing database
no such function: Base65\}\}$}]}
###############################################################################
runTest {test vtab-1.5 {virtual table function support} -setup {
set fileName vtab-1.5.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\{\} b25l \{SQL logic\
error or missing database
(?:unable to use function Base64 in the requested context|need exactly one\
argument, got 3)\} \{SQL logic error or missing database
no such function: Base65\}\}$}]}
###############################################################################
runTest {test vtab-1.6 {virtual table rename support} -setup {
set fileName vtab-1.6.db
} -body {
set id [object invoke Interpreter.GetActive NextId]
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\{\} t\d+ \{\} x\d+\}$}]}
###############################################################################
runTest {test vtab-1.7 {virtual table xBestIndex marshalling (1)} -setup {
set fileName vtab-1.7.db
} -body {
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{0 5 two three one 5\.0\
4 \{ConstraintUsages is OK\}\}$}]}
###############################################################################
runTest {test vtab-1.8 {virtual table xBestIndex marshalling (2)} -setup {
set fileName vtab-1.8.db
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{0 5 one three\
\{ConstraintUsages is OK\}\}$}]}
###############################################################################
runTest {test vtab-1.9 {IEnumerable virtual table w/large byte array} -setup {
set fileName vtab-1.9.db
................................................................................
}
}] true true true results errors System.Data.SQLite.dll]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetSum
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -time true -constraints {eagle command.object monoBug28 command.sql\
compile.DATA SQLite System.Data.SQLite\
defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE compileCSharp} -match \
regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 (?:-)?\d+$}]}
###############################################################################
runTest {test vtab-1.10 {virtual table xRowId uniqueness} -setup {
set fileName vtab-1.10.db
} -body {
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList one one two one two two
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{0 4294967296 4294967296\
8589934592 8589934592 12884901888 12884901888 17179869184 17179869184\
21474836480 21474836480 25769803776 25769803776\}$}]}
###############################################################################
runTest {test vtab-1.11 {IEnumerable virtual table w/object identity} -setup {
................................................................................
}
}] true true true results errors [list System.Data.SQLite.dll Eagle.dll]]
list $code $results \
[expr {[info exists errors] ? $errors : ""}] \
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors sql dataSource id fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\
compileCSharp} -match regexp -result [string map [list \n \r\n] {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{-?\d+ one -?\d+ two -?\d+\
three -?\d+ 4 -?\d+ 5\.0\}$}]}
###############################################################################
runTest {test vtab-1.12 {SQLiteIndex managed-to-native-to-managed} -setup {
set nConstraint 3; set nOrderBy 3
................................................................................
unset -nocomplain constraintUsage
unset -nocomplain orderBy nOrderBy iOrderBy
unset -nocomplain constraint nConstraint iConstraint
unset -nocomplain pIndex index
} -constraints {eagle command.object SQLite System.Data.SQLite\
defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE} -result {}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
> > > > > > > > > > > > | | | | | | | | | | | | | < | | | < | | | < | | | | | < | | | | | | | | | | | | | | | > > > > |
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 ... 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 ... 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 ... 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 ... 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 ... 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 ... 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 .... 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 .... 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 .... 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 .... 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 .... 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 .... 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 .... 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 .... 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 |
############################################################################### package require System.Data.SQLite.Test runSQLiteTestPrologue ############################################################################### proc normalizeVtabResult { value } { set result $value if {[string first \r $result] != -1} then { set result [string map [list \r\n \n] $result] } return [string map [list \n " -- "] $result] } ############################################################################### runTest {test vtab-1.1 {basic virtual table support} -setup { set fileName vtab-1.1.db } -body { set id [object invoke Interpreter.GetActive NextId] set dataSource [file join [getDatabaseDirectory] $fileName] set sql { \ ................................................................................ } }] true true true results errors System.Data.SQLite.dll] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult \ {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}]} ############################################################################### runTest {test vtab-1.2.1 {IEnumerable virtual table} -setup { set fileName vtab-1.2.1.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0 } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{one two three 4 5\.0 Error\ \{SQL logic error or missing database -- virtual table "t\d+" is\ read-only\}\}$}]} ############################################################################### runTest {test vtab-1.2.2 {IEnumerable virtual table} -setup { set fileName vtab-1.2.2.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0 } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{one two three 4 5\.0 Error\ \{SQL logic error or missing database -- virtual table "t\d+" is\ read-only\}\}$}]} ############################################################################### runTest {test vtab-1.3.1 {IEnumerable<T> virtual table} -setup { set fileName vtab-1.3.1.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList 1 2 3 4 5 } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{1 2 3 4 5 Error \{SQL\ logic error or missing database -- virtual table "t\d+" is read-only\}\}$}]} ############################################################################### runTest {test vtab-1.3.2 {IEnumerable<T> virtual table} -setup { set fileName vtab-1.3.2.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList 1 2 3 4 5 } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{1 2 3 4 5 Error \{SQL\ logic error or missing database -- virtual table "t\d+" is read-only\}\}$}]} ############################################################################### runTest {test vtab-1.4 {virtual table function support} -setup { set fileName vtab-1.4.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\{\} b25l \{SQL logic\ error or missing database -- unable to use function Base64 in the requested\ context\} \{SQL logic error or missing database -- no such function:\ Base65\}\}$}]} ############################################################################### runTest {test vtab-1.5 {virtual table function support} -setup { set fileName vtab-1.5.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\{\} b25l \{SQL logic\ error or missing database -- (?:unable to use function Base64 in the requested\ context|need exactly one argument, got 3)\} \{SQL logic error or missing\ database -- no such function: Base65\}\}$}]} ############################################################################### runTest {test vtab-1.6 {virtual table rename support} -setup { set fileName vtab-1.6.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\{\} t\d+ \{\} x\d+\}$}]} ############################################################################### runTest {test vtab-1.7 {virtual table xBestIndex marshalling (1)} -setup { set fileName vtab-1.7.db } -body { ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0 } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{0 5 two three one 5\.0\ 4 \{ConstraintUsages is OK\}\}$}]} ############################################################################### runTest {test vtab-1.8 {virtual table xBestIndex marshalling (2)} -setup { set fileName vtab-1.8.db ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0 } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{0 5 one three\ \{ConstraintUsages is OK\}\}$}]} ############################################################################### runTest {test vtab-1.9 {IEnumerable virtual table w/large byte array} -setup { set fileName vtab-1.9.db ................................................................................ } }] true true true results errors System.Data.SQLite.dll] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetSum } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -time true -constraints {eagle command.object monoBug28 command.sql\ compile.DATA SQLite System.Data.SQLite\ defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE compileCSharp} -match \ regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 (?:-)?\d+$}]} ############################################################################### runTest {test vtab-1.10 {virtual table xRowId uniqueness} -setup { set fileName vtab-1.10.db } -body { ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList one one two one two two } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{0 4294967296 4294967296\ 8589934592 8589934592 12884901888 12884901888 17179869184 17179869184\ 21474836480 21474836480 25769803776 25769803776\}$}]} ############################################################################### runTest {test vtab-1.11 {IEnumerable virtual table w/object identity} -setup { ................................................................................ } }] true true true results errors [list System.Data.SQLite.dll Eagle.dll]] list $code $results \ [expr {[info exists errors] ? $errors : ""}] \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetList one two three 4 5.0 } result] : [set result ""]}] [normalizeVtabResult $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE\ compileCSharp} -match regexp -result [normalizeVtabResult {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{-?\d+ one -?\d+ two -?\d+\ three -?\d+ 4 -?\d+ 5\.0\}$}]} ############################################################################### runTest {test vtab-1.12 {SQLiteIndex managed-to-native-to-managed} -setup { set nConstraint 3; set nOrderBy 3 ................................................................................ unset -nocomplain constraintUsage unset -nocomplain orderBy nOrderBy iOrderBy unset -nocomplain constraint nConstraint iConstraint unset -nocomplain pIndex index } -constraints {eagle command.object SQLite System.Data.SQLite\ defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE} -result {}} ############################################################################### rename normalizeVtabResult "" ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to lib/System.Data.SQLite/common.eagle.
502 503 504 505 506 507 508 509 510 511 512 513 514 515 |
# NOTE: Otherwise, return both the generic POSIX file name and the
# Mac OS X file name, since we do not currently have an easy
# way to detect which of those platforms we are running on.
#
return [list libsqlite3.so libsqlite3.dylib]
}
}
proc isBuildAvailable { native directory {varName ""} } {
#
# NOTE: Build the fully qualified file name for the primary assembly
# containing the System.Data.SQLite managed components. It
# should be noted that this assembly file may also contain the
# native components, if a native build is in use.
|
> > > > > > > > > > > > > > |
502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 |
# NOTE: Otherwise, return both the generic POSIX file name and the
# Mac OS X file name, since we do not currently have an easy
# way to detect which of those platforms we are running on.
#
return [list libsqlite3.so libsqlite3.dylib]
}
}
proc getNativeLibraryFileName { {default ""} } {
set directory [file dirname [getCoreBinaryFileName]]
foreach fileNameOnly [getNativeLibraryFileNamesOnly] {
set fileName [file join $directory $fileNameOnly]
if {[file exists $fileName]} then {
return $fileName
}
}
return $default
}
proc isBuildAvailable { native directory {varName ""} } {
#
# NOTE: Build the fully qualified file name for the primary assembly
# containing the System.Data.SQLite managed components. It
# should be noted that this assembly file may also contain the
# native components, if a native build is in use.
|