Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Comment: | Modify the test suite itself to work without the 'object' command, if necessary. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
673875e370f80967817b618a8a48e4d5 |
User & Date: | mistachkin 2015-04-08 23:12:06 |
2015-04-09
| ||
01:06 | Fix test suite usage of the haveSQLiteObjectCommand procedure. check-in: b93bd7e4d2 user: mistachkin tags: trunk | |
2015-04-08
| ||
23:12 | Modify the test suite itself to work without the 'object' command, if necessary. check-in: 673875e370 user: mistachkin tags: trunk | |
22:03 | Modify test suite initialization to work without the 'object' command, if necessary. check-in: 179f0629be user: mistachkin tags: trunk | |
Changes to Externals/Eagle/lib/Eagle1.0/vendor.eagle.
208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 |
# NOTE: Check for any overridden settings that may have been specified via # the command line, etc. # checkForTestOverrides stdout [expr {[info exists test_overrides] ? \ $test_overrides : [list binary_directory build_base_directory \ build_directory common_directory connection_flags database_directory \ datetime_format execute_on_setup release_version scratch_directory \ temporary_directory test_configuration test_configurations \ test_constraints test_machine test_net_fx test_overrides \ test_platform test_suite test_year test_years test_year_clr_v2 \ test_year_clr_v4 vendor_directory]}] false # # NOTE: Set the name of the running test suite, if necessary. # if {![info exists test_suite]} then { set test_suite "System.Data.SQLite Test Suite for Eagle" } |
> | < | | |
208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 |
# NOTE: Check for any overridden settings that may have been specified via # the command line, etc. # checkForTestOverrides stdout [expr {[info exists test_overrides] ? \ $test_overrides : [list binary_directory build_base_directory \ build_directory common_directory connection_flags database_directory \ datetime_format execute_on_setup release_version scratch_directory \ temporary_directory test_clr test_clr_v2 test_clr_v4 \ test_configuration test_configurations test_constraints test_machine \ test_net_fx test_overrides test_platform test_suite test_year \ test_years test_year_clr_v2 test_year_clr_v4 vendor_directory]}] false # # NOTE: Set the name of the running test suite, if necessary. # if {![info exists test_suite]} then { set test_suite "System.Data.SQLite Test Suite for Eagle" } |
Changes to Tests/authorizer.eagle.
133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 |
freeDbConnection unset -nocomplain result code data filter value name sql results callback \ connection db fileName rename onAuthorize "" } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{CreateTable {{0 CreateTable t1 {} main {}}} 0 0} {CreateIndex {{0 CreateIndex\ i1 t1 main {}}} 0 0} {CreateTrigger {{0 CreateTrigger tr1 t1 main {}}} 0 0}\ {CreateView {{0 CreateView v1 {} main {}}} 0 0} {CreateTempTable {{0\ CreateTempTable t2 {} temp {}}} 0 0} {CreateTempIndex {{0 CreateTempIndex i2 t2\ temp {}}} 0 0} {CreateTempTrigger {{0 CreateTempTrigger tr2 t2 temp {}}} 0 0}\ {CreateTempView {{0 CreateTempView v2 {} temp {}}} 0 0} {Pragma {{0 Pragma\ journal_mode WAL {} {}}} 0 0} {Function {{0 Function {} julianday {} {}}} 0 0}\ {Read {{0 Read t1 x main {}}} 0 0} {Select {{0 Select {} {} {} {}}} 0 0}\ {Insert {{0 Insert t1 {} main {}}} 0 0} {Update {{0 Update t1 x main {}}} 0 0}\ {Delete {{0 Delete t1 {} main {}}} 0 0} {AlterTable {{0 AlterTable main t1 {}\ {}}} 0 0} {Reindex {{0 Reindex i1 {} main {}}} 0 0} {Analyze {{0 Analyze t1 {}\ main {}}} 0 0} {DropTempView {{0 DropTempView v2 {} temp {}}} 0 0}\ {DropTempTrigger {{0 DropTempTrigger tr2 t2 temp {}}} 0 0} {DropTempIndex {{0\ DropTempIndex i2 t2 temp {}}} 0 0} {DropTempTable {{0 DropTempTable t2 {} temp\ {}}} 0 0} {DropView {{0 DropView v1 {} main {}}} 0 0} {DropTrigger {{0\ DropTrigger tr1 t1 main {}}} 0 0} {DropIndex {{0 DropIndex i1 t1 main {}}} 0 0}\ {Recursive {{0 Recursive {} {} {} {}}} 0 0} {DropTable {{0 DropTable t1 {} main\ {}}} 0 0} {Transaction {{0 Transaction BEGIN {} {} {}} {0 Transaction COMMIT {}\ {} {}}} 0 0} {Savepoint {{0 Savepoint BEGIN s1 {} {}} {0 Savepoint RELEASE s1\ {} {}}} 0 0} {Attach {{0 Attach :memory: {} {} {}}} 0 0} {Detach {{0 Detach d1\ {} {} {}}} 0 0} {CreateVtable {{0 CreateVtable t3 fts4 main {}}} 0 0}\ {DropVtable {{0 DropVtable t3 fts4 main {}}} 0 0} {CreateTable {{0 CreateTable\ tDeny {} main {}}} 1 {System.Data.SQLite.SQLiteException (0x80004005):\ authorization denied}} False}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | | | | | | | | | | | | | | | | | > | | | | | | < |
133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 |
freeDbConnection unset -nocomplain result code data filter value name sql results callback \ connection db fileName rename onAuthorize "" } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{CreateTable {{0 CreateTable t1 {} main {}}} 0 0}\ {CreateIndex {{0 CreateIndex i1 t1 main {}}} 0 0} {CreateTrigger {{0\ CreateTrigger tr1 t1 main {}}} 0 0} {CreateView {{0 CreateView v1 {} main {}}}\ 0 0} {CreateTempTable {{0 CreateTempTable t2 {} temp {}}} 0 0} {CreateTempIndex\ {{0 CreateTempIndex i2 t2 temp {}}} 0 0} {CreateTempTrigger {{0\ CreateTempTrigger tr2 t2 temp {}}} 0 0} {CreateTempView {{0 CreateTempView v2\ {} temp {}}} 0 0} {Pragma {{0 Pragma journal_mode WAL {} {}}} 0 0} {Function\ {{0 Function {} julianday {} {}}} 0 0} {Read {{0 Read t1 x main {}}} 0 0}\ {Select {{0 Select {} {} {} {}}} 0 0} {Insert {{0 Insert t1 {} main {}}} 0 0}\ {Update {{0 Update t1 x main {}}} 0 0} {Delete {{0 Delete t1 {} main {}}} 0 0}\ {AlterTable {{0 AlterTable main t1 {} {}}} 0 0} {Reindex {{0 Reindex i1 {} main\ {}}} 0 0} {Analyze {{0 Analyze t1 {} main {}}} 0 0} {DropTempView {{0\ DropTempView v2 {} temp {}}} 0 0} {DropTempTrigger {{0 DropTempTrigger tr2 t2\ temp {}}} 0 0} {DropTempIndex {{0 DropTempIndex i2 t2 temp {}}} 0 0}\ {DropTempTable {{0 DropTempTable t2 {} temp {}}} 0 0} {DropView {{0 DropView v1\ {} main {}}} 0 0} {DropTrigger {{0 DropTrigger tr1 t1 main {}}} 0 0} {DropIndex\ {{0 DropIndex i1 t1 main {}}} 0 0} {Recursive {{0 Recursive {} {} {} {}}} 0 0}\ {DropTable {{0 DropTable t1 {} main {}}} 0 0} {Transaction {{0 Transaction\ BEGIN {} {} {}} {0 Transaction COMMIT {} {} {}}} 0 0} {Savepoint {{0 Savepoint\ BEGIN s1 {} {}} {0 Savepoint RELEASE s1 {} {}}} 0 0} {Attach {{0 Attach\ :memory: {} {} {}}} 0 0} {Detach {{0 Detach d1 {} {} {}}} 0 0} {CreateVtable\ {{0 CreateVtable t3 fts4 main {}}} 0 0} {DropVtable {{0 DropVtable t3 fts4 main\ {}}} 0 0} {CreateTable {{0 CreateTable tDeny {} main {}}} 1\ {System.Data.SQLite.SQLiteException (0x80004005): authorization denied}} False}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/backup.eagle.
218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 |
cleanupDb $fileName(2)
cleanupDb $fileName(1) memDb
freeDbConnection memSource
unset -nocomplain result results errors code index memSource dataSource \
id memDb db fileName callbackResults
} -constraints {eagle monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result [appendArgs \
"^Ok System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} " \
[lindex $params(results) $i]]}
}
###############################################################################
unset -nocomplain i params pages callback
|
| | |
218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 |
cleanupDb $fileName(2) cleanupDb $fileName(1) memDb freeDbConnection memSource unset -nocomplain result results errors code index memSource dataSource \ id memDb db fileName callbackResults } -constraints {eagle command.object monoBug28 command.sql compile.DATA\ SQLite System.Data.SQLite compileCSharp} -match regexp -result [appendArgs \ "^Ok System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} " \ [lindex $params(results) $i]]} } ############################################################################### unset -nocomplain i params pages callback |
Changes to Tests/basic.eagle.
92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 ... 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 ... 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 ... 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 ... 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 ... 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 ... 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 ... 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 ... 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 ... 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 ... 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 .... 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 .... 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 .... 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 .... 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 .... 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 .... 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 .... 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 .... 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 .... 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 .... 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 .... 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 .... 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 .... 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 .... 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 .... 1893 1894 1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 .... 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 .... 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 .... 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 .... 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 .... 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 .... 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 .... 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 .... 2568 2569 2570 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 .... 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 .... 2645 2646 2647 2648 2649 2650 2651 2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 .... 2706 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 .... 2758 2759 2760 2761 2762 2763 2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 .... 2789 2790 2791 2792 2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 .... 2840 2841 2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852 2853 2854 2855 2856 2857 .... 2866 2867 2868 2869 2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 .... 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 2910 2911 .... 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 .... 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 .... 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 3072 3073 3074 3075 .... 3101 3102 3103 3104 3105 3106 3107 3108 3109 3110 3111 3112 3113 3114 3115 3116 3117 3118 3119 3120 |
list $code [string equal $output [readFile $testLinqOutFile]] \ [expr {$code == 0 ? "" : $error}] } -cleanup { catch {object invoke Console OutputEncoding $savedEncoding} unset -nocomplain code output error savedEncoding encoding } -constraints \ {eagle monoToDo SQLite file_System.Data.SQLite.dll\ file_System.Data.SQLite.Linq.dll file_testlinq.exe file_northwindEF.db\ file_testlinq.out testExec} -result {0 True {}}} ############################################################################### runTest {test data-1.3 {unit tests from the 'testef6' project} -setup { # ................................................................................ list $code [string equal $output [readFile $testLinqOutFile]] \ [expr {$code == 0 ? "" : $error}] } -cleanup { catch {object invoke Console OutputEncoding $savedEncoding} unset -nocomplain code output error savedEncoding encoding } -constraints \ {eagle monoToDo SQLite file_EntityFramework.dll file_System.Data.SQLite.dll\ file_System.Data.SQLite.EF6.dll file_testef6.exe file_northwindEF.db\ file_testlinq.out testExec} -result {0 True {}}} ############################################################################### runTest {test data-1.4 {SELECT scalar/reader, CREATE, INSERT} -setup { setupDb [set fileName data-1.4.db] } -body { set result [list] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetReservedWords } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 System#Data#DataTable#\d+$}} ############################################################################### runTest {test data-1.6 {GetSchema with ForeignKeys} -setup { setupDb [set fileName data-1.6.db] ................................................................................ set rows } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result rows foreignKey foreignKeys results errors code \ dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\{main FK_t1_0_0 main t1\ \{FOREIGN KEY\} False False 0 x main t2 \{\} 0 \{SET DEFAULT\} CASCADE NONE\}\ \{main FK_t2_0_0 main t2 \{FOREIGN KEY\} False False 0 x main t3 \{\} 0 \{NO\ ACTION\} \{NO ACTION\} NONE\}\}$}} ############################################################################### ................................................................................ } } cleanupDb $fileName unset -nocomplain result count interval savedCount savedInterval results \ errors code dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}} ############################################################################### runTest {test data-1.8 {properly closed database file (non-query)} -setup { set fileName data-1.8.db ................................................................................ object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [close [open $dataSource RDONLY 0 "" -share None]] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\} \{\}$}} ############################################################################### runTest {test data-1.9 {properly closed database file (reader #1)} -setup { set fileName data-1.9.db ................................................................................ object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [close [open $dataSource RDONLY 0 "" -share None]] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\} \{\}$}} ############################################################################### runTest {test data-1.10 {properly closed database file (reader #2)} -setup { set fileName data-1.10.db ................................................................................ object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [close [open $dataSource RDONLY 0 "" -share None]] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\} \{\}$}} ############################################################################### runTest {test data-1.11 {Changes property} -setup { setupDb [set fileName data-1.11.db] ................................................................................ set result } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain name rows result connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \ -result {1 2 2 {1 {{x 1} {y foobar} {z 1234}}} {2 {{x 2} {y foobar} {z 5678}}}}} ############################################################################### runTest {test data-1.12 {LastInsertRowId property} -setup { setupDb [set fileName data-1.12.db] } -body { ................................................................................ set result } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain name rows result connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \ -result {0 1 2 2 1 2 2 2 {1 {{x 1} {y foobar} {z 1234}}} {2 {{x 2} {y foobar}\ {z 5678}}} 2 {1 {{x 1} {y foobar} {z 1234}}} {2 {{x 2} {y foobar} {z 5678}}}}} ############################################################################### runTest {test data-1.13 {DateTime using Unix epoch} -setup { setupDb [set fileName data-1.13.db] "" UnixEpoch Utc ................................................................................ } result] : [set result ""]}] $result \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetConnectionString \ Ticks Local yyyy-MM-dd } result] : [set result ""]}] $result } -cleanup { unset -nocomplain result results errors code id } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{Data Source=test\.db\} 0\ \{Data Source=test\.db;DateTimeFormat=(?:Default|ISO8601)\} 0 \{Data\ Source=test\.db;DateTimeKind=Unspecified\} 0 \{Data\ Source=test\.db;DateTimeFormat=(?:Default|ISO8601);DateTimeKind=Utc\} 0 \{Data\ Source=test\.db;DateTimeFormat=Ticks;DateTimeKind=Local;DateTimeFormatString=yyyy-MM-dd\}$}} ................................................................................ } } set results } -cleanup { unset -nocomplain propertyName propertyNames value key values keys result \ results errors code id } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result \ {^System#CodeDom#Compiler#CompilerResults#\d+ Ok \{\} 0 \{, \} 0 \{3,\ Version=3\} 0 \{Normal, Synchronous=Normal\} 0 \{True, UseUTF16Encoding=True\}\ 0 \{False, Pooling=False\} 0 \{True, BinaryGUID=True\} 0 \{test\.db, Data\ Source=test\.db\} 0 \{test\.db, Uri=test\.db\} 0 \{file:test.db,\ FullUri=file:test\.db\} 0 \{60, Default Timeout=60\} 0 \{False, Enlist=False\}\ 0 \{True, FailIfMissing=True\} 0 \{False, Legacy Format=False\} 0 \{True, Read\ ................................................................................ runTest {test data-1.18 {SQLiteConvert ToDateTime (Julian Day)} -body { set dateTime [object invoke -create System.Data.SQLite.SQLiteConvert \ ToDateTime 2455928.0 Utc] object invoke $dateTime ToString [getDateTimeFormat] } -cleanup { unset -nocomplain dateTime } -constraints {eagle System.Data.SQLite} -result {2012-01-01 12:00:00Z}} ############################################################################### runTest {test data-1.19 {SQLiteConvert ToJulianDay} -body { expr {round([object invoke System.Data.SQLite.SQLiteConvert ToJulianDay \ "2012-01-01 12:00:00Z"])} } -constraints {eagle System.Data.SQLite} -result {2455928}} ############################################################################### runTest {test data-1.20 {SQLiteConvert ToUnixEpoch (Utc)} -body { # # NOTE: At first, the test result here may not seem correct; however, the # same result can be seen by compiling and running the following C# ................................................................................ # The basic problem here is that the Parse [and TryParse] methods of # the DateTime structure seem to always return local time, even when # string value clearly indicates otherwise (i.e. the trailing "Z", # indicating UTC). # expr {round([object invoke System.Data.SQLite.SQLiteConvert ToUnixEpoch \ "2012-01-01 12:00:00Z"])} } -constraints {eagle System.Data.SQLite} -result {1325390400}} ############################################################################### runTest {test data-1.21 {SQLiteConvert ToUnixEpoch (Local)} -body { # # NOTE: At first, the test result here may not seem correct; however, the # same result can be seen by compiling and running the following C# ................................................................................ # The basic problem here is that the Parse [and TryParse] methods of # the DateTime structure seem to always return local time, even when # string value clearly indicates otherwise (i.e. the trailing "Z", # indicating UTC). # expr {round([object invoke System.Data.SQLite.SQLiteConvert ToUnixEpoch \ "2012-01-01 12:00:00"])} } -constraints {eagle System.Data.SQLite} -result {1325419200}} ############################################################################### runTest {test data-1.22 {SQLiteTransaction disposal behavior} -setup { setupDb [set fileName data-1.22.db] } -body { sql execute $db "CREATE TABLE t1(x TEXT);" ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runTest {test data-1.23 {SQLiteFunction collation exception} -setup { setupDb [set fileName data-1.23.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 1\ \{System\.Reflection\.TargetInvocationException: Exception has been thrown by\ the target of an invocation\. ---> System\.Data\.SQLite\.SQLiteException:\ interrupted.*$}} ############################################################################### runTest {test data-1.24 {LINQ SQL_CONSTRAINTCOLUMNS resource} -body { object invoke -flags +NonPublic \ System.Data.SQLite.Linq.Properties.Resources SQL_CONSTRAINTCOLUMNS } -constraints {eagle System.Data.SQLite System.Data.SQLite.Linq} -result { CREATE TEMP VIEW SCHEMACONSTRAINTCOLUMNS AS SELECT CONSTRAINT_CATALOG, NULL AS CONSTRAINT_SCHEMA, CONSTRAINT_NAME, TABLE_CATALOG, NULL AS TABLE_SCHEMA, TABLE_NAME, ................................................................................ }} ############################################################################### runTest {test data-1.25 {EF6 SQL_CONSTRAINTCOLUMNS resource} -body { object invoke -flags +NonPublic \ System.Data.SQLite.EF6.Properties.Resources SQL_CONSTRAINTCOLUMNS } -constraints {eagle System.Data.SQLite System.Data.SQLite.EF6} -result { CREATE TEMP VIEW SCHEMACONSTRAINTCOLUMNS AS SELECT CONSTRAINT_CATALOG, NULL AS CONSTRAINT_SCHEMA, CONSTRAINT_NAME, TABLE_CATALOG, NULL AS TABLE_SCHEMA, TABLE_NAME, ................................................................................ }} ############################################################################### runTest {test data-1.26 {LINQ SQL_CONSTRAINTS resource} -body { object invoke -flags +NonPublic \ System.Data.SQLite.Linq.Properties.Resources SQL_CONSTRAINTS } -constraints {eagle System.Data.SQLite System.Data.SQLite.Linq} -result { CREATE TEMP VIEW SCHEMACONSTRAINTS AS SELECT INDEX_CATALOG AS CONSTRAINT_CATALOG, NULL AS CONSTRAINT_SCHEMA, INDEX_NAME AS CONSTRAINT_NAME, TABLE_CATALOG, NULL AS TABLE_SCHEMA, TABLE_NAME, ................................................................................ }} ############################################################################### runTest {test data-1.27 {EF6 SQL_CONSTRAINTS resource} -body { object invoke -flags +NonPublic \ System.Data.SQLite.EF6.Properties.Resources SQL_CONSTRAINTS } -constraints {eagle System.Data.SQLite System.Data.SQLite.EF6} -result { CREATE TEMP VIEW SCHEMACONSTRAINTS AS SELECT INDEX_CATALOG AS CONSTRAINT_CATALOG, NULL AS CONSTRAINT_SCHEMA, INDEX_NAME AS CONSTRAINT_NAME, TABLE_CATALOG, NULL AS TABLE_SCHEMA, TABLE_NAME, ................................................................................ freeDbConnection unset -nocomplain result item collection reader command connection cleanupDb $fileName; # NOTE: After object disposal. unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{26 26} {zebra zebra}}} ############################################################################### runTest {test data-1.29 {LINQ ISQLiteSchemaExtensions.BuildTempSchema} -setup { setupDb [set fileName data-1.29.db] } -body { set connection [getDbConnection] ................................................................................ BuildTempSchema $connection } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain providerServices connection db fileName } -constraints {eagle SQLite System.Data.SQLite System.Data.SQLite.Linq} \ -result {}} ############################################################################### runTest {test data-1.30 {EF6 ISQLiteSchemaExtensions.BuildTempSchema} -setup { setupDb [set fileName data-1.30.db] } -body { set connection [getDbConnection] ................................................................................ BuildTempSchema $connection } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain providerServices connection db fileName } -constraints {eagle SQLite System.Data.SQLite System.Data.SQLite.EF6} \ -result {}} ############################################################################### runTest {test data-1.31 {VARCHAR / NVARCHAR types with spaces} -body { list [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ TypeNameToDbType null VARCHAR None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ ................................................................................ TypeNameToDbType null VARCHAR(1) None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ TypeNameToDbType null NVARCHAR(1) None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ TypeNameToDbType null "VARCHAR (1)" None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ TypeNameToDbType null "NVARCHAR (1)" None] \ } -constraints {eagle System.Data.SQLite} -result \ {AnsiString String AnsiString String AnsiString String}} ############################################################################### runTest {test data-1.32 {SetMemoryStatus method} -setup { # # NOTE: Make sure that SQLite core library is completely shutdown prior to ................................................................................ # library property is currently write-only). # object invoke -flags +NonPublic System.Data.SQLite.UnsafeNativeMethods \ sqlite3_config_int SQLITE_CONFIG_MEMSTATUS 1 } unset -nocomplain result sqlite3 zero } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \ regexp -result {^Ok Misuse Ok Ok System#IntPtr#\d+ System#IntPtr#\d+ \d+ \d+\ \d+ \d+ \d+ True True True True True True$}} ############################################################################### runTest {test data-1.33 {SQLiteConnection.Open with SetDefaults=False} -setup { setupDb [set fileName data-1.33.db] "" "" "" "" SetDefaults=False } -body { set result [list] ................................................................................ } catch {object removecallback threadStart} unset -nocomplain t found i db fileName result directory rename threadStart "" } -constraints {eagle windows monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite sqlite3_win32_set_directory} -result {Ok Ok True True}} ############################################################################### runTest {test data-1.38 {serialization of SQLiteException} -body { set serializer [object create -alias \ System.Runtime.Serialization.Formatters.Binary.BinaryFormatter] ................................................................................ list [$exception(1) ResultCode] [$exception(1) Message] \ [$exception(2) ResultCode] [$exception(2) Message] \ [expr {[$exception(1) ResultCode] eq [$exception(2) ResultCode]}] \ [expr {[$exception(1) Message] eq [$exception(2) Message]}] } -cleanup { unset -nocomplain exception stream serializer } -constraints {eagle SQLite System.Data.SQLite} -result \ [string map [list \n \r\n] {CantOpen {unable to open database file this is a test} CantOpen {unable to open database file this is a test} True True}]} ############################################################################### runTest {test data-1.39 {unencrypted database, with password} -setup { ................................................................................ set result } -cleanup { unset -nocomplain connection cleanupDb $fileName; # NOTE: After object disposal. unset -nocomplain connectionStringBuilder error result db fileName } -constraints {eagle System.Data.SQLite.Encryption monoBug28 command.sql\ compile.DATA SQLite System.Data.SQLite} -result {0 1 0 1 0 1 0 3}} ############################################################################### runTest {test data-1.47 {quoted connection string properties} -setup { unset -nocomplain result list pair strings string } -body { set result [list] ................................................................................ lappend result [list [$pair Key] [$pair Value]] } } set result } -cleanup { unset -nocomplain result list pair strings string } -constraints {eagle System.Data.SQLite} -result {{OneTwo ThreeFour} {OneTwo\ ThreeFour} {{One Two} {Three Four}} {{One Two} {Three Four}} {OneTwo ThreeFour}\ {OneTwo ThreeFour} {{One Two} {Three Four}} {{One Two} {Three Four}}}} ############################################################################### runTest {test data-1.48 {rollback to nested savepoint} -setup { setupDb [set fileName data-1.48.db] } -body { sql execute $db "BEGIN IMMEDIATE TRANSACTION;" ................................................................................ set result } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain result db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{x 0 1} {y 1 foo} {z 2 1234}}} ############################################################################### runTest {test data-1.51 {nullable value types} -setup { setupDb [set fileName data-1.51.db] } -body { sql execute $db { ................................................................................ set result } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain e d c b a x result db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \ regexp -result {^\{0 x System#DBNull#\d+ 1\ \{System\.Reflection\.TargetInvocationException: Exception has been thrown by\ the target of an invocation\. ---> System\.InvalidCastException:.*\}\ System#DBNull#\d+\} \{0 x 1 0 1 1\}$}} ############################################################################### runTest {test data-1.52 {static SQLiteCommand.Execute method} -setup { ................................................................................ set result(8) [object invoke System.Data.SQLite.SQLiteCommand Execute \ $sql(2) Reader null 1] list $result(1) $result(2) $result(3) $result(4) $result(5) $result(6) \ $result(7) $result(8) } -cleanup { unset -nocomplain result sql } -constraints {eagle monoBug28 SQLite System.Data.SQLite} -match regexp \ -result {^\{\} 1 System#DBNull#\d+ System#Data#SQLite#SQLiteDataReader#\d+ \{\}\ 1 1 System#Data#SQLite#SQLiteDataReader#\d+$}} ############################################################################### runTest {test data-1.53 {BindAllAsText w/DateTime} -setup { setupDb [set fileName data-1.53.db] "" Ticks Utc BindAllAsText } -body { sql execute $db "CREATE TABLE t1(x);" ................................................................................ [list param1 DateTime [set dateTime [object invoke DateTime Parse \ "2000.02.29 13:59:58.1234567Z"]]]] [sql execute -execute reader \ -format list $db "SELECT x FROM t1;"] } -cleanup { cleanupDb $fileName unset -nocomplain dateTime db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {1 630874007980000000}} ############################################################################### runTest {test data-1.54 {bind SQLiteFunction to one SQLiteConnection} -setup { set fileName data-1.54.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} DoTest false } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql dataSource id fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result \ [string map [list \n \r\n] {^Ok System#CodeDom#Compiler#CompilerResults#\d+\ \{\} 1 \{System\.Reflection\.TargetInvocationException: Exception has been\ thrown by the target of an invocation\. --->\ System\.Data\.SQLite\.SQLiteException: SQL logic error or missing database no such function: MyRandom.*\} 0 (?:-)?\d+ 1\ \{System\.Reflection\.TargetInvocationException: Exception has been thrown by\ ................................................................................ VARCHAR2 YESNO] { lappend result [list $typeName [object invoke -flags +NonPublic \ System.Data.SQLite.SQLiteConvert TypeNameToDbType null $typeName None]] } set result } -cleanup { unset -nocomplain result typeName } -constraints {eagle System.Data.SQLite} -result {{BIGINT Int64} {BIGUINT\ UInt64} {BINARY Binary} {BIT Boolean} {BLOB Binary} {BOOL Boolean} {BOOLEAN\ Boolean} {CHAR AnsiStringFixedLength} {CLOB String} {COUNTER Int64} {CURRENCY\ Decimal} {DATE DateTime} {DATETIME DateTime} {DECIMAL Decimal} {DOUBLE Double}\ {FLOAT Double} {GENERAL Binary} {GUID Guid} {IDENTITY Int64} {IMAGE Binary}\ {INT Int32} {INT8 SByte} {INT16 Int16} {INT32 Int32} {INT64 Int64} {INTEGER\ Int64} {INTEGER8 SByte} {INTEGER16 Int16} {INTEGER32 Int32} {INTEGER64 Int64}\ {LOGICAL Boolean} {LONG Int64} {LONGCHAR String} {LONGTEXT String} {LONGVARCHAR\ String} {MEMO String} {MONEY Decimal} {NCHAR StringFixedLength} {NOTE String}\ {NTEXT String} {NUMBER Decimal} {NUMERIC Decimal} {NVARCHAR String} {OLEOBJECT\ Binary} {RAW Binary} {REAL Double} {SINGLE Single} {SMALLDATE DateTime}\ {SMALLINT Int16} {SMALLUINT UInt16} {STRING String} {TEXT String} {TIME\ DateTime} {TIMESTAMP DateTime} {TINYINT Byte} {TINYSINT SByte} {UINT UInt32}\ {UINT8 Byte} {UINT16 UInt16} {UINT32 UInt32} {UINT64 UInt64} {ULONG UInt64}\ {UNIQUEIDENTIFIER Guid} {UNSIGNEDINTEGER UInt64} {UNSIGNEDINTEGER8 Byte}\ {UNSIGNEDINTEGER16 UInt16} {UNSIGNEDINTEGER32 UInt32} {UNSIGNEDINTEGER64\ UInt64} {VARBINARY Binary} {VARCHAR AnsiString} {VARCHAR2 AnsiString} {YESNO\ Boolean}}} ############################################################################### runTest {test data-1.56 {totype extension} -setup { setupDb [set fileName data-1.56.db] } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {1 {} 1.01 {}}} ############################################################################### runTest {test data-1.57 {regexp extension} -setup { setupDb [set fileName data-1.57.db] } -body { unset -nocomplain pattern result ................................................................................ freeDbConnection unset -nocomplain pattern result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {0 1 1 {unmatched '('} 0 1 1 {unmatched '('} 0 0 1 {unmatched '('} 0 0 1\ {unmatched '('}}} ############################################################################### reportSQLiteResources $test_channel ############################################################################### ................................................................................ "---- largest free SQLite heap block... " $nLargest " bytes\n"] lappend result [list $code $nFree $resetOk $nLargest] } -cleanup { cleanupDb $fileName unset -nocomplain nLargest resetOk nFree code result db fileName } -constraints {eagle monoBug28 configuration.Release command.sql compile.DATA\ SQLite System.Data.SQLite} -match regexp -result {^\{Busy 0 False 0\} \{Busy\ \d+ False 0\} \{Ok 0 True \d+\}$}} ############################################################################### runTest {test data-1.59 {percentile extension} -setup { setupDb [set fileName data-1.59.db] } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {0 4 0 1.75}} ############################################################################### runTest {test data-1.60 {per-connection type mappings} -setup { setupDb [set fileName data-1.60.db] "" "" "" UseConnectionTypes } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain typeMapping typeMappings pair result connection cleanupDb $fileName unset -nocomplain dateTime db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {0 1 {{2014-02-01 12:34:56} 20140201123456} 0 0 1 1 2 2 0 {MYDATE {MYDATE\ DateTime True}} {{2014-02-01 12:34:56} {2014-02-01 12:34:56}}}} ############################################################################### runTest {test data-1.61 {SELECT without TYPES} -setup { setupDb [set fileName data-1.61.db] } -body { set values [list NULL 1 'one' 1.0 X'01'] ................................................................................ sql execute -execute reader -format list -allownull true $db \ "SELECT rowId, x, y FROM t1 ORDER BY rowId;" } -cleanup { cleanupDb $fileName unset -nocomplain y x values db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {1 {} {} 2 {} 1 3 {} one 4 {} 1 5 {} 1 6 1 {} 7 1 1 8 1 one 9 1 1 10 1 1 11 one\ {} 12 one 1 13 one one 14 one 1 15 one 1 16 1 {} 17 1 1 18 1 one 19 1 1 20 1 1\ 21 1 {} 22 1 1 23 1 one 24 1 1 25 1 1}} ############################################################################### runTest {test data-1.62 {SELECT with TYPES} -setup { setupDb [set fileName data-1.62.db] } -body { set values [list NULL 1 'one' 1.0 X'01'] ................................................................................ sql execute -execute reader -format list -allownull true $db \ "TYPES INTEGER, INTEGER, REAL; SELECT rowId, x, y FROM t1 ORDER BY rowId;" } -cleanup { cleanupDb $fileName unset -nocomplain y x values db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {1 {} {} 2 {} 1 3 {} 0 4 {} 1 5 {} 0 6 1 {} 7 1 1 8 1 0 9 1 1 10 1 0 11 0 {} 12\ 0 1 13 0 0 14 0 1 15 0 0 16 1 {} 17 1 1 18 1 0 19 1 1 20 1 0 21 0 {} 22 0 1 23\ 0 0 24 0 1 25 0 0}} ############################################################################### runTest {test data-1.63 {SQLiteDataReader HasRows property} -setup { setupDb [set fileName data-1.63.db] } -body { sql execute $db { ................................................................................ [catch {$reader(3) Item x} error] [string match $noRow $error] } -cleanup { unset -nocomplain reader cleanupDb $fileName unset -nocomplain error noRow db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {False True True False True True False True True 1 True 0 False 0 False False\ True True False False True False False True 1 True 1 True 0 False False False\ True False False False False False False 1 True 1 True 1 True}} ############################################################################### runTest {test data-1.64 {SQLiteDataReader sticky HasRows property} -setup { setupDb [set fileName data-1.64.db] "" "" "" StickyHasRows } -body { sql execute $db { ................................................................................ [catch {$reader(3) Item x} error] [string match $noRow $error] } -cleanup { unset -nocomplain reader cleanupDb $fileName unset -nocomplain error noRow db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {False True True False True True False True True 1 True 0 False 0 False False\ True True False False True False True True 1 True 1 True 0 False False True\ True False False False False True True 1 True 1 True 1 True}} ############################################################################### runTest {test data-1.65 {SQLiteDataReader StepCount property} -setup { setupDb [set fileName data-1.65.db] } -body { sql execute $db { ................................................................................ [catch {$reader(3) Item x} error] [string match $noRow $error] } -cleanup { unset -nocomplain reader cleanupDb $fileName unset -nocomplain error noRow db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {0 1 1 False True True 0 1 1 1 True 0 False 0 False 0 1 1 False False True 0 1\ 2 1 True 1 True 0 False 0 1 2 False False False 0 1 2 1 True 1 True 1 True}} ############################################################################### runTest {test data-1.66 {SQLiteConnection.SetChunkSize default} -setup { setupDb [set fileName data-1.66.db] } -body { sql execute $db { ................................................................................ lappend result [file size [file join [getDatabaseDirectory] $fileName]] } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain result connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {Ok 32768}} ############################################################################### reportSQLiteResources $test_channel ############################################################################### runSQLiteTestFilesEpilogue runSQLiteTestEpilogue runTestEpilogue |
| | | | | | | | | | | | | | | | > | | | | | | > | > | > | > | < | | | | | | | < | | | | | > | | | | | | > < | | < | | | > | | < | | | | | | | | | | | | | | | | | | | | | < | | < | | | | | | < | | < | | | > < | | | | < | | | | < | | | | > < | | | | > < | | | > < | | |
92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 ... 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 ... 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 ... 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 ... 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 ... 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 ... 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 ... 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 ... 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 ... 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 ... 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 .... 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 .... 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 .... 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 .... 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 .... 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 .... 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 .... 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 .... 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 .... 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 .... 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 .... 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 .... 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 .... 1565 1566 1567 1568 1569 1570 1571 1572 1573 1574 1575 1576 1577 1578 1579 .... 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 .... 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1910 1911 1912 .... 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 .... 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 .... 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 .... 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 .... 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 .... 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 .... 2480 2481 2482 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 .... 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 2584 2585 .... 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 .... 2648 2649 2650 2651 2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 .... 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 .... 2759 2760 2761 2762 2763 2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 2775 .... 2790 2791 2792 2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 .... 2840 2841 2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852 2853 2854 2855 2856 2857 .... 2866 2867 2868 2869 2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 .... 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 .... 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 .... 3001 3002 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 .... 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 3072 3073 .... 3099 3100 3101 3102 3103 3104 3105 3106 3107 3108 3109 3110 3111 3112 3113 3114 3115 3116 3117 |
list $code [string equal $output [readFile $testLinqOutFile]] \ [expr {$code == 0 ? "" : $error}] } -cleanup { catch {object invoke Console OutputEncoding $savedEncoding} unset -nocomplain code output error savedEncoding encoding } -constraints \ {eagle command.object monoToDo SQLite file_System.Data.SQLite.dll\ file_System.Data.SQLite.Linq.dll file_testlinq.exe file_northwindEF.db\ file_testlinq.out testExec} -result {0 True {}}} ############################################################################### runTest {test data-1.3 {unit tests from the 'testef6' project} -setup { # ................................................................................ list $code [string equal $output [readFile $testLinqOutFile]] \ [expr {$code == 0 ? "" : $error}] } -cleanup { catch {object invoke Console OutputEncoding $savedEncoding} unset -nocomplain code output error savedEncoding encoding } -constraints \ {eagle command.object monoToDo SQLite file_EntityFramework.dll\ file_System.Data.SQLite.dll file_System.Data.SQLite.EF6.dll file_testef6.exe\ file_northwindEF.db file_testlinq.out testExec} -result {0 True {}}} ############################################################################### runTest {test data-1.4 {SELECT scalar/reader, CREATE, INSERT} -setup { setupDb [set fileName data-1.4.db] } -body { set result [list] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetReservedWords } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 System#Data#DataTable#\d+$}} ############################################################################### runTest {test data-1.6 {GetSchema with ForeignKeys} -setup { setupDb [set fileName data-1.6.db] ................................................................................ set rows } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result rows foreignKey foreignKeys results errors code \ dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\{main FK_t1_0_0 main t1\ \{FOREIGN KEY\} False False 0 x main t2 \{\} 0 \{SET DEFAULT\} CASCADE NONE\}\ \{main FK_t2_0_0 main t2 \{FOREIGN KEY\} False False 0 x main t3 \{\} 0 \{NO\ ACTION\} \{NO ACTION\} NONE\}\}$}} ############################################################################### ................................................................................ } } cleanupDb $fileName unset -nocomplain result count interval savedCount savedInterval results \ errors code dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}} ############################################################################### runTest {test data-1.8 {properly closed database file (non-query)} -setup { set fileName data-1.8.db ................................................................................ object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [close [open $dataSource RDONLY 0 "" -share None]] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\} \{\}$}} ############################################################################### runTest {test data-1.9 {properly closed database file (reader #1)} -setup { set fileName data-1.9.db ................................................................................ object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [close [open $dataSource RDONLY 0 "" -share None]] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\} \{\}$}} ############################################################################### runTest {test data-1.10 {properly closed database file (reader #2)} -setup { set fileName data-1.10.db ................................................................................ object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [close [open $dataSource RDONLY 0 "" -share None]] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\} \{\}$}} ############################################################################### runTest {test data-1.11 {Changes property} -setup { setupDb [set fileName data-1.11.db] ................................................................................ set result } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain name rows result connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} \ -result {1 2 2 {1 {{x 1} {y foobar} {z 1234}}} {2 {{x 2} {y foobar} {z 5678}}}}} ############################################################################### runTest {test data-1.12 {LastInsertRowId property} -setup { setupDb [set fileName data-1.12.db] } -body { ................................................................................ set result } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain name rows result connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} \ -result {0 1 2 2 1 2 2 2 {1 {{x 1} {y foobar} {z 1234}}} {2 {{x 2} {y foobar}\ {z 5678}}} 2 {1 {{x 1} {y foobar} {z 1234}}} {2 {{x 2} {y foobar} {z 5678}}}}} ############################################################################### runTest {test data-1.13 {DateTime using Unix epoch} -setup { setupDb [set fileName data-1.13.db] "" UnixEpoch Utc ................................................................................ } result] : [set result ""]}] $result \ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} GetConnectionString \ Ticks Local yyyy-MM-dd } result] : [set result ""]}] $result } -cleanup { unset -nocomplain result results errors code id } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{Data Source=test\.db\} 0\ \{Data Source=test\.db;DateTimeFormat=(?:Default|ISO8601)\} 0 \{Data\ Source=test\.db;DateTimeKind=Unspecified\} 0 \{Data\ Source=test\.db;DateTimeFormat=(?:Default|ISO8601);DateTimeKind=Utc\} 0 \{Data\ Source=test\.db;DateTimeFormat=Ticks;DateTimeKind=Local;DateTimeFormatString=yyyy-MM-dd\}$}} ................................................................................ } } set results } -cleanup { unset -nocomplain propertyName propertyNames value key values keys result \ results errors code id } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result \ {^System#CodeDom#Compiler#CompilerResults#\d+ Ok \{\} 0 \{, \} 0 \{3,\ Version=3\} 0 \{Normal, Synchronous=Normal\} 0 \{True, UseUTF16Encoding=True\}\ 0 \{False, Pooling=False\} 0 \{True, BinaryGUID=True\} 0 \{test\.db, Data\ Source=test\.db\} 0 \{test\.db, Uri=test\.db\} 0 \{file:test.db,\ FullUri=file:test\.db\} 0 \{60, Default Timeout=60\} 0 \{False, Enlist=False\}\ 0 \{True, FailIfMissing=True\} 0 \{False, Legacy Format=False\} 0 \{True, Read\ ................................................................................ runTest {test data-1.18 {SQLiteConvert ToDateTime (Julian Day)} -body { set dateTime [object invoke -create System.Data.SQLite.SQLiteConvert \ ToDateTime 2455928.0 Utc] object invoke $dateTime ToString [getDateTimeFormat] } -cleanup { unset -nocomplain dateTime } -constraints {eagle command.object System.Data.SQLite} -result \ {2012-01-01 12:00:00Z}} ############################################################################### runTest {test data-1.19 {SQLiteConvert ToJulianDay} -body { expr {round([object invoke System.Data.SQLite.SQLiteConvert ToJulianDay \ "2012-01-01 12:00:00Z"])} } -constraints {eagle command.object System.Data.SQLite} -result {2455928}} ############################################################################### runTest {test data-1.20 {SQLiteConvert ToUnixEpoch (Utc)} -body { # # NOTE: At first, the test result here may not seem correct; however, the # same result can be seen by compiling and running the following C# ................................................................................ # The basic problem here is that the Parse [and TryParse] methods of # the DateTime structure seem to always return local time, even when # string value clearly indicates otherwise (i.e. the trailing "Z", # indicating UTC). # expr {round([object invoke System.Data.SQLite.SQLiteConvert ToUnixEpoch \ "2012-01-01 12:00:00Z"])} } -constraints {eagle command.object System.Data.SQLite} -result {1325390400}} ############################################################################### runTest {test data-1.21 {SQLiteConvert ToUnixEpoch (Local)} -body { # # NOTE: At first, the test result here may not seem correct; however, the # same result can be seen by compiling and running the following C# ................................................................................ # The basic problem here is that the Parse [and TryParse] methods of # the DateTime structure seem to always return local time, even when # string value clearly indicates otherwise (i.e. the trailing "Z", # indicating UTC). # expr {round([object invoke System.Data.SQLite.SQLiteConvert ToUnixEpoch \ "2012-01-01 12:00:00"])} } -constraints {eagle command.object System.Data.SQLite} -result {1325419200}} ############################################################################### runTest {test data-1.22 {SQLiteTransaction disposal behavior} -setup { setupDb [set fileName data-1.22.db] } -body { sql execute $db "CREATE TABLE t1(x TEXT);" ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runTest {test data-1.23 {SQLiteFunction collation exception} -setup { setupDb [set fileName data-1.23.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 1\ \{System\.Reflection\.TargetInvocationException: Exception has been thrown by\ the target of an invocation\. ---> System\.Data\.SQLite\.SQLiteException:\ interrupted.*$}} ############################################################################### runTest {test data-1.24 {LINQ SQL_CONSTRAINTCOLUMNS resource} -body { object invoke -flags +NonPublic \ System.Data.SQLite.Linq.Properties.Resources SQL_CONSTRAINTCOLUMNS } -constraints {eagle command.object System.Data.SQLite\ System.Data.SQLite.Linq} -result { CREATE TEMP VIEW SCHEMACONSTRAINTCOLUMNS AS SELECT CONSTRAINT_CATALOG, NULL AS CONSTRAINT_SCHEMA, CONSTRAINT_NAME, TABLE_CATALOG, NULL AS TABLE_SCHEMA, TABLE_NAME, ................................................................................ }} ############################################################################### runTest {test data-1.25 {EF6 SQL_CONSTRAINTCOLUMNS resource} -body { object invoke -flags +NonPublic \ System.Data.SQLite.EF6.Properties.Resources SQL_CONSTRAINTCOLUMNS } -constraints {eagle command.object System.Data.SQLite\ System.Data.SQLite.EF6} -result { CREATE TEMP VIEW SCHEMACONSTRAINTCOLUMNS AS SELECT CONSTRAINT_CATALOG, NULL AS CONSTRAINT_SCHEMA, CONSTRAINT_NAME, TABLE_CATALOG, NULL AS TABLE_SCHEMA, TABLE_NAME, ................................................................................ }} ############################################################################### runTest {test data-1.26 {LINQ SQL_CONSTRAINTS resource} -body { object invoke -flags +NonPublic \ System.Data.SQLite.Linq.Properties.Resources SQL_CONSTRAINTS } -constraints {eagle command.object System.Data.SQLite\ System.Data.SQLite.Linq} -result { CREATE TEMP VIEW SCHEMACONSTRAINTS AS SELECT INDEX_CATALOG AS CONSTRAINT_CATALOG, NULL AS CONSTRAINT_SCHEMA, INDEX_NAME AS CONSTRAINT_NAME, TABLE_CATALOG, NULL AS TABLE_SCHEMA, TABLE_NAME, ................................................................................ }} ############################################################################### runTest {test data-1.27 {EF6 SQL_CONSTRAINTS resource} -body { object invoke -flags +NonPublic \ System.Data.SQLite.EF6.Properties.Resources SQL_CONSTRAINTS } -constraints {eagle command.object System.Data.SQLite\ System.Data.SQLite.EF6} -result { CREATE TEMP VIEW SCHEMACONSTRAINTS AS SELECT INDEX_CATALOG AS CONSTRAINT_CATALOG, NULL AS CONSTRAINT_SCHEMA, INDEX_NAME AS CONSTRAINT_NAME, TABLE_CATALOG, NULL AS TABLE_SCHEMA, TABLE_NAME, ................................................................................ freeDbConnection unset -nocomplain result item collection reader command connection cleanupDb $fileName; # NOTE: After object disposal. unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{26 26} {zebra zebra}}} ############################################################################### runTest {test data-1.29 {LINQ ISQLiteSchemaExtensions.BuildTempSchema} -setup { setupDb [set fileName data-1.29.db] } -body { set connection [getDbConnection] ................................................................................ BuildTempSchema $connection } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain providerServices connection db fileName } -constraints {eagle command.object SQLite System.Data.SQLite\ System.Data.SQLite.Linq} -result {}} ############################################################################### runTest {test data-1.30 {EF6 ISQLiteSchemaExtensions.BuildTempSchema} -setup { setupDb [set fileName data-1.30.db] } -body { set connection [getDbConnection] ................................................................................ BuildTempSchema $connection } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain providerServices connection db fileName } -constraints {eagle command.object SQLite System.Data.SQLite\ System.Data.SQLite.EF6} -result {}} ############################################################################### runTest {test data-1.31 {VARCHAR / NVARCHAR types with spaces} -body { list [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ TypeNameToDbType null VARCHAR None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ ................................................................................ TypeNameToDbType null VARCHAR(1) None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ TypeNameToDbType null NVARCHAR(1) None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ TypeNameToDbType null "VARCHAR (1)" None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ TypeNameToDbType null "NVARCHAR (1)" None] \ } -constraints {eagle command.object System.Data.SQLite} -result \ {AnsiString String AnsiString String AnsiString String}} ############################################################################### runTest {test data-1.32 {SetMemoryStatus method} -setup { # # NOTE: Make sure that SQLite core library is completely shutdown prior to ................................................................................ # library property is currently write-only). # object invoke -flags +NonPublic System.Data.SQLite.UnsafeNativeMethods \ sqlite3_config_int SQLITE_CONFIG_MEMSTATUS 1 } unset -nocomplain result sqlite3 zero } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -match regexp -result {^Ok Misuse Ok Ok System#IntPtr#\d+\ System#IntPtr#\d+ \d+ \d+ \d+ \d+ \d+ True True True True True True$}} ############################################################################### runTest {test data-1.33 {SQLiteConnection.Open with SetDefaults=False} -setup { setupDb [set fileName data-1.33.db] "" "" "" "" SetDefaults=False } -body { set result [list] ................................................................................ } catch {object removecallback threadStart} unset -nocomplain t found i db fileName result directory rename threadStart "" } -constraints {eagle command.object windows monoBug28 command.sql compile.DATA\ SQLite System.Data.SQLite sqlite3_win32_set_directory} -result \ {Ok Ok True True}} ############################################################################### runTest {test data-1.38 {serialization of SQLiteException} -body { set serializer [object create -alias \ System.Runtime.Serialization.Formatters.Binary.BinaryFormatter] ................................................................................ list [$exception(1) ResultCode] [$exception(1) Message] \ [$exception(2) ResultCode] [$exception(2) Message] \ [expr {[$exception(1) ResultCode] eq [$exception(2) ResultCode]}] \ [expr {[$exception(1) Message] eq [$exception(2) Message]}] } -cleanup { unset -nocomplain exception stream serializer } -constraints {eagle command.object SQLite System.Data.SQLite} -result \ [string map [list \n \r\n] {CantOpen {unable to open database file this is a test} CantOpen {unable to open database file this is a test} True True}]} ############################################################################### runTest {test data-1.39 {unencrypted database, with password} -setup { ................................................................................ set result } -cleanup { unset -nocomplain connection cleanupDb $fileName; # NOTE: After object disposal. unset -nocomplain connectionStringBuilder error result db fileName } -constraints {eagle command.object System.Data.SQLite.Encryption monoBug28\ command.sql compile.DATA SQLite System.Data.SQLite} -result {0 1 0 1 0 1 0 3}} ############################################################################### runTest {test data-1.47 {quoted connection string properties} -setup { unset -nocomplain result list pair strings string } -body { set result [list] ................................................................................ lappend result [list [$pair Key] [$pair Value]] } } set result } -cleanup { unset -nocomplain result list pair strings string } -constraints {eagle command.object System.Data.SQLite} -result {{OneTwo\ ThreeFour} {OneTwo ThreeFour} {{One Two} {Three Four}} {{One Two} {Three Four}}\ {OneTwo ThreeFour} {OneTwo ThreeFour} {{One Two} {Three Four}} {{One Two}\ {Three Four}}}} ############################################################################### runTest {test data-1.48 {rollback to nested savepoint} -setup { setupDb [set fileName data-1.48.db] } -body { sql execute $db "BEGIN IMMEDIATE TRANSACTION;" ................................................................................ set result } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain result db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{x 0 1} {y 1 foo} {z 2 1234}}} ############################################################################### runTest {test data-1.51 {nullable value types} -setup { setupDb [set fileName data-1.51.db] } -body { sql execute $db { ................................................................................ set result } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain e d c b a x result db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -match regexp -result {^\{0 x System#DBNull#\d+ 1\ \{System\.Reflection\.TargetInvocationException: Exception has been thrown by\ the target of an invocation\. ---> System\.InvalidCastException:.*\}\ System#DBNull#\d+\} \{0 x 1 0 1 1\}$}} ############################################################################### runTest {test data-1.52 {static SQLiteCommand.Execute method} -setup { ................................................................................ set result(8) [object invoke System.Data.SQLite.SQLiteCommand Execute \ $sql(2) Reader null 1] list $result(1) $result(2) $result(3) $result(4) $result(5) $result(6) \ $result(7) $result(8) } -cleanup { unset -nocomplain result sql } -constraints {eagle command.object monoBug28 SQLite System.Data.SQLite} \ -match regexp -result {^\{\} 1 System#DBNull#\d+\ System#Data#SQLite#SQLiteDataReader#\d+ \{\} 1 1\ System#Data#SQLite#SQLiteDataReader#\d+$}} ############################################################################### runTest {test data-1.53 {BindAllAsText w/DateTime} -setup { setupDb [set fileName data-1.53.db] "" Ticks Utc BindAllAsText } -body { sql execute $db "CREATE TABLE t1(x);" ................................................................................ [list param1 DateTime [set dateTime [object invoke DateTime Parse \ "2000.02.29 13:59:58.1234567Z"]]]] [sql execute -execute reader \ -format list $db "SELECT x FROM t1;"] } -cleanup { cleanupDb $fileName unset -nocomplain dateTime db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {1 630874007980000000}} ############################################################################### runTest {test data-1.54 {bind SQLiteFunction to one SQLiteConnection} -setup { set fileName data-1.54.db } -body { set id [object invoke Interpreter.GetActive NextId] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} DoTest false } 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 compileCSharp} -match regexp -result \ [string map [list \n \r\n] {^Ok System#CodeDom#Compiler#CompilerResults#\d+\ \{\} 1 \{System\.Reflection\.TargetInvocationException: Exception has been\ thrown by the target of an invocation\. --->\ System\.Data\.SQLite\.SQLiteException: SQL logic error or missing database no such function: MyRandom.*\} 0 (?:-)?\d+ 1\ \{System\.Reflection\.TargetInvocationException: Exception has been thrown by\ ................................................................................ VARCHAR2 YESNO] { lappend result [list $typeName [object invoke -flags +NonPublic \ System.Data.SQLite.SQLiteConvert TypeNameToDbType null $typeName None]] } set result } -cleanup { unset -nocomplain result typeName } -constraints {eagle command.object System.Data.SQLite} -result {{BIGINT\ Int64} {BIGUINT UInt64} {BINARY Binary} {BIT Boolean} {BLOB Binary} {BOOL\ Boolean} {BOOLEAN Boolean} {CHAR AnsiStringFixedLength} {CLOB String} {COUNTER\ Int64} {CURRENCY Decimal} {DATE DateTime} {DATETIME DateTime} {DECIMAL Decimal}\ {DOUBLE Double} {FLOAT Double} {GENERAL Binary} {GUID Guid} {IDENTITY Int64}\ {IMAGE Binary} {INT Int32} {INT8 SByte} {INT16 Int16} {INT32 Int32} {INT64\ Int64} {INTEGER Int64} {INTEGER8 SByte} {INTEGER16 Int16} {INTEGER32 Int32}\ {INTEGER64 Int64} {LOGICAL Boolean} {LONG Int64} {LONGCHAR String} {LONGTEXT\ String} {LONGVARCHAR String} {MEMO String} {MONEY Decimal} {NCHAR\ StringFixedLength} {NOTE String} {NTEXT String} {NUMBER Decimal} {NUMERIC\ Decimal} {NVARCHAR String} {OLEOBJECT Binary} {RAW Binary} {REAL Double}\ {SINGLE Single} {SMALLDATE DateTime} {SMALLINT Int16} {SMALLUINT UInt16}\ {STRING String} {TEXT String} {TIME DateTime} {TIMESTAMP DateTime} {TINYINT\ Byte} {TINYSINT SByte} {UINT UInt32} {UINT8 Byte} {UINT16 UInt16} {UINT32\ UInt32} {UINT64 UInt64} {ULONG UInt64} {UNIQUEIDENTIFIER Guid} {UNSIGNEDINTEGER\ UInt64} {UNSIGNEDINTEGER8 Byte} {UNSIGNEDINTEGER16 UInt16} {UNSIGNEDINTEGER32\ UInt32} {UNSIGNEDINTEGER64 UInt64} {VARBINARY Binary} {VARCHAR AnsiString}\ {VARCHAR2 AnsiString} {YESNO Boolean}}} ############################################################################### runTest {test data-1.56 {totype extension} -setup { setupDb [set fileName data-1.56.db] } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {1 {} 1.01 {}}} ############################################################################### runTest {test data-1.57 {regexp extension} -setup { setupDb [set fileName data-1.57.db] } -body { unset -nocomplain pattern result ................................................................................ freeDbConnection unset -nocomplain pattern result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {0 1 1 {unmatched '('} 0 1 1 {unmatched '('} 0 0 1\ {unmatched '('} 0 0 1 {unmatched '('}}} ############################################################################### reportSQLiteResources $test_channel ############################################################################### ................................................................................ "---- largest free SQLite heap block... " $nLargest " bytes\n"] lappend result [list $code $nFree $resetOk $nLargest] } -cleanup { cleanupDb $fileName unset -nocomplain nLargest resetOk nFree code result db fileName } -constraints {eagle command.object monoBug28 configuration.Release\ command.sql compile.DATA SQLite System.Data.SQLite} -match regexp -result \ {^\{Busy 0 False 0\} \{Busy \d+ False 0\} \{Ok 0 True \d+\}$}} ############################################################################### runTest {test data-1.59 {percentile extension} -setup { setupDb [set fileName data-1.59.db] } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {0 4 0 1.75}} ############################################################################### runTest {test data-1.60 {per-connection type mappings} -setup { setupDb [set fileName data-1.60.db] "" "" "" UseConnectionTypes } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain typeMapping typeMappings pair result connection cleanupDb $fileName unset -nocomplain dateTime db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {0 1 {{2014-02-01 12:34:56} 20140201123456} 0 0 1 1\ 2 2 0 {MYDATE {MYDATE DateTime True}} {{2014-02-01 12:34:56} {2014-02-01\ 12:34:56}}}} ############################################################################### runTest {test data-1.61 {SELECT without TYPES} -setup { setupDb [set fileName data-1.61.db] } -body { set values [list NULL 1 'one' 1.0 X'01'] ................................................................................ sql execute -execute reader -format list -allownull true $db \ "SELECT rowId, x, y FROM t1 ORDER BY rowId;" } -cleanup { cleanupDb $fileName unset -nocomplain y x values db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {1 {} {} 2 {} 1 3 {} one 4 {} 1 5 {} 1 6 1 {} 7 1 1\ 8 1 one 9 1 1 10 1 1 11 one {} 12 one 1 13 one one 14 one 1 15 one 1 16 1 {} 17\ 1 1 18 1 one 19 1 1 20 1 1 21 1 {} 22 1 1 23 1 one 24 1 1 25 1 1}} ############################################################################### runTest {test data-1.62 {SELECT with TYPES} -setup { setupDb [set fileName data-1.62.db] } -body { set values [list NULL 1 'one' 1.0 X'01'] ................................................................................ sql execute -execute reader -format list -allownull true $db \ "TYPES INTEGER, INTEGER, REAL; SELECT rowId, x, y FROM t1 ORDER BY rowId;" } -cleanup { cleanupDb $fileName unset -nocomplain y x values db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {1 {} {} 2 {} 1 3 {} 0 4 {} 1 5 {} 0 6 1 {} 7 1 1 8\ 1 0 9 1 1 10 1 0 11 0 {} 12 0 1 13 0 0 14 0 1 15 0 0 16 1 {} 17 1 1 18 1 0 19 1\ 1 20 1 0 21 0 {} 22 0 1 23 0 0 24 0 1 25 0 0}} ############################################################################### runTest {test data-1.63 {SQLiteDataReader HasRows property} -setup { setupDb [set fileName data-1.63.db] } -body { sql execute $db { ................................................................................ [catch {$reader(3) Item x} error] [string match $noRow $error] } -cleanup { unset -nocomplain reader cleanupDb $fileName unset -nocomplain error noRow db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {False True True False True True False True True 1\ True 0 False 0 False False True True False False True False False True 1 True 1\ True 0 False False False True False False False False False False 1 True 1 True\ 1 True}} ############################################################################### runTest {test data-1.64 {SQLiteDataReader sticky HasRows property} -setup { setupDb [set fileName data-1.64.db] "" "" "" StickyHasRows } -body { sql execute $db { ................................................................................ [catch {$reader(3) Item x} error] [string match $noRow $error] } -cleanup { unset -nocomplain reader cleanupDb $fileName unset -nocomplain error noRow db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {False True True False True True False True True 1\ True 0 False 0 False False True True False False True False True True 1 True 1\ True 0 False False True True False False False False True True 1 True 1 True 1\ True}} ############################################################################### runTest {test data-1.65 {SQLiteDataReader StepCount property} -setup { setupDb [set fileName data-1.65.db] } -body { sql execute $db { ................................................................................ [catch {$reader(3) Item x} error] [string match $noRow $error] } -cleanup { unset -nocomplain reader cleanupDb $fileName unset -nocomplain error noRow db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {0 1 1 False True True 0 1 1 1 True 0 False 0 False\ 0 1 1 False False True 0 1 2 1 True 1 True 0 False 0 1 2 False False False 0 1\ 2 1 True 1 True 1 True}} ############################################################################### runTest {test data-1.66 {SQLiteConnection.SetChunkSize default} -setup { setupDb [set fileName data-1.66.db] } -body { sql execute $db { ................................................................................ lappend result [file size [file join [getDatabaseDirectory] $fileName]] } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain result connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {Ok 32768}} ############################################################################### reportSQLiteResources $test_channel ############################################################################### runSQLiteTestFilesEpilogue runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/common.eagle.
89 90 91 92 93 94 95 96 97 98 99 100 101 102 ... 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 .... 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 .... 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 .... 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 .... 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 .... 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 .... 2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 .... 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 .... 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 .... 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 .... 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493 2494 2495 2496 2497 2498 2499 2500 2501 2502 2503 2504 2505 2506 2507 2508 2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 .... 2534 2535 2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556 2557 2558 2559 2560 2561 .... 2746 2747 2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2759 .... 3111 3112 3113 3114 3115 3116 3117 3118 3119 3120 3121 3122 3123 3124 3125 3126 3127 3128 3129 3130 .... 3311 3312 3313 3314 3315 3316 3317 3318 3319 3320 3321 3322 3323 3324 3325 3326 3327 3328 3329 3330 3331 3332 3333 3334 3335 3336 3337 3338 3339 3340 3341 3342 |
# NOTE: Use the default test year for the CLR v2.0. # return 2008; # TODO: Good "fallback" default? } } } } proc getBuildYears {} { # # NOTE: See if the list of test years has been overridden by the user # (e.g. on the command line). # if {[info exists ::test_years] && [llength $::test_years] > 0} then { ................................................................................ # script fragment will end up being evaluated in the context of the # calling interpreter and not the target interpreter created in the # isolated application domain unless the dollar signs and/or square # brackets are specially quoted with backslashes. # return [uplevel 1 [list subst [appendArgs $prefix { if {[hasRuntimeOption native]} then { object invoke Interpreter.GetActive AddRuntimeOption native } } [getTestOverridesPreamble [list path test_channel]] $suffix]]] } proc tryCopyExternalFile { fileName {platform ""} {newFileName ""} {verbose false} } { set sourceFileName [getExternalFileName $fileName] ................................................................................ # # NOTE: The specified platform does not match up with the platform # for the current process. # return false } proc checkForSQLiteBuilds { channel {select false} } { # # NOTE: Check for every possible valid combination of values used when # locating out the build output directory, showing each available # build variation along the way. # ................................................................................ # if {$select && [matchMachine $platform]} then { # # NOTE: Manually override all the build directory selection # related test settings in order to force this build # of System.Data.SQLite to be used. # object invoke Interpreter.GetActive [expr {$native ? \ "AddRuntimeOption" : "RemoveRuntimeOption"}] native set ::test_year $year set ::test_platform $platform set ::test_configuration $configuration tputs $channel [appendArgs \ "yes, selected (" [expr {$native ? "native/" : ""}] \ ................................................................................ # eval lappend command $args # # NOTE: Alias the compiler local results and errors variables to the # variable names provided by our caller. # upvar 1 $resultsVarName results upvar 1 $errorsVarName errors # # NOTE: Evaluate the constructed [compileCSharp] command and return the # result. # eval $command } ................................................................................ # # NOTE: In order to check if the default connection flags are being used # it is necessary to attempt a conversion to the actual enumerated # type. Failing that, the check against the default value will be # skipped. # set error null; # IGNORED set value [object invoke Utility TryParseFlagsEnum "" \ System.Data.SQLite.SQLiteConnectionFlags "" $flags null true \ true error] # # NOTE: If the combined flags string could not actually be converted # to the enumerated type it is the default value, then just use # it verbatim; otherwise, just return an empty string. In that # case, the default connection flags will be used. # ................................................................................ # NOTE: Failure, report why. # tputs $::test_channel [appendArgs \ "==== WARNING: failed to get connection handle for database \"" \ $db "\", error: " \n\t $result \n] } } } proc freeDbConnection { {varName connection} } { # # NOTE: Refer to the specified variable (e.g. "connection") in the # context of our caller. The opaque object handle for an ADO.NET # connection previously returned by [getDbConnection] should be ................................................................................ # debug callback apply {{sender e} { # # NOTE: Check if this callback is one that we care about. # if {"Canceled" in [split [$e InterruptType] ", "]} then { # # NOTE: Iterate through all database connections known to the # parent interpreter. # object foreach -alias pair \ [object invoke -flags +NonPublic $e Interpreter.connections] { # # NOTE: Attempt to cancel any SQL queries in progress on this # database connection. # if {[catch {$pair Value.Cancel} error]} then { tputs $::test_channel [appendArgs \n \ "==== WARNING: failed to cancel query for connection \"" \ [$pair Key] "\", error: " \n\t $error \n] } } } }} } error] == 0} then { addConstraint interruptCallback.sqlite3 tputs $channel yes\n ................................................................................ set code 0 } return $code } proc collectGarbage { channel {milliseconds 1000} {quiet true} } { if {[catch {object invoke GC GetTotalMemory false} result] == 0} then { if {!$quiet} then { tputs $channel [appendArgs \ "---- memory in use by the CLR before collection... " \ $result " bytes\n"] } } else { tputs $channel [appendArgs \ "==== WARNING: failed to get CLR memory usage, error: " \ \n\t $result \n] } ######################################################################### # # NOTE: Repeatedly attempt to collect garbage until the allotted number # of milliseconds has elapsed. Always attempt to collect garbage # at least once. # set start [clock seconds] set stop [expr {$start + ($milliseconds / 1000)}] do { # # NOTE: Attempt to force a full garbage collection now. Report any # error that is encountered if we fail. # if {[catch {object invoke GC GetTotalMemory true} error]} then { tputs $channel [appendArgs \ "==== WARNING: failed full garbage collection, error: " \ \n\t $error \n] } set now [clock seconds] } while {$start <= $now && $now < $stop} ######################################################################### if {[catch {object invoke GC GetTotalMemory false} result] == 0} then { if {!$quiet} then { tputs $channel [appendArgs \ "---- memory in use by the CLR after collection... " \ $result " bytes\n"] } } else { tputs $channel [appendArgs \ "==== WARNING: failed to get CLR memory usage, error: " \ \n\t $result \n] } } proc getSQLiteHandleCounts { channel {quiet false} } { set result [list] if {[haveConstraint \ defineConstant.System.Data.SQLite.COUNT_HANDLE]} then { # # NOTE: Add each critical handle count to the resulting list. # foreach name [list connectionCount statementCount backupCount] { set value [object invoke -flags +NonPublic \ System.Data.SQLite.UnsafeNativeMethods $name] if {!$quiet} then { tputs $channel [appendArgs \ "---- critical handle count \"" $name "\" is " $value \n] } lappend result $value } } elseif {!$quiet} then { # # NOTE: The actual handle counts are not available; therefore, just # return an empty list. # tputs $channel "---- critical handle counts unavailable\n" ................................................................................ proc reportSQLiteResources { channel {quiet false} {reset true} {collect true} } { # # NOTE: If available, report on (and possibly reset) the runtime # configuration statistics. # if {[haveConstraint buildConfiguration.Debug] && [catch { object invoke -flags +NonPublic -alias \ System.Data.SQLite.UnsafeNativeMethods settingReadCounts } settingReadCounts] == 0} then { set nameCount [$settingReadCounts Count] set valueCount 0 object foreach -alias pair $settingReadCounts { ................................................................................ "==== WARNING: failed to reset setting statistics for " \ "the previous " $nameCount " names and " $valueCount \ " values read, error: " \n\t $error \n] } } } if {[haveConstraint \ defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE] && \ [haveConstraint \ defineConstant.System.Data.SQLite.TRACK_MEMORY_BYTES]} then { if {!$quiet} then { tputs $channel "---- current memory in use by SQLiteMemory... " } ................................................................................ } } if {!$quiet} then { tputs $channel "---- current memory in use by SQLite... " } if {[catch { object invoke -flags +NonPublic \ System.Data.SQLite.UnsafeNativeMethods sqlite3_memory_used } memory] == 0} then { if {!$quiet} then { tputs $channel [appendArgs $memory " bytes\n"] } } else { # # NOTE: Maybe the SQLite core library is unavailable? # set memory unknown if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } set result $memory; # NOTE: Return memory in-use to our caller. if {!$quiet} then { tputs $channel "---- maximum memory in use by SQLite... " } if {[catch { object invoke -flags +NonPublic \ System.Data.SQLite.UnsafeNativeMethods sqlite3_memory_highwater 0 } memory] == 0} then { if {!$quiet} then { tputs $channel [appendArgs $memory " bytes\n"] } } else { # # NOTE: Maybe the SQLite core library is unavailable? # set memory unknown if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } if {$collect} then { ................................................................................ collectGarbage $channel } if {!$quiet} then { tputs $channel "---- current memory in use by the CLR... " } if {[catch {object invoke GC GetTotalMemory false} memory] == 0} then { if {[string is integer -strict $memory]} then { if {!$quiet} then { tputs $channel [appendArgs $memory " bytes\n"] } } else { set memory invalid if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } } else { set memory unknown if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } return $result ................................................................................ if {![info exists ::no(prologue.eagle)]} then { # # NOTE: Load the "before-constraints" custom per-user and/or per-host # test settings now. # uplevel 1 [list loadSQLiteTestSettings $::test_channel .before] # # NOTE: Determine the names of the native platform and architecture. # set platform [getBuildPlatform true] set architecture [architectureForPlatform $platform] # ................................................................................ } } # # NOTE: Grab the list of managed assemblies for the current process # and report on the System.Data.SQLite related ones. # set assemblies [object invoke AppDomain.CurrentDomain GetAssemblies] object foreach assembly $assemblies { if {[string match \{System.Data.SQLite* $assembly]} then { tputs $::test_channel [appendArgs \ "---- found loaded assembly: " $assembly \n] } } catch { tputs $::test_channel \ "---- define constants for \"System.Data.SQLite\"... " ................................................................................ # reportSQLiteResources $::test_channel # # NOTE: Grab the list of native modules for the current process and # report on the System.Data.SQLite related ones. # set modules [object invoke \ System.Diagnostics.Process.GetCurrentProcess Modules] object foreach -alias module $modules { # # NOTE: The module file name here must be normalized. # set fileName [file normalize [$module FileName]] if {[string match -nocase */sqlite3.dll $fileName]} then { tputs $::test_channel [appendArgs \ "---- found loaded SQLite native library module: " \ $fileName \n] } elseif {[string match \ -nocase */SQLite.Interop.dll $fileName]} then { tputs $::test_channel [appendArgs \ "---- found loaded SQLite interop assembly module: " \ $fileName \n] } } catch { tputs $::test_channel \ "---- compile-time options for SQLite core library... " |
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | | > > > > > > > > | > > > | > > | > | | | > > > > > > > > > > > > > > > > > > > > > | | | | | | | | | | | | | | > > > > > > > | > | | | | | | | | | > > | | | | | | | > | > | | | | | | > > > | > | | | | | | | | | > | > | | < > | | | | | > > > > > > | | > | | | | | | | | | | | | > > > > > > > > | | | > | | | | | | | | | > > > > > > > > > | > | | | | | | > > > > > > > | > > > > > > > | | | | | > > | | | | | | | | | | | | | | | | > |
89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 ... 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 .... 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 .... 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 .... 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 .... 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 .... 2072 2073 2074 2075 2076 2077 2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 .... 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 .... 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417 2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 2469 2470 2471 2472 2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2483 2484 2485 2486 .... 2568 2569 2570 2571 2572 2573 2574 2575 2576 2577 2578 2579 2580 2581 2582 2583 .... 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 .... 2649 2650 2651 2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 2686 2687 2688 2689 2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2703 2704 2705 2706 2707 2708 2709 2710 2711 2712 2713 2714 2715 .... 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735 2736 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749 2750 2751 2752 2753 .... 2938 2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 .... 3309 3310 3311 3312 3313 3314 3315 3316 3317 3318 3319 3320 3321 3322 3323 3324 3325 3326 3327 3328 3329 3330 .... 3511 3512 3513 3514 3515 3516 3517 3518 3519 3520 3521 3522 3523 3524 3525 3526 3527 3528 3529 3530 3531 3532 3533 3534 3535 3536 3537 3538 3539 3540 3541 3542 3543 3544 |
# NOTE: Use the default test year for the CLR v2.0. # return 2008; # TODO: Good "fallback" default? } } } } # # NOTE: This procedure is only used when adding shimmed test constraints. # proc getBuildClrVersion {} { if {[info exists ::test_clr] && [string length $::test_clr] > 0} then { # # NOTE: Use the specified test version for the CLR. If this variable # is not set, the default value will be based on whether or not # Eagle has been compiled against the CLR v2.0 or CLR v4.0. # return $::test_clr } else { # # NOTE: Check if Eagle has been compiled against the CLR v4.0. If so, # just use that CLR version. Otherwise, use the version for the # CLR v2.0. If another major [incompatible] version of the CLR # is released, this check will have to be changed. The default # version value for a particular CLR version may be overridden # by setting the global variable "test_clr_v$X", where "$X" may # [currently] be either "2" or "4". # if {[haveConstraint imageRuntime40]} then { if {[info exists ::test_clr_v4] && \ [string length $::test_clr_v4] > 0} then { # # NOTE: Use the specified test version for the CLR v4.0. # return $::test_clr_v4 } else { # # NOTE: Use the default test version for the CLR v4.0. # return 4.0.30319; # TODO: Good "fallback" default? } } else { if {[info exists ::test_clr_v2] && \ [string length $::test_clr_v2] > 0} then { # # NOTE: Use the specified test version for the CLR v2.0. # return $::test_clr_v2 } else { # # NOTE: Use the default test version for the CLR v2.0. # return 2.0.50727; # TODO: Good "fallback" default? } } } } proc getBuildYears {} { # # NOTE: See if the list of test years has been overridden by the user # (e.g. on the command line). # if {[info exists ::test_years] && [llength $::test_years] > 0} then { ................................................................................ # script fragment will end up being evaluated in the context of the # calling interpreter and not the target interpreter created in the # isolated application domain unless the dollar signs and/or square # brackets are specially quoted with backslashes. # return [uplevel 1 [list subst [appendArgs $prefix { if {[hasRuntimeOption native]} then { # # NOTE: The \[object\] command may be missing in some Eagle core # library configurations. In that case, we cannot copy the # "native" runtime option. # catch { object invoke Interpreter.GetActive AddRuntimeOption native } } } [getTestOverridesPreamble [list path test_channel]] $suffix]]] } proc tryCopyExternalFile { fileName {platform ""} {newFileName ""} {verbose false} } { set sourceFileName [getExternalFileName $fileName] ................................................................................ # # NOTE: The specified platform does not match up with the platform # for the current process. # return false } proc haveSQLiteObjectCommand {} { # # NOTE: Is the [object] command currently available? # return [expr {[llength [info commands object]] > 0}] } proc checkForSQLiteObjectCommand { channel } { tputs $channel "---- checking for \"object\" command usage... " if {![info exists ::no(sqliteObjectCommand)] && \ [haveSQLiteObjectCommand]} then { tputs $channel yes\n } else { # # NOTE: Unless we are forbidden from doing so, add some constraints # that will allow most of the test suite to run (i.e. those # tests that do not directly rely upon the [object] command). # if {![info exists ::no(shimSQLiteAssemblyConstraints)]} then { addConstraint SQLite addConstraint SQLiteInterop addConstraint System.Data.SQLite addConstraint System.Data.SQLite.Encryption addConstraint System.Data.SQLite.Linq addConstraint [appendArgs \ System.Data.SQLite.dll_v [getBuildClrVersion]] } if {![info exists ::no(shimSQLiteDefineConstantConstraints)]} then { foreach defineConstant [list \ INTEROP_EXTENSION_FUNCTIONS INTEROP_TEST_EXTENSION \ INTEROP_VIRTUAL_TABLE USE_INTEROP_DLL] { addConstraint [appendArgs \ defineConstant.System.Data.SQLite. $defineConstant] } } if {![info exists ::no(shimSQLiteVisualStudioConstraints)]} then { addConstraint [appendArgs visualStudio [getBuildYear]] } tputs $channel no\n } } proc checkForSQLiteBuilds { channel {select false} } { # # NOTE: Check for every possible valid combination of values used when # locating out the build output directory, showing each available # build variation along the way. # ................................................................................ # if {$select && [matchMachine $platform]} then { # # NOTE: Manually override all the build directory selection # related test settings in order to force this build # of System.Data.SQLite to be used. # if {[catch { object invoke Interpreter.GetActive [expr {$native ? \ "AddRuntimeOption" : "RemoveRuntimeOption"}] native } error]} then { tputs $channel [appendArgs \ "no, failed to " [expr {$native ? "add" : "remove"}] \ " the \"native\" runtime option, error: " \n\t $error \n] return false } set ::test_year $year set ::test_platform $platform set ::test_configuration $configuration tputs $channel [appendArgs \ "yes, selected (" [expr {$native ? "native/" : ""}] \ ................................................................................ # eval lappend command $args # # NOTE: Alias the compiler local results and errors variables to the # variable names provided by our caller. # if {[string length $resultsVarName] > 0} then { upvar 1 $resultsVarName results } if {[string length $errorsVarName] > 0} then { upvar 1 $errorsVarName errors } # # NOTE: Evaluate the constructed [compileCSharp] command and return the # result. # eval $command } ................................................................................ # # NOTE: In order to check if the default connection flags are being used # it is necessary to attempt a conversion to the actual enumerated # type. Failing that, the check against the default value will be # skipped. # if {[catch { set error null; # IGNORED object invoke Utility TryParseFlagsEnum "" \ System.Data.SQLite.SQLiteConnectionFlags "" $flags null true \ true error } value]} then { # # NOTE: Attempting to parse the connection flags caused a script # error. Emit a warning to the test log file and continue # using an emtpy string instead. # tlog [appendArgs \ "==== WARNING: failed to parse connection flags, error: " \ \n\t $value \n] set value "" } # # NOTE: If the combined flags string could not actually be converted # to the enumerated type it is the default value, then just use # it verbatim; otherwise, just return an empty string. In that # case, the default connection flags will be used. # ................................................................................ # NOTE: Failure, report why. # tputs $::test_channel [appendArgs \ "==== WARNING: failed to get connection handle for database \"" \ $db "\", error: " \n\t $result \n] } } # # NOTE: Failure, return an obviously invalid opaque object handle. # return "" } proc freeDbConnection { {varName connection} } { # # NOTE: Refer to the specified variable (e.g. "connection") in the # context of our caller. The opaque object handle for an ADO.NET # connection previously returned by [getDbConnection] should be ................................................................................ # debug callback apply {{sender e} { # # NOTE: Check if this callback is one that we care about. # if {"Canceled" in [split [$e InterruptType] ", "]} then { # # NOTE: Make sure the [object] command is available. # if {[haveSQLiteObjectCommand]} then { # # NOTE: Iterate through all database connections known to the # parent interpreter. # object foreach -alias pair [object invoke -flags +NonPublic \ $e Interpreter.connections] { # # NOTE: Attempt to cancel any SQL queries in progress on this # database connection. # if {[catch {$pair Value.Cancel} error]} then { tputs $::test_channel [appendArgs \n \ "==== WARNING: failed to cancel query for connection \"" \ [$pair Key] "\", error: " \n\t $error \n] } } } else { tputs $::test_channel [appendArgs \n \ "==== WARNING: cannot cancel any queries: " \ "the \"object\" command is not available\n"] } } }} } error] == 0} then { addConstraint interruptCallback.sqlite3 tputs $channel yes\n ................................................................................ set code 0 } return $code } proc collectGarbage { channel {milliseconds 1000} {quiet true} } { if {[haveSQLiteObjectCommand]} then { if {[catch { object invoke GC GetTotalMemory false } result] == 0} then { if {!$quiet} then { tputs $channel [appendArgs \ "---- memory in use by the CLR before collection... " \ $result " bytes\n"] } } else { tputs $channel [appendArgs \ "==== WARNING: failed to get CLR memory usage, error: " \ \n\t $result \n] } } ######################################################################### # # NOTE: Repeatedly attempt to collect garbage until the allotted number # of milliseconds has elapsed. Always attempt to collect garbage # at least once. # if {[haveSQLiteObjectCommand]} then { set start [clock seconds] set stop [expr {$start + ($milliseconds / 1000)}] do { # # NOTE: Attempt to force a full garbage collection now. Report any # error that is encountered if we fail. # if {[catch { object invoke GC GetTotalMemory true } error]} then { tputs $channel [appendArgs \ "==== WARNING: failed full garbage collection, error: " \ \n\t $error \n] } set now [clock seconds] } while {$start <= $now && $now < $stop} } ######################################################################### if {[haveSQLiteObjectCommand]} then { if {[catch { object invoke GC GetTotalMemory false } result] == 0} then { if {!$quiet} then { tputs $channel [appendArgs \ "---- memory in use by the CLR after collection... " \ $result " bytes\n"] } } else { tputs $channel [appendArgs \ "==== WARNING: failed to get CLR memory usage, error: " \ \n\t $result \n] } } } proc getSQLiteHandleCounts { channel {quiet false} } { set result [list] if {[haveSQLiteObjectCommand] && [haveConstraint \ defineConstant.System.Data.SQLite.COUNT_HANDLE]} then { # # NOTE: Add each critical handle count to the resulting list. # foreach name [list connectionCount statementCount backupCount] { if {[catch { object invoke -flags +NonPublic \ System.Data.SQLite.UnsafeNativeMethods $name } value] == 0} then { if {!$quiet} then { tputs $channel [appendArgs \ "---- critical handle count \"" $name "\" is " $value \n] } lappend result $value } else { tputs $channel [appendArgs \ "==== WARNING: failed to get critical handle count \"" \ $name "\", error: " \n\t $value \n] } } } elseif {!$quiet} then { # # NOTE: The actual handle counts are not available; therefore, just # return an empty list. # tputs $channel "---- critical handle counts unavailable\n" ................................................................................ proc reportSQLiteResources { channel {quiet false} {reset true} {collect true} } { # # NOTE: If available, report on (and possibly reset) the runtime # configuration statistics. # if {[haveSQLiteObjectCommand] && \ [haveConstraint buildConfiguration.Debug] && [catch { object invoke -flags +NonPublic -alias \ System.Data.SQLite.UnsafeNativeMethods settingReadCounts } settingReadCounts] == 0} then { set nameCount [$settingReadCounts Count] set valueCount 0 object foreach -alias pair $settingReadCounts { ................................................................................ "==== WARNING: failed to reset setting statistics for " \ "the previous " $nameCount " names and " $valueCount \ " values read, error: " \n\t $error \n] } } } if {[haveSQLiteObjectCommand] && [haveConstraint \ defineConstant.System.Data.SQLite.INTEROP_VIRTUAL_TABLE] && \ [haveConstraint \ defineConstant.System.Data.SQLite.TRACK_MEMORY_BYTES]} then { if {!$quiet} then { tputs $channel "---- current memory in use by SQLiteMemory... " } ................................................................................ } } if {!$quiet} then { tputs $channel "---- current memory in use by SQLite... " } if {[haveSQLiteObjectCommand]} then { if {[catch { object invoke -flags +NonPublic \ System.Data.SQLite.UnsafeNativeMethods sqlite3_memory_used } memory] == 0} then { if {!$quiet} then { tputs $channel [appendArgs $memory " bytes\n"] } } else { # # NOTE: Maybe the SQLite core library is unavailable? # set memory unknown if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } } else { set memory unavailable if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } set result $memory; # NOTE: Return memory in-use to our caller. if {!$quiet} then { tputs $channel "---- maximum memory in use by SQLite... " } if {[haveSQLiteObjectCommand]} then { if {[catch { object invoke -flags +NonPublic \ System.Data.SQLite.UnsafeNativeMethods \ sqlite3_memory_highwater 0 } memory] == 0} then { if {!$quiet} then { tputs $channel [appendArgs $memory " bytes\n"] } } else { # # NOTE: Maybe the SQLite core library is unavailable? # set memory unknown if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } } else { set memory unavailable if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } if {$collect} then { ................................................................................ collectGarbage $channel } if {!$quiet} then { tputs $channel "---- current memory in use by the CLR... " } if {[haveSQLiteObjectCommand]} then { if {[catch { object invoke GC GetTotalMemory false } memory] == 0} then { if {[string is integer -strict $memory]} then { if {!$quiet} then { tputs $channel [appendArgs $memory " bytes\n"] } } else { set memory invalid if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } } else { set memory unknown if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } } else { set memory unavailable if {!$quiet} then { tputs $channel [appendArgs $memory \n] } } return $result ................................................................................ if {![info exists ::no(prologue.eagle)]} then { # # NOTE: Load the "before-constraints" custom per-user and/or per-host # test settings now. # uplevel 1 [list loadSQLiteTestSettings $::test_channel .before] # # NOTE: Check if the [object] command is available; if not, add some # shims to make the test suite run smoother. # checkForSQLiteObjectCommand $::test_channel # # NOTE: Determine the names of the native platform and architecture. # set platform [getBuildPlatform true] set architecture [architectureForPlatform $platform] # ................................................................................ } } # # NOTE: Grab the list of managed assemblies for the current process # and report on the System.Data.SQLite related ones. # if {[haveSQLiteObjectCommand]} then { set assemblies [object invoke AppDomain.CurrentDomain GetAssemblies] object foreach assembly $assemblies { if {[string match \{System.Data.SQLite* $assembly]} then { tputs $::test_channel [appendArgs \ "---- found loaded assembly: " $assembly \n] } } } catch { tputs $::test_channel \ "---- define constants for \"System.Data.SQLite\"... " ................................................................................ # reportSQLiteResources $::test_channel # # NOTE: Grab the list of native modules for the current process and # report on the System.Data.SQLite related ones. # if {[haveSQLiteObjectCommand]} then { set modules [object invoke \ System.Diagnostics.Process.GetCurrentProcess Modules] object foreach -alias module $modules { # # NOTE: The module file name here must be normalized. # set fileName [file normalize [$module FileName]] if {[string match -nocase */sqlite3.dll $fileName]} then { tputs $::test_channel [appendArgs \ "---- found loaded SQLite native library module: " \ $fileName \n] } elseif {[string match \ -nocase */SQLite.Interop.dll $fileName]} then { tputs $::test_channel [appendArgs \ "---- found loaded SQLite interop assembly module: " \ $fileName \n] } } } catch { tputs $::test_channel \ "---- compile-time options for SQLite core library... " |
Changes to Tests/settings.before.mistachkin.eagle.
4 5 6 7 8 9 10 11 12 |
# # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### if {[info exists ::env(TEST_ALL)]} then { object invoke Interpreter.GetActive AddRuntimeOption noPoolCounts } |
> | | > |
4 5 6 7 8 9 10 11 12 13 14 |
# # Written by Joe Mistachkin. # Released to the public domain, use at your own risk! # ############################################################################### if {[info exists ::env(TEST_ALL)]} then { catch { object invoke Interpreter.GetActive AddRuntimeOption noPoolCounts } } |
Changes to Tests/stress.eagle.
1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 |
rename cleanupLogging ""
rename setupLogging ""
unset -nocomplain result thread index workload priority noWorkload \
priorities srcDb db fileName compiled options count times logFileName \
logListener event timeout connection indicators iterations exitOnFail \
coTaskMem noTrace failures status workloadNames workloadCallbacks
} -time true -constraints {eagle monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -result {0}}
###############################################################################
#
# NOTE: Report after test.
#
checkForSQLiteDirectories $test_channel
|
| | |
1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 |
rename cleanupLogging "" rename setupLogging "" unset -nocomplain result thread index workload priority noWorkload \ priorities srcDb db fileName compiled options count times logFileName \ logListener event timeout connection indicators iterations exitOnFail \ coTaskMem noTrace failures status workloadNames workloadCallbacks } -time true -constraints {eagle command.object monoBug28 command.sql\ compile.DATA SQLite System.Data.SQLite compileCSharp} -result {0}} ############################################################################### # # NOTE: Report after test. # checkForSQLiteDirectories $test_channel |
Changes to Tests/thread.eagle.
453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 |
[collectGarbage $test_channel [expr {$count(1) * 1000}] false] \ [getSQLiteHandleCounts $test_channel] \ [reportSQLiteResources $test_channel] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -time true -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result [appendArgs "^Ok\ System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\d+ \\d+ " $count(1) \ "\\} \\{\\} \\{" $handle_counts "\\} " $memory_used \$]} ############################################################################### unset -nocomplain count ############################################################################### unset -nocomplain memory_used handle_counts ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | | |
453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 |
[collectGarbage $test_channel [expr {$count(1) * 1000}] false] \ [getSQLiteHandleCounts $test_channel] \ [reportSQLiteResources $test_channel] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -time true -constraints {eagle command.object monoBug28 command.sql\ compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \ [appendArgs "^Ok System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\d+\ \\d+ " $count(1) "\\} \\{\\} \\{" $handle_counts "\\} " $memory_used \$]} ############################################################################### unset -nocomplain count ############################################################################### unset -nocomplain memory_used handle_counts ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-0d5b1ef362.eagle.
56 57 58 59 60 61 62 63 64 65 66 67 68 69 |
# NOTE: Make sure that no DomainUnload handlers were actually added while we # created the two connections (i.e. because we are not in the default # application domain). # expr {$x == $y} } -cleanup { unset -nocomplain connection i x y } -constraints {eagle dotNet monoBug28 compile.ISOLATED_INTERPRETERS SQLite\ System.Data.SQLite} -isolationLevel AppDomain -result {True}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
> | | |
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 |
# NOTE: Make sure that no DomainUnload handlers were actually added while we # created the two connections (i.e. because we are not in the default # application domain). # expr {$x == $y} } -cleanup { unset -nocomplain connection i x y } -constraints {eagle command.object dotNet monoBug28\ compile.ISOLATED_INTERPRETERS SQLite System.Data.SQLite} -isolationLevel \ AppDomain -result {True}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-17045010df.eagle.
48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 |
freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 defineConstant.System.Data.SQLite.INTEROP_TEST_EXTENSION\ command.sql compile.DATA SQLite System.Data.SQLite} -result {{0 {}} {1\ {EXCEPTION System.Data.SQLite.SQLiteException\ System.Data.SQLite.SQLite3.LoadExtension}\ {System.Reflection.TargetInvocationException: Exception has been thrown by the\ target of an invocation. ---> System.Data.SQLite.SQLiteException: SQL logic\ error or missing database, not authorized}} {1 {EXCEPTION\ System.Data.SQLite.SQLiteException System.Data.SQLite.SQLite3.Prepare}\ {System.Data.SQLite.SQLiteException (0x80004005): SQL logic error or missing\ database, no such function: interopTest}} {1 {EXCEPTION\ System.Data.SQLite.SQLiteException System.Data.SQLite.SQLite3.Prepare}\ |
| | | | < |
48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28\ defineConstant.System.Data.SQLite.INTEROP_TEST_EXTENSION command.sql\ compile.DATA SQLite System.Data.SQLite} -result {{0 {}} {1 {EXCEPTION\ System.Data.SQLite.SQLiteException System.Data.SQLite.SQLite3.LoadExtension}\ {System.Reflection.TargetInvocationException: Exception has been thrown by the\ target of an invocation. ---> System.Data.SQLite.SQLiteException: SQL logic\ error or missing database, not authorized}} {1 {EXCEPTION\ System.Data.SQLite.SQLiteException System.Data.SQLite.SQLite3.Prepare}\ {System.Data.SQLite.SQLiteException (0x80004005): SQL logic error or missing\ database, no such function: interopTest}} {1 {EXCEPTION\ System.Data.SQLite.SQLiteException System.Data.SQLite.SQLite3.Prepare}\ |
Changes to Tests/tkt-1c456ae75f.eagle.
179 180 181 182 183 184 185 186 187 188 189 190 191 192 |
set result
} -cleanup {
unset -nocomplain connection
cleanupDb $fileName; # NOTE: After object disposal.
unset -nocomplain connectionStringBuilder error result db fileName
} -constraints {eagle System.Data.SQLite.Encryption monoBug28 command.sql\
compile.DATA SQLite System.Data.SQLite} -result {0 1 0 1 0 1 0 3}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
| | |
179 180 181 182 183 184 185 186 187 188 189 190 191 192 |
set result } -cleanup { unset -nocomplain connection cleanupDb $fileName; # NOTE: After object disposal. unset -nocomplain connectionStringBuilder error result db fileName } -constraints {eagle command.object System.Data.SQLite.Encryption monoBug28\ command.sql compile.DATA SQLite System.Data.SQLite} -result {0 1 0 1 0 1 0 3}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-201128cc88.eagle.
90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 |
[sql execute -execute scalar $db "SELECT Base64(CAST(NULL AS BLOB));"] \ [sql execute -execute scalar $db "SELECT Base64(CAST('' AS BLOB));"] \ [sql execute -execute scalar $db "SELECT Base64(CAST('foo' AS BLOB));"] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}\ System#Data#SQLite#SQLiteConnection#\d+ \{\} \{\} Zm9v$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 |
[sql execute -execute scalar $db "SELECT Base64(CAST(NULL AS BLOB));"] \
[sql execute -execute scalar $db "SELECT Base64(CAST('' AS BLOB));"] \
[sql execute -execute scalar $db "SELECT Base64(CAST('foo' AS BLOB));"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain result code results errors id db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}\
System#Data#SQLite#SQLiteConnection#\d+ \{\} \{\} Zm9v$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-2ce0870fad.eagle.
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
..
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
############################################################################### for {set i 1} {$i < 3} {incr i} { runTest {test [appendArgs tkt-2ce0870fad-1. $i] {logging setup} -setup \ [getAppDomainPreamble { set i {$i} set appDomainId($i) {[object invoke AppDomain.CurrentDomain Id]} set fileName {[appendArgs tkt-2ce0870fad-1. $i .db]} }] -body { set appDomainId(3) [object invoke AppDomain.CurrentDomain Id] package require Eagle.Library package require Eagle.Test package require System.Data.SQLite.Test ................................................................................ # it. # if {$i <= 1} then { unset -nocomplain i } unset -nocomplain assembly appDomainId db fileName } -constraints {eagle monoBug28 command.sql compile.DATA\ compile.ISOLATED_INTERPRETERS SQLite System.Data.SQLite} -isolationLevel \ [expr {$i == 1 ? "AppDomain" : "Default"}] -match regexp -result \ {^\d+ \d+ True System#Data#SQLite#SQLiteConnection#\d+$}} } ############################################################################### unset -nocomplain i ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
>
>
|
>
|
|
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
..
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
############################################################################### for {set i 1} {$i < 3} {incr i} { runTest {test [appendArgs tkt-2ce0870fad-1. $i] {logging setup} -setup \ [getAppDomainPreamble { set i {$i} set appDomainId($i) {[expr {[haveObjectCommand] ? \ [object invoke AppDomain.CurrentDomain Id] : [info appdomain]}]} set fileName {[appendArgs tkt-2ce0870fad-1. $i .db]} }] -body { set appDomainId(3) [object invoke AppDomain.CurrentDomain Id] package require Eagle.Library package require Eagle.Test package require System.Data.SQLite.Test ................................................................................ # it. # if {$i <= 1} then { unset -nocomplain i } unset -nocomplain assembly appDomainId db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA\ compile.ISOLATED_INTERPRETERS SQLite System.Data.SQLite} -isolationLevel \ [expr {$i == 1 ? "AppDomain" : "Default"}] -match regexp -result \ {^\d+ \d+ True System#Data#SQLite#SQLiteConnection#\d+$}} } ############################################################################### unset -nocomplain i ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-3113734605.eagle.
54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 |
} -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain value dataRow dataRows dataTable collectionName result \ connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \ regexp -result {^t1 v 12 System#DBNull#\d+ t1 w 23 System#DBNull#\d+ t1 x 34\ System#DBNull#\d+ t1 y 45 System#DBNull#\d+ t1 z 56 System#DBNull#\d+ v1 v 12\ System#DBNull#\d+ v1 w 23 System#DBNull#\d+ v1 x 34 System#DBNull#\d+ v1 y 45\ System#DBNull#\d+ v1 z 56 System#DBNull#\d+ t1 v 12 System#DBNull#\d+ t1 w 23\ System#DBNull#\d+ t1 x 34 System#DBNull#\d+ t1 y 45 System#DBNull#\d+ t1 z 56\ System#DBNull#\d+$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | | | | | | |
54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
} -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain value dataRow dataRows dataTable collectionName result \ connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -match regexp -result {^t1 v 12 System#DBNull#\d+ t1 w 23\ System#DBNull#\d+ t1 x 34 System#DBNull#\d+ t1 y 45 System#DBNull#\d+ t1 z 56\ System#DBNull#\d+ v1 v 12 System#DBNull#\d+ v1 w 23 System#DBNull#\d+ v1 x 34\ System#DBNull#\d+ v1 y 45 System#DBNull#\d+ v1 z 56 System#DBNull#\d+ t1 v 12\ System#DBNull#\d+ t1 w 23 System#DBNull#\d+ t1 x 34 System#DBNull#\d+ t1 y 45\ System#DBNull#\d+ t1 z 56 System#DBNull#\d+$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-343d392b51.eagle.
75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 ... 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 ... 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 ... 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 |
[sql execute -verbatim -execute reader -format list -datetimeformat \ [getDateTimeFormat] $db "SELECT x FROM t1 WHERE x = ?;" \ [list param1 DateTime $paramDateTime1]] } -cleanup { cleanupDb $fileName unset -nocomplain paramDateTime2 paramDateTime1 dateTime db fileName } -constraints \ {eagle threadCulture.en_US monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{{2011-10-04 15:27:50Z}} {{2011-10-04 15:27:50Z}}}} } ############################################################################### unset -nocomplain dateTimeFormat i dateTimeFormats ############################################################################### ................................................................................ } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName; unset -nocomplain db fileName cleanupDb $otherFileName unset -nocomplain result code results errors i sql otherTable otherDbName \ otherDataSource dataSource id otherFileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match glob -result {*\ System.Data.DBConcurrencyException: *}} ############################################################################### runTest {test tkt-343d392b51-2.2 {SQLiteDataAdapter update success} -setup { setupDb [set fileName tkt-343d392b51-2.2.db] "" JulianDay ................................................................................ } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName; unset -nocomplain db fileName cleanupDb $otherFileName unset -nocomplain result code results errors i sql otherTable otherDbName \ otherDataSource dataSource id otherFileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runTest {test tkt-343d392b51-3.1 {attached database, same table name} -setup { setupDb [set fileName tkt-343d392b51-3.1.db] ................................................................................ } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName; unset -nocomplain db fileName cleanupDb $otherFileName unset -nocomplain result code results errors i sql otherTable otherDbName \ otherDataSource dataSource id otherFileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | | | | |
75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 ... 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 ... 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 ... 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 |
[sql execute -verbatim -execute reader -format list -datetimeformat \ [getDateTimeFormat] $db "SELECT x FROM t1 WHERE x = ?;" \ [list param1 DateTime $paramDateTime1]] } -cleanup { cleanupDb $fileName unset -nocomplain paramDateTime2 paramDateTime1 dateTime db fileName } -constraints {eagle command.object threadCulture.en_US monoBug28\ command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{{2011-10-04 15:27:50Z}} {{2011-10-04 15:27:50Z}}}} } ############################################################################### unset -nocomplain dateTimeFormat i dateTimeFormats ############################################################################### ................................................................................ } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName; unset -nocomplain db fileName cleanupDb $otherFileName unset -nocomplain result code results errors i sql otherTable otherDbName \ otherDataSource dataSource id otherFileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match glob -result {*\ System.Data.DBConcurrencyException: *}} ############################################################################### runTest {test tkt-343d392b51-2.2 {SQLiteDataAdapter update success} -setup { setupDb [set fileName tkt-343d392b51-2.2.db] "" JulianDay ................................................................................ } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName; unset -nocomplain db fileName cleanupDb $otherFileName unset -nocomplain result code results errors i sql otherTable otherDbName \ otherDataSource dataSource id otherFileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runTest {test tkt-343d392b51-3.1 {attached database, same table name} -setup { setupDb [set fileName tkt-343d392b51-3.1.db] ................................................................................ } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName; unset -nocomplain db fileName cleanupDb $otherFileName unset -nocomplain result code results errors i sql otherTable otherDbName \ otherDataSource dataSource id otherFileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-393d954be0.eagle.
51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
} -cleanup { cleanupDb $fileName catch {object invoke System.Data.SQLite.SQLiteConnection ConnectionPool null} unset -nocomplain db fileName exists counts openCount closeCount totalCount \ nullPool } -constraints {eagle monoBug28 buildConfiguration.Debug command.sql\ compile.DATA SQLite System.Data.SQLite} -match regexp -result [string map \ [list \n \r\n] {^True False \{\} 0 0 0\ \{Remove\(".*?\\tkt-393d954be0-1\.1\.db",\ 100, 0\) Add\(".*?\\tkt-393d954be0-1\.1\.db", -?\d+, 0\) GetCounts\("tkt-393d954be0-1\.1\.db", , 0, 0, 0\) ClearPool\("tkt-393d954be0-1\.1\.db"\) ClearAllPools\(\) \}$}]} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | |
51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 |
} -cleanup { cleanupDb $fileName catch {object invoke System.Data.SQLite.SQLiteConnection ConnectionPool null} unset -nocomplain db fileName exists counts openCount closeCount totalCount \ nullPool } -constraints {eagle command.object monoBug28 buildConfiguration.Debug\ command.sql compile.DATA SQLite System.Data.SQLite} -match regexp -result \ [string map [list \n \r\n] {^True False \{\} 0 0 0\ \{Remove\(".*?\\tkt-393d954be0-1\.1\.db",\ 100, 0\) Add\(".*?\\tkt-393d954be0-1\.1\.db", -?\d+, 0\) GetCounts\("tkt-393d954be0-1\.1\.db", , 0, 0, 0\) ClearPool\("tkt-393d954be0-1\.1\.db"\) ClearAllPools\(\) \}$}]} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-3aa50d8413.eagle.
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
[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 db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
[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 db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-3c00ec5b52.eagle.
76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 ... 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 ... 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 ... 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 ... 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 |
freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {String TEXT}} ############################################################################### runTest {test tkt-3c00ec5b52-1.2 {fallback default types w/flag} -setup { setupDb [set fileName tkt-3c00ec5b52-1.2.db] "" "" "" UseConnectionTypes } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {Object {}}} ############################################################################### runTest {test tkt-3c00ec5b52-1.3 {fallback default types w/o flag} -setup { setupDb [set fileName tkt-3c00ec5b52-1.3.db] } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {Object {}}} ############################################################################### runTest {test tkt-3c00ec5b52-1.4 {default types, via environment} -setup { saveSQLiteConvertEnvironment set env(Use_SQLiteConvert_DefaultDbType) String ................................................................................ unset -nocomplain result connection cleanupDb $fileName restoreSQLiteConvertEnvironment unset -nocomplain db fileName savedEnv } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {String TEXT}} ############################################################################### runTest {test tkt-3c00ec5b52-1.5 {default types, with unique index} -setup { saveSQLiteConvertEnvironment set env(Use_SQLiteConvert_DefaultDbType) String ................................................................................ unset -nocomplain results dataRow dataRows dataTable connection cleanupDb $fileName restoreSQLiteConvertEnvironment unset -nocomplain db fileName savedEnv } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{t1 sqlite_autoindex_t1_1 True}}} ############################################################################### rename restoreSQLiteConvertEnvironment "" rename saveSQLiteConvertEnvironment "" ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | < | | < | | < | | < | | |
76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 ... 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 ... 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 ... 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 ... 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 |
freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {String TEXT}} ############################################################################### runTest {test tkt-3c00ec5b52-1.2 {fallback default types w/flag} -setup { setupDb [set fileName tkt-3c00ec5b52-1.2.db] "" "" "" UseConnectionTypes } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {Object {}}} ############################################################################### runTest {test tkt-3c00ec5b52-1.3 {fallback default types w/o flag} -setup { setupDb [set fileName tkt-3c00ec5b52-1.3.db] } -body { set connection [getDbConnection] ................................................................................ freeDbConnection unset -nocomplain result connection cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {Object {}}} ############################################################################### runTest {test tkt-3c00ec5b52-1.4 {default types, via environment} -setup { saveSQLiteConvertEnvironment set env(Use_SQLiteConvert_DefaultDbType) String ................................................................................ unset -nocomplain result connection cleanupDb $fileName restoreSQLiteConvertEnvironment unset -nocomplain db fileName savedEnv } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {String TEXT}} ############################################################################### runTest {test tkt-3c00ec5b52-1.5 {default types, with unique index} -setup { saveSQLiteConvertEnvironment set env(Use_SQLiteConvert_DefaultDbType) String ................................................................................ unset -nocomplain results dataRow dataRows dataTable connection cleanupDb $fileName restoreSQLiteConvertEnvironment unset -nocomplain db fileName savedEnv } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{t1 sqlite_autoindex_t1_1 True}}} ############################################################################### rename restoreSQLiteConvertEnvironment "" rename saveSQLiteConvertEnvironment "" ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-3e783eecbe.eagle.
53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 .. 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 ... 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 |
$code $result] } set results } -cleanup { unset -nocomplain code result results dateTimeValue dateTimeValues \ maxDateTime minDateTime } -constraints {eagle System.Data.SQLite} -result {{{0001-01-01 00:00:00} 0\ 1721425.5} {{0099-12-31 00:00:00Z} 0 1757583.5} {{0100-01-01 00:00:00Z} 0\ 1757584.5} {{9999-12-31 23:59:59.9999999} 0 5373484.49999999}}} ############################################################################### runTest {test tkt-3e783eecbe-1.2 {From Julian Day w/o OLE Automation} -setup { set minDoubleValue [object invoke -create -alias Double MinValue] set maxDoubleValue [object invoke -create -alias Double MaxValue] ................................................................................ lappend results [list [$doubleValue ToString] $code $result] } set results } -cleanup { unset -nocomplain code result results dateTimeValue doubleValue \ doubleValues maxDoubleValue minDoubleValue } -constraints {eagle System.Data.SQLite} -result {{-1.79769313486232E+308 1\ System.ArgumentException} {-1 1 System.ArgumentException} {0 1\ System.ArgumentException} {1 1 System.ArgumentException} {1721425.5 0\ {0001-01-01 00:00:00Z}} {1757583.5 0 {0099-12-31 00:00:00Z}} {2451910.5 0\ {2001-01-01 00:00:00Z}} {2456962 0 {2014-10-31 12:00:00Z}} {5373484.49999998 0\ {9999-12-31 23:59:59.998Z}} {5373484.49999999 0 {9999-12-31 23:59:59.999Z}}\ {1.79769313486232E+308 1 System.ArgumentException}}} ############################################################################### runTest {test tkt-3e783eecbe-1.3 {Julian Day storage} -setup { set doubleValues [list \ -1.0 0.0 1.0 1721425.5 1757583.5 2451910.5 2456962.0 \ 5373484.49999998 5373484.49999999] ................................................................................ } -cleanup { unset -nocomplain code result results i dateTimeValue doubleValue \ doubleValues maxDoubleValue minDoubleValue cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{-1 1 System.ArgumentException} {0 1 System.ArgumentException} {1 1\ System.ArgumentException} {1721425.5 0 {{0001-01-01 00:00:00}}} {1757583.5 0\ {{0099-12-31 00:00:00}}} {2451910.5 0 {{2001-01-01 00:00:00}}} {2456962 0\ {{2014-10-31 12:00:00}}} {5373484.49999998 0 {{9999-12-31 23:59:59.998}}}\ {5373484.49999999 0 {{9999-12-31 23:59:59.999}}}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | | | > | | | | | | | | | | | | |
53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 .. 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 ... 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 |
$code $result] } set results } -cleanup { unset -nocomplain code result results dateTimeValue dateTimeValues \ maxDateTime minDateTime } -constraints {eagle command.object System.Data.SQLite} -result {{{0001-01-01\ 00:00:00} 0 1721425.5} {{0099-12-31 00:00:00Z} 0 1757583.5} {{0100-01-01\ 00:00:00Z} 0 1757584.5} {{9999-12-31 23:59:59.9999999} 0 5373484.49999999}}} ############################################################################### runTest {test tkt-3e783eecbe-1.2 {From Julian Day w/o OLE Automation} -setup { set minDoubleValue [object invoke -create -alias Double MinValue] set maxDoubleValue [object invoke -create -alias Double MaxValue] ................................................................................ lappend results [list [$doubleValue ToString] $code $result] } set results } -cleanup { unset -nocomplain code result results dateTimeValue doubleValue \ doubleValues maxDoubleValue minDoubleValue } -constraints {eagle command.object System.Data.SQLite} -result \ {{-1.79769313486232E+308 1 System.ArgumentException} {-1 1\ System.ArgumentException} {0 1 System.ArgumentException} {1 1\ System.ArgumentException} {1721425.5 0 {0001-01-01 00:00:00Z}} {1757583.5 0\ {0099-12-31 00:00:00Z}} {2451910.5 0 {2001-01-01 00:00:00Z}} {2456962 0\ {2014-10-31 12:00:00Z}} {5373484.49999998 0 {9999-12-31 23:59:59.998Z}}\ {5373484.49999999 0 {9999-12-31 23:59:59.999Z}} {1.79769313486232E+308 1\ System.ArgumentException}}} ############################################################################### runTest {test tkt-3e783eecbe-1.3 {Julian Day storage} -setup { set doubleValues [list \ -1.0 0.0 1.0 1721425.5 1757583.5 2451910.5 2456962.0 \ 5373484.49999998 5373484.49999999] ................................................................................ } -cleanup { unset -nocomplain code result results i dateTimeValue doubleValue \ doubleValues maxDoubleValue minDoubleValue cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{-1 1 System.ArgumentException} {0 1\ System.ArgumentException} {1 1 System.ArgumentException} {1721425.5 0\ {{0001-01-01 00:00:00}}} {1757583.5 0 {{0099-12-31 00:00:00}}} {2451910.5 0\ {{2001-01-01 00:00:00}}} {2456962 0 {{2014-10-31 12:00:00}}} {5373484.49999998\ 0 {{9999-12-31 23:59:59.998}}} {5373484.49999999 0\ {{9999-12-31 23:59:59.999}}}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-47c6fa04d3.eagle.
113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 |
[expr {$code eq "Ok" ? [catch { object invoke -alias _Dynamic${id}.Test${id} GetDataTable } result] : [set result ""]}] $result [getRowsFromDataTable $result] } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 System#Data#DataTable#\d+\ \{\{\{id 2\} \{min 2\} \{max 3\} \{sum 5\}\} \{\{id 2\} \{min 1\} \{max 2\}\ \{sum 3\}\}\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 |
[expr {$code eq "Ok" ? [catch {
object invoke -alias _Dynamic${id}.Test${id} GetDataTable
} result] : [set result ""]}] $result [getRowsFromDataTable $result]
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 System#Data#DataTable#\d+\
\{\{\{id 2\} \{min 2\} \{max 3\} \{sum 5\}\} \{\{id 2\} \{min 1\} \{max 2\}\
\{sum 3\}\}\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-47f4bac575.eagle.
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
StringFixedLength Xml DateTime2 DateTimeOffset] { lappend result [list $dbType [object invoke -flags +NonPublic \ System.Data.SQLite.SQLiteConvert DbTypeToTypeName null $dbType None]] } set result } -cleanup { unset -nocomplain result dbType } -constraints {eagle System.Data.SQLite} -result {{AnsiString VARCHAR} {Binary\ BLOB} {Byte TINYINT} {Boolean BIT} {Currency {}} {Date {}} {DateTime DATETIME}\ {Decimal DECIMAL} {Double REAL} {Guid UNIQUEIDENTIFIER} {Int16 SMALLINT} {Int32\ INT} {Int64 INTEGER} {Object {}} {SByte TINYSINT} {Single SINGLE} {String\ NVARCHAR} {Time {}} {UInt16 SMALLUINT} {UInt32 UINT} {UInt64 UNSIGNEDINTEGER}\ {VarNumeric {}} {AnsiStringFixedLength CHAR} {StringFixedLength NCHAR} {Xml {}}\ {DateTime2 {}} {DateTimeOffset {}}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | | | | | |
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
StringFixedLength Xml DateTime2 DateTimeOffset] { lappend result [list $dbType [object invoke -flags +NonPublic \ System.Data.SQLite.SQLiteConvert DbTypeToTypeName null $dbType None]] } set result } -cleanup { unset -nocomplain result dbType } -constraints {eagle command.object System.Data.SQLite} -result {{AnsiString\ VARCHAR} {Binary BLOB} {Byte TINYINT} {Boolean BIT} {Currency {}} {Date {}}\ {DateTime DATETIME} {Decimal DECIMAL} {Double REAL} {Guid UNIQUEIDENTIFIER}\ {Int16 SMALLINT} {Int32 INT} {Int64 INTEGER} {Object {}} {SByte TINYSINT}\ {Single SINGLE} {String NVARCHAR} {Time {}} {UInt16 SMALLUINT} {UInt32 UINT}\ {UInt64 UNSIGNEDINTEGER} {VarNumeric {}} {AnsiStringFixedLength CHAR}\ {StringFixedLength NCHAR} {Xml {}} {DateTime2 {}} {DateTimeOffset {}}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-48a6b8e4ca.eagle.
74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
[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 db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
[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 db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-4a791e70ab.eagle.
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
[expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code dataSource id db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-56b42d99c1.eagle.
95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 ... 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 ... 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 ... 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 ... 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 ... 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 ... 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 ... 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 ... 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 ... 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 |
[expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} TryEnlistInTransaction } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}} ############################################################################### runTest {test tkt-56b42d99c1-1.2 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.2.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runTest {test tkt-56b42d99c1-1.3 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.3.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} ############################################################################### runTest {test tkt-56b42d99c1-1.4 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.4.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runTest {test tkt-56b42d99c1-1.5 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.5.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} ############################################################################### set flags MapIsolationLevels ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} TryEnlistInTransaction } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}} ############################################################################### runTest {test tkt-56b42d99c1-1.7 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.7.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runTest {test tkt-56b42d99c1-1.8 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.8.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} ############################################################################### runTest {test tkt-56b42d99c1-1.9 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.9.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runTest {test tkt-56b42d99c1-1.10 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.10.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} ############################################################################### unset -nocomplain flags ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | | | | | | | | |
95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 ... 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 ... 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 ... 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 ... 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 ... 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 ... 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 ... 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 ... 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 ... 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 |
[expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} TryEnlistInTransaction } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}} ############################################################################### runTest {test tkt-56b42d99c1-1.2 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.2.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runTest {test tkt-56b42d99c1-1.3 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.3.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} ############################################################################### runTest {test tkt-56b42d99c1-1.4 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.4.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runTest {test tkt-56b42d99c1-1.5 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.5.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} ############################################################################### set flags MapIsolationLevels ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} TryEnlistInTransaction } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 True$}} ############################################################################### runTest {test tkt-56b42d99c1-1.7 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.7.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runTest {test tkt-56b42d99c1-1.8 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.8.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} ############################################################################### runTest {test tkt-56b42d99c1-1.9 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.9.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runTest {test tkt-56b42d99c1-1.10 {enlisted transaction isolation} -setup { setupDb [set fileName tkt-56b42d99c1-1.10.db] ................................................................................ [expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 1$}} ############################################################################### unset -nocomplain flags ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-58ed318f2f.eagle.
57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 .. 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 ... 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 ... 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 ... 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 ... 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 ... 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 ... 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 ... 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 ... 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 ... 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 ... 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 |
sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == 1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == 1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == -1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == -1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == 1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == 1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == -1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == -1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == -1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == -1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ [getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == 1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ [getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == -1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite\ buildConfiguration.Debug} -result {True}} ############################################################################### rename getSettingReadCount "" ############################################################################### reportSQLiteResources $test_channel true ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | < | | < | | < | | < | | < | | < | | < | | < | | < | | < | | < | | |
57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 .. 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 ... 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 ... 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 ... 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 ... 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 ... 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 ... 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 ... 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 ... 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 ... 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 ... 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 |
sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == 1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == 1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == -1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == -1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == 1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == 1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == -1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == -1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ sql execute -execute reader -format list $db "SELECT x, y FROM t1;" expr {[getSettingReadCount Use_SQLiteConvert_DefaultDbType] == -1} } -cleanup { cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ expr {[getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == -1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ [getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == 1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### reportSQLiteResources $test_channel true ############################################################################### ................................................................................ [getSettingReadCount Use_SQLiteConvert_DefaultTypeName] == -1} } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain columns connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite buildConfiguration.Debug} -result {True}} ############################################################################### rename getSettingReadCount "" ############################################################################### reportSQLiteResources $test_channel true ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-6434e23a0f.eagle.
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
[expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-647d282d11.eagle.
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
[object invoke $connection PrepareRetries] } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {10 {} 20}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | |
30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
[object invoke $connection PrepareRetries] } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {10 {} 20}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-6c6ecccc5f.eagle.
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
[expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 |
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-72905c9a77.eagle.
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
...
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
|
############################################################################### # # NOTE: This value is needed as part of the test result; therefore, it must be # set outside of the test setup. # set id [object invoke Interpreter.GetActive NextId] ############################################################################### # # NOTE: *WARNING* This test has been extremely carefully designed; however, it # is still quite sensitive to machine timing, resource availability, etc. # This test MAY pass even if the bug under test has not been fixed (or ................................................................................ object invoke _Dynamic${id}.Test${id} GetTraceOutput } result] : [set result ""]}] [string map [list \r\n \n] $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors dataSource fileName } -constraints \ [fixConstraints {fail.false eagle monoBug28 configuration.Release\ !defineConstant.System.Data.SQLite.INTEROP_LOG command.sql compile.DATA\ SQLite System.Data.SQLite compileCSharp}] -match regexp -result [appendArgs \ "^Ok System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{" [string repeat \ "SQLite message \\(0\\): TEST $id " [expr {min(4 * [info processors], 16)}]] "\\}\$"]} ############################################################################### unset -nocomplain id ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
>
|
>
>
>
|
|
|
>
|
|
|
|
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
...
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
|
############################################################################### # # NOTE: This value is needed as part of the test result; therefore, it must be # set outside of the test setup. # if {[haveObjectCommand]} then { set id [object invoke Interpreter.GetActive NextId] } else { set id [clock seconds] } ############################################################################### # # NOTE: *WARNING* This test has been extremely carefully designed; however, it # is still quite sensitive to machine timing, resource availability, etc. # This test MAY pass even if the bug under test has not been fixed (or ................................................................................ object invoke _Dynamic${id}.Test${id} GetTraceOutput } result] : [set result ""]}] [string map [list \r\n \n] $result] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors dataSource fileName } -constraints \ [fixConstraints {fail.false eagle command.object monoBug28\ configuration.Release !defineConstant.System.Data.SQLite.INTEROP_LOG\ command.sql compile.DATA SQLite System.Data.SQLite compileCSharp}] -match \ regexp -result [appendArgs \ "^Ok System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{" \ [string repeat "SQLite message \\(0\\): TEST $id " \ [expr {min(4 * [info processors], 16)}]] "\\}\$"]} ############################################################################### unset -nocomplain id ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-7e3fa93744.eagle.
124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 |
[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 db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 8$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 |
[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 db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 8$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-84718e79fa.eagle.
66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
} catch {object removecallback threadStart} unset -nocomplain results t i c db fileName rename threadStart "" } -constraints \ {eagle shell monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \ -result [lrepeat $c 1]} ############################################################################### unset -nocomplain c ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | |
66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
} catch {object removecallback threadStart} unset -nocomplain results t i c db fileName rename threadStart "" } -constraints {eagle command.object shell monoBug28 command.sql compile.DATA\ SQLite System.Data.SQLite} -result [lrepeat $c 1]} ############################################################################### unset -nocomplain c ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-85b824b736.eagle.
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
...
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
|
[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 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 2 \{one-string\ two-string\}\}$}]} ############################################################################### runTest {test tkt-85b824b736-1.2 {SQLiteValue.GetBlob return value} -setup { set fileName tkt-85b824b736-1.2.db ................................................................................ [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 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 2 111 110 101 45 98 108\ 111 98 116 119 111 45 98 108 111 98\}$}]} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
<
|
|
|
<
|
|
|
|
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
...
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
|
[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 2 \{one-string\ two-string\}\}$}]} ############################################################################### runTest {test tkt-85b824b736-1.2 {SQLiteValue.GetBlob return value} -setup { set fileName tkt-85b824b736-1.2.db ................................................................................ [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 2 111 110 101 45 98 108\ 111 98 116 119 111 45 98 108 111 98\}$}]} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-8c3bee31c8.eagle.
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 .. 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 .. 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
$o DataSource $dataSource lappend result [list $dataSource [$o ToString]] } set result } -cleanup { unset -nocomplain dataSource o result } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{{C:\test_path\test.db}\ {data source=C:\test_path\test.db}} {/test_path/test.db\ {data source=/test_path/test.db}} {{C:\test path\test.db} {data source="C:\test\ path\test.db"}} {{/test path/test.db} {data source="/test path/test.db"}}\ {{C:\test'path\test.db} {data source="C:\test'path\test.db"}}\ {/test'path/test.db {data source="/test'path/test.db"}}}} ................................................................................ $o ConnectionString [appendArgs "Data Source=" $fileName \;] $o Open; # NOTE: This command may throw an exception, failing the test. $o Close } -cleanup { cleanupFile [string trim $fileName '] unset -nocomplain fileName o } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {}} ############################################################################### runTest {test tkt-8c3bee31c8-1.3 {open double quoted file name} -setup { unset -nocomplain fileName o } -body { ................................................................................ $o ConnectionString [appendArgs "Data Source=" $fileName \;] $o Open; # NOTE: This command may throw an exception, failing the test. $o Close } -cleanup { cleanupFile [string trim $fileName \"] unset -nocomplain fileName o } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | |
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 .. 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 .. 78 79 80 81 82 83 84 85 86 87 88 89 90 91 |
$o DataSource $dataSource lappend result [list $dataSource [$o ToString]] } set result } -cleanup { unset -nocomplain dataSource o result } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{{C:\test_path\test.db}\ {data source=C:\test_path\test.db}} {/test_path/test.db\ {data source=/test_path/test.db}} {{C:\test path\test.db} {data source="C:\test\ path\test.db"}} {{/test path/test.db} {data source="/test path/test.db"}}\ {{C:\test'path\test.db} {data source="C:\test'path\test.db"}}\ {/test'path/test.db {data source="/test'path/test.db"}}}} ................................................................................ $o ConnectionString [appendArgs "Data Source=" $fileName \;] $o Open; # NOTE: This command may throw an exception, failing the test. $o Close } -cleanup { cleanupFile [string trim $fileName '] unset -nocomplain fileName o } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {}} ############################################################################### runTest {test tkt-8c3bee31c8-1.3 {open double quoted file name} -setup { unset -nocomplain fileName o } -body { ................................................................................ $o ConnectionString [appendArgs "Data Source=" $fileName \;] $o Open; # NOTE: This command may throw an exception, failing the test. $o Close } -cleanup { cleanupFile [string trim $fileName \"] unset -nocomplain fileName o } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-92dbf1229a.eagle.
44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 |
set result } -cleanup { unset -nocomplain dataTable dataReader cleanupDb $fileName unset -nocomplain column row result dataReader db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{ColumnName x} {IsKey True} {ColumnName y} {IsKey True} {ColumnName w} {IsKey\ False} {ColumnName z} {IsKey False}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | | |
44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
set result } -cleanup { unset -nocomplain dataTable dataReader cleanupDb $fileName unset -nocomplain column row result dataReader db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{ColumnName x} {IsKey True} {ColumnName y} {IsKey\ True} {ColumnName w} {IsKey False} {ColumnName z} {IsKey False}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-94252b9059.eagle.
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
..
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
[$dataReader GetFieldType 1] [$dataReader GetFieldType 2] } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {SOMETYPE INTEGER {} System.Object System.Int64 System.Object}} ############################################################################### runTest {test tkt-94252b9059-1.2 {GetDataTypeName with current row} -setup { setupDb [set fileName tkt-94252b9059-1.2.db] } -body { ................................................................................ [$dataReader GetFieldType 1] [$dataReader GetFieldType 2] } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {SOMETYPE INTEGER {} {System.Byte[]} System.Int64 System.String}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
|
|
|
|
|
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
..
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
[$dataReader GetFieldType 1] [$dataReader GetFieldType 2] } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result \ {SOMETYPE INTEGER {} System.Object System.Int64 System.Object}} ############################################################################### runTest {test tkt-94252b9059-1.2 {GetDataTypeName with current row} -setup { setupDb [set fileName tkt-94252b9059-1.2.db] } -body { ................................................................................ [$dataReader GetFieldType 1] [$dataReader GetFieldType 2] } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result \ {SOMETYPE INTEGER {} {System.Byte[]} System.Int64 System.String}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-996d13cd87.eagle.
283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 |
cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id \ poolCounts havePoolCounts fileName rename getPoolCounts "" } -constraints {eagle monoBug28 command.sql compile.DATA\ SQLite System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \d+ \{\} True True$}} } ############################################################################### unset -nocomplain count pooling i ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 |
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id \
poolCounts havePoolCounts fileName
rename getPoolCounts ""
} -constraints {eagle command.object monoBug28 command.sql compile.DATA\
SQLite System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \d+ \{\} True True$}}
}
###############################################################################
unset -nocomplain count pooling i
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-9ba9346f75.eagle.
47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
set result } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain result connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {True True True False False True}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | |
47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
set result } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain result connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {True True True False False True}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-a7d04fb111.eagle.
50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 .. 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 ... 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 ... 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 ... 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 ... 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 ... 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 ... 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 ... 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 ... 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 |
lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {635598144000000000 635598144000000000 635598432000000000 True False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.2 {Bind DateTime Local Ticks} -setup { setupDb [set fileName tkt-a7d04fb111-1.2.db] "" Ticks Local \ BindDateTimeWithKind ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {635598144000000000 635597856000000000 635598144000000000 False True False}} ############################################################################### runTest {test tkt-a7d04fb111-1.3 {Bind DateTime Utc ISO8601} -setup { setupDb [set fileName tkt-a7d04fb111-1.3.db] "" ISO8601 Utc \ BindDateTimeWithKind ................................................................................ lappend result [expr {[lindex $result 0] eq [lindex $result 1]}] lappend result [expr {[lindex $result 0] eq [lindex $result 2]}] lappend result [expr {[lindex $result 1] eq [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{2015-02-18 00:00:00Z} {2015-02-18 00:00:00Z} {2015-02-18 08:00:00Z} True\ False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.4 {Bind DateTime Local ISO8601} -setup { setupDb [set fileName tkt-a7d04fb111-1.4.db] "" ISO8601 Local \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] eq [lindex $result 1]}] lappend result [expr {[lindex $result 0] eq [lindex $result 2]}] lappend result [expr {[lindex $result 1] eq [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{2015-02-18 00:00:00} {2015-02-17 16:00:00} {2015-02-18 00:00:00} False True\ False}} ############################################################################### runTest {test tkt-a7d04fb111-1.5 {Bind DateTime Utc JulianDay} -setup { setupDb [set fileName tkt-a7d04fb111-1.5.db] "" JulianDay Utc \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {2457071.5 2457071.5 2457071.83 True False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.6 {Bind DateTime Local JulianDay} -setup { setupDb [set fileName tkt-a7d04fb111-1.6.db] "" JulianDay Local \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {2457071.5 2457071.17 2457071.5 False True False}} ############################################################################### runTest {test tkt-a7d04fb111-1.7 {Bind DateTime Utc UnixEpoch} -setup { setupDb [set fileName tkt-a7d04fb111-1.7.db] "" UnixEpoch Utc \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {1424217600 1424217600 1424246400 True False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.8 {Bind DateTime Local UnixEpoch} -setup { setupDb [set fileName tkt-a7d04fb111-1.8.db] "" UnixEpoch Local \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {1424217600 1424188800 1424217600 False True False}} ############################################################################### runTest {test tkt-a7d04fb111-1.9 {Bind DateTime Utc Invariant} -setup { setupDb [set fileName tkt-a7d04fb111-1.9.db] "" InvariantCulture Utc \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] eq [lindex $result 1]}] lappend result [expr {[lindex $result 0] eq [lindex $result 2]}] lappend result [expr {[lindex $result 1] eq [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {2015-02-18T00:00:00.0000000 2015-02-18T00:00:00.0000000Z\ 2015-02-18T08:00:00.0000000Z False False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.10 {Bind DateTime Local Invariant} -setup { setupDb [set fileName tkt-a7d04fb111-1.10.db] "" InvariantCulture Local \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] eq [lindex $result 1]}] lappend result [expr {[lindex $result 0] eq [lindex $result 2]}] lappend result [expr {[lindex $result 1] eq [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {2015-02-18T00:00:00.0000000 2015-02-17T16:00:00.0000000-08:00\ 2015-02-18T00:00:00.0000000-08:00 False False False}} ############################################################################### unset -nocomplain rawDateTimeValue ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | | < | | | | | | < < | | < | | < | | < | | | | | < | | | | |
50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 .. 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 ... 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 ... 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 ... 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 ... 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 ... 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 ... 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 ... 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 ... 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 |
lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result \ {635598144000000000 635598144000000000 635598432000000000 True False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.2 {Bind DateTime Local Ticks} -setup { setupDb [set fileName tkt-a7d04fb111-1.2.db] "" Ticks Local \ BindDateTimeWithKind ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result \ {635598144000000000 635597856000000000 635598144000000000 False True False}} ############################################################################### runTest {test tkt-a7d04fb111-1.3 {Bind DateTime Utc ISO8601} -setup { setupDb [set fileName tkt-a7d04fb111-1.3.db] "" ISO8601 Utc \ BindDateTimeWithKind ................................................................................ lappend result [expr {[lindex $result 0] eq [lindex $result 1]}] lappend result [expr {[lindex $result 0] eq [lindex $result 2]}] lappend result [expr {[lindex $result 1] eq [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{2015-02-18 00:00:00Z} {2015-02-18 00:00:00Z}\ {2015-02-18 08:00:00Z} True False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.4 {Bind DateTime Local ISO8601} -setup { setupDb [set fileName tkt-a7d04fb111-1.4.db] "" ISO8601 Local \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] eq [lindex $result 1]}] lappend result [expr {[lindex $result 0] eq [lindex $result 2]}] lappend result [expr {[lindex $result 1] eq [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{2015-02-18 00:00:00} {2015-02-17 16:00:00}\ {2015-02-18 00:00:00} False True False}} ############################################################################### runTest {test tkt-a7d04fb111-1.5 {Bind DateTime Utc JulianDay} -setup { setupDb [set fileName tkt-a7d04fb111-1.5.db] "" JulianDay Utc \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {2457071.5 2457071.5 2457071.83 True False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.6 {Bind DateTime Local JulianDay} -setup { setupDb [set fileName tkt-a7d04fb111-1.6.db] "" JulianDay Local \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {2457071.5 2457071.17 2457071.5 False True False}} ############################################################################### runTest {test tkt-a7d04fb111-1.7 {Bind DateTime Utc UnixEpoch} -setup { setupDb [set fileName tkt-a7d04fb111-1.7.db] "" UnixEpoch Utc \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {1424217600 1424217600 1424246400 True False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.8 {Bind DateTime Local UnixEpoch} -setup { setupDb [set fileName tkt-a7d04fb111-1.8.db] "" UnixEpoch Local \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] == [lindex $result 1]}] lappend result [expr {[lindex $result 0] == [lindex $result 2]}] lappend result [expr {[lindex $result 1] == [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {1424217600 1424188800 1424217600 False True False}} ############################################################################### runTest {test tkt-a7d04fb111-1.9 {Bind DateTime Utc Invariant} -setup { setupDb [set fileName tkt-a7d04fb111-1.9.db] "" InvariantCulture Utc \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] eq [lindex $result 1]}] lappend result [expr {[lindex $result 0] eq [lindex $result 2]}] lappend result [expr {[lindex $result 1] eq [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {2015-02-18T00:00:00.0000000\ 2015-02-18T00:00:00.0000000Z 2015-02-18T08:00:00.0000000Z False False False}} ############################################################################### runTest {test tkt-a7d04fb111-1.10 {Bind DateTime Local Invariant} -setup { setupDb [set fileName tkt-a7d04fb111-1.10.db] "" InvariantCulture Local \ BindDateTimeWithKind } -body { ................................................................................ lappend result [expr {[lindex $result 0] eq [lindex $result 1]}] lappend result [expr {[lindex $result 0] eq [lindex $result 2]}] lappend result [expr {[lindex $result 1] eq [lindex $result 2]}] } -cleanup { cleanupDb $fileName unset -nocomplain result dateTimeValue db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {2015-02-18T00:00:00.0000000\ 2015-02-17T16:00:00.0000000-08:00 2015-02-18T00:00:00.0000000-08:00 False False\ False}} ############################################################################### unset -nocomplain rawDateTimeValue ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-aba4549801.eagle.
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
} -cleanup { object invoke System.Data.SQLite.SQLiteConnection remove_Changed $callback catch {object removecallback $callback} unset -nocomplain rows transaction result callback db fileName rename onChanged "" } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -match \ regexp -result {^\{System#Data#SQLite#SQLiteConnection#\d+ Opening \{\} \{\}\ \{\} \{\}\} \{System#Data#SQLite#SQLiteConnection#\d+ Closing \{\} \{\} \{\}\ \{\}\} \{System#Data#SQLite#SQLiteConnection#\d+ Closed \{\} \{\} \{\} \{\}\}\ \{System#Data#SQLite#SQLiteConnection#\d+ ConnectionString \{\} \{\} \{\}\ \{\}\} \{System#Object#\d+ NewCriticalHandle \{\} \{\} \{\}\ System#Data#SQLite#SQLiteConnectionHandle#\d+\}\ \{System#Data#SQLite#SQLiteConnection#\d+ NewCommand \{\}\ System#Data#SQLite#SQLiteCommand#\d+ \{\} \{\}\}\ \{System#Data#SQLite#SQLiteConnection#\d+ DisposingCommand \{\}\ System#Data#SQLite#SQLiteCommand#\d+ \{\} \{\}\}\ |
| | | | | |
56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
} -cleanup { object invoke System.Data.SQLite.SQLiteConnection remove_Changed $callback catch {object removecallback $callback} unset -nocomplain rows transaction result callback db fileName rename onChanged "" } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -match regexp -result \ {^\{System#Data#SQLite#SQLiteConnection#\d+ Opening \{\} \{\} \{\} \{\}\}\ \{System#Data#SQLite#SQLiteConnection#\d+ Closing \{\} \{\} \{\} \{\}\}\ \{System#Data#SQLite#SQLiteConnection#\d+ Closed \{\} \{\} \{\} \{\}\}\ \{System#Data#SQLite#SQLiteConnection#\d+ ConnectionString \{\} \{\} \{\}\ \{\}\} \{System#Object#\d+ NewCriticalHandle \{\} \{\} \{\}\ System#Data#SQLite#SQLiteConnectionHandle#\d+\}\ \{System#Data#SQLite#SQLiteConnection#\d+ NewCommand \{\}\ System#Data#SQLite#SQLiteCommand#\d+ \{\} \{\}\}\ \{System#Data#SQLite#SQLiteConnection#\d+ DisposingCommand \{\}\ System#Data#SQLite#SQLiteCommand#\d+ \{\} \{\}\}\ |
Changes to Tests/tkt-ac47dd230a.eagle.
69 70 71 72 73 74 75 76 77 78 79 80 81 82 |
for {set i 1} {$i < 3} {incr i} { if {[info exists appDomain($i)]} then { object invoke AppDomain Unload $appDomain($i) } } unset -nocomplain appDomain i } -constraints {eagle monoBug28 command.sql compile.DATA\ compile.ISOLATED_INTERPRETERS SQLite System.Data.SQLite} -result {Ok 0 Ok 0}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
69 70 71 72 73 74 75 76 77 78 79 80 81 82 |
for {set i 1} {$i < 3} {incr i} {
if {[info exists appDomain($i)]} then {
object invoke AppDomain Unload $appDomain($i)
}
}
unset -nocomplain appDomain i
} -constraints {eagle command.object monoBug28 command.sql compile.DATA\
compile.ISOLATED_INTERPRETERS SQLite System.Data.SQLite} -result {Ok 0 Ok 0}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-ae5267b863.eagle.
142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 |
[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 db fileName
} -constraints [fixConstraints {eagle monoBug28 command.sql compile.DATA\
SQLite System.Data.SQLite !mda compileCSharp\
!defineConstant.System.Data.SQLite.INTEROP_LEGACY_CLOSE}] -match regexp \
-result {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
| | |
142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 |
[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 db fileName } -constraints [fixConstraints {eagle command.object monoBug28 command.sql\ compile.DATA SQLite System.Data.SQLite !mda compileCSharp\ !defineConstant.System.Data.SQLite.INTEROP_LEGACY_CLOSE}] -match regexp \ -result {^Ok System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-b4a7ddc83f.eagle.
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
..
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
shutdownSQLite $test_channel ############################################################################### for {set i 1} {$i < 3} {incr i} { runTest {test [appendArgs tkt-b4a7ddc83f-1. $i] {logging shutdown} -setup \ [getAppDomainPreamble { set appDomainId(1) {[object invoke AppDomain.CurrentDomain Id]} set fileName {[appendArgs tkt-b4a7ddc83f-1. $i .db]} }] -body { set appDomainId(2) [object invoke AppDomain.CurrentDomain Id] package require Eagle.Library package require Eagle.Test package require System.Data.SQLite.Test ................................................................................ list $appDomainId(1) $appDomainId(2) \ [expr {$appDomainId(1) != $appDomainId(2)}] [setupDb $fileName] } -cleanup { cleanupDb $fileName unset -nocomplain appDomainId db fileName } -constraints {eagle monoBug28 command.sql compile.DATA\ compile.ISOLATED_INTERPRETERS SQLite System.Data.SQLite} -isolationLevel \ AppDomain -match regexp -result {^\d+ \d+ True\ System#Data#SQLite#SQLiteConnection#\d+$}} } ############################################################################### unset -nocomplain i ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
>
|
>
|
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
..
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
shutdownSQLite $test_channel ############################################################################### for {set i 1} {$i < 3} {incr i} { runTest {test [appendArgs tkt-b4a7ddc83f-1. $i] {logging shutdown} -setup \ [getAppDomainPreamble { set appDomainId(1) {[expr {[haveObjectCommand] ? \ [object invoke AppDomain.CurrentDomain Id] : [info appdomain]}]} set fileName {[appendArgs tkt-b4a7ddc83f-1. $i .db]} }] -body { set appDomainId(2) [object invoke AppDomain.CurrentDomain Id] package require Eagle.Library package require Eagle.Test package require System.Data.SQLite.Test ................................................................................ list $appDomainId(1) $appDomainId(2) \ [expr {$appDomainId(1) != $appDomainId(2)}] [setupDb $fileName] } -cleanup { cleanupDb $fileName unset -nocomplain appDomainId db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA\ compile.ISOLATED_INTERPRETERS SQLite System.Data.SQLite} -isolationLevel \ AppDomain -match regexp -result {^\d+ \d+ True\ System#Data#SQLite#SQLiteConnection#\d+$}} } ############################################################################### unset -nocomplain i ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-bb4b04d457.eagle.
35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
sql execute -execute reader -format list -datetimeformat \ [getDateTimeFormat] $db "SELECT x FROM t1 ORDER BY rowid;" } -cleanup { cleanupDb $fileName unset -nocomplain dateTime db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {{2011-11-29 12:34:56Z}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | |
35 36 37 38 39 40 41 42 43 44 45 46 47 48 |
sql execute -execute reader -format list -datetimeformat \ [getDateTimeFormat] $db "SELECT x FROM t1 ORDER BY rowid;" } -cleanup { cleanupDb $fileName unset -nocomplain dateTime db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{2011-11-29 12:34:56Z}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-c28d7fe915.eagle.
33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
list [$dataReader GetName 0] [$dataReader GetOrdinal x] } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {x 0}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | < |
33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
list [$dataReader GetName 0] [$dataReader GetOrdinal x] } -cleanup { unset -nocomplain dataReader cleanupDb $fileName unset -nocomplain db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {x 0}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-daeaf3150a.eagle.
61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 |
set result(8) [object invoke System.Data.SQLite.SQLiteCommand Execute \ $sql(2) Reader null 1] list $result(1) $result(2) $result(3) $result(4) $result(5) $result(6) \ $result(7) $result(8) } -cleanup { unset -nocomplain result sql } -constraints {eagle monoBug28 SQLite System.Data.SQLite} -match regexp \ -result {^\{\} 1 System#DBNull#\d+ System#Data#SQLite#SQLiteDataReader#\d+ \{\}\ 1 1 System#Data#SQLite#SQLiteDataReader#\d+$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| > | | |
61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 |
set result(8) [object invoke System.Data.SQLite.SQLiteCommand Execute \ $sql(2) Reader null 1] list $result(1) $result(2) $result(3) $result(4) $result(5) $result(6) \ $result(7) $result(8) } -cleanup { unset -nocomplain result sql } -constraints {eagle command.object monoBug28 SQLite System.Data.SQLite} \ -match regexp -result {^\{\} 1 System#DBNull#\d+\ System#Data#SQLite#SQLiteDataReader#\d+ \{\} 1 1\ System#Data#SQLite#SQLiteDataReader#\d+$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-e06c4caff3.eagle.
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 .. 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 .. 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 .. 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 |
sql execute $db "INSERT INTO t1 (x) VALUES(?);" \ [list param1 Double [set NaN [object invoke Double NaN]]] } -cleanup { cleanupDb $fileName unset -nocomplain NaN db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \ -returnCodes 1 -match regexp -result [string map [list \n \r\n] \ {^System\.Data\.SQLite\.SQLiteException \(0x80004005\): constraint failed NOT NULL constraint failed: t1\.x .*$}]} ############################################################################### runTest {test tkt-e06c4caff3-1.2 {NaN to NULL} -setup { setupDb [set fileName tkt-e06c4caff3-1.2.db] ................................................................................ [list param1 Double [set NaN [object invoke Double NaN]]] sql execute -execute reader -format list $db "SELECT x FROM t1;" } -cleanup { cleanupDb $fileName unset -nocomplain NaN db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \ -result {}} ############################################################################### runTest {test tkt-e06c4caff3-1.3 {NaN w/BindAllAsText} -setup { setupDb [set fileName tkt-e06c4caff3-1.3.db] "" "" "" BindAllAsText } -body { sql execute $db "CREATE TABLE t1(x REAL NOT NULL);" ................................................................................ list [sql execute $db "INSERT INTO t1 (x) VALUES(?);" \ [list param1 Double [set NaN [object invoke Double NaN]]]] \ [sql execute -execute reader -format list $db "SELECT x FROM t1;"] } -cleanup { cleanupDb $fileName unset -nocomplain NaN db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {1 0}} ############################################################################### runTest {test tkt-e06c4caff3-1.4 {NaN w/BindAllAsText & GetAllAsText} -setup { setupDb [set fileName tkt-e06c4caff3-1.4.db] "" "" "" BindAndGetAllAsText } -body { sql execute $db "CREATE TABLE t1(x REAL NOT NULL);" ................................................................................ list [sql execute $db "INSERT INTO t1 (x) VALUES(?);" \ [list param1 Double [set NaN [object invoke Double NaN]]]] \ [sql execute -execute reader -format list $db "SELECT x FROM t1;"] } -cleanup { cleanupDb $fileName unset -nocomplain NaN db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} -result \ {1 NaN}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | | < | | | | < < | | |
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 .. 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 .. 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 .. 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
sql execute $db "INSERT INTO t1 (x) VALUES(?);" \ [list param1 Double [set NaN [object invoke Double NaN]]] } -cleanup { cleanupDb $fileName unset -nocomplain NaN db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -returnCodes 1 -match regexp -result [string map [list \n\ \r\n] {^System\.Data\.SQLite\.SQLiteException \(0x80004005\): constraint failed NOT NULL constraint failed: t1\.x .*$}]} ############################################################################### runTest {test tkt-e06c4caff3-1.2 {NaN to NULL} -setup { setupDb [set fileName tkt-e06c4caff3-1.2.db] ................................................................................ [list param1 Double [set NaN [object invoke Double NaN]]] sql execute -execute reader -format list $db "SELECT x FROM t1;" } -cleanup { cleanupDb $fileName unset -nocomplain NaN db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {}} ############################################################################### runTest {test tkt-e06c4caff3-1.3 {NaN w/BindAllAsText} -setup { setupDb [set fileName tkt-e06c4caff3-1.3.db] "" "" "" BindAllAsText } -body { sql execute $db "CREATE TABLE t1(x REAL NOT NULL);" ................................................................................ list [sql execute $db "INSERT INTO t1 (x) VALUES(?);" \ [list param1 Double [set NaN [object invoke Double NaN]]]] \ [sql execute -execute reader -format list $db "SELECT x FROM t1;"] } -cleanup { cleanupDb $fileName unset -nocomplain NaN db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {1 0}} ############################################################################### runTest {test tkt-e06c4caff3-1.4 {NaN w/BindAllAsText & GetAllAsText} -setup { setupDb [set fileName tkt-e06c4caff3-1.4.db] "" "" "" BindAndGetAllAsText } -body { sql execute $db "CREATE TABLE t1(x REAL NOT NULL);" ................................................................................ list [sql execute $db "INSERT INTO t1 (x) VALUES(?);" \ [list param1 Double [set NaN [object invoke Double NaN]]]] \ [sql execute -execute reader -format list $db "SELECT x FROM t1;"] } -cleanup { cleanupDb $fileName unset -nocomplain NaN db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {1 NaN}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-e1b2e0f769.eagle.
119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 |
set result1 } -cleanup { cleanupDb $fileName unset -nocomplain result2 result1 code results errors sql table dataSource \ id x db fileName } -constraints [fixConstraints {eagle monoBug28 command.sql compile.DATA SQLite\ !defineConstant.System.Data.SQLite.CHECK_STATE System.Data.SQLite\ compileCSharp}] -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 3 Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| | | |
119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 |
set result1 } -cleanup { cleanupDb $fileName unset -nocomplain result2 result1 code results errors sql table dataSource \ id x db fileName } -constraints [fixConstraints {eagle command.object monoBug28 command.sql\ compile.DATA SQLite !defineConstant.System.Data.SQLite.CHECK_STATE\ System.Data.SQLite compileCSharp}] -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 3 Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 0$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-e30b820248.eagle.
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
...
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
|
object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [reportSQLiteResources $test_channel true] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql name dataSource id fileName } -constraints {eagle logFile monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result [appendArgs "^Ok\ System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\} " $memory_used \$]} ############################################################################### for {set i 2} {$i < 5} {incr i} { set memory_used [reportSQLiteResources $test_channel true] ................................................................................ } result] : [set result ""]}] $result \ [reportSQLiteResources $test_channel true] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql name dataSource id \ fileName } -constraints {eagle logFile monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result [appendArgs "^Ok\ System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\} " $memory_used \$]} } ############################################################################### unset -nocomplain i ############################################################################### |
|
|
|
|
|
>
|
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
...
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
|
object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result \ [reportSQLiteResources $test_channel true] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql name dataSource id fileName } -constraints {eagle command.object logFile monoBug28 command.sql compile.DATA\ SQLite System.Data.SQLite compileCSharp} -match regexp -result [appendArgs "^Ok\ System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\} " $memory_used \$]} ############################################################################### for {set i 2} {$i < 5} {incr i} { set memory_used [reportSQLiteResources $test_channel true] ................................................................................ } result] : [set result ""]}] $result \ [reportSQLiteResources $test_channel true] } -cleanup { cleanupDb $fileName unset -nocomplain result code results errors sql name dataSource id \ fileName } -constraints {eagle command.object logFile monoBug28 command.sql\ compile.DATA SQLite System.Data.SQLite compileCSharp} -match regexp -result \ [appendArgs "^Ok System#CodeDom#Compiler#CompilerResults#\\d+ \\{\\} 0 \\{\\} "\ $memory_used \$]} } ############################################################################### unset -nocomplain i ############################################################################### |
Changes to Tests/tkt-e47b3d8346.eagle.
32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
object foreach -alias pair $list { lappend result [list [$pair Key] [$pair Value]] } set result } -cleanup { unset -nocomplain result list pair } -constraints {eagle System.Data.SQLite} -result \ {{{Data Source} {C:\full\path\to\file.db;more.data.here}}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
object foreach -alias pair $list {
lappend result [list [$pair Key] [$pair Value]]
}
set result
} -cleanup {
unset -nocomplain result list pair
} -constraints {eagle command.object System.Data.SQLite} -result \
{{{Data Source} {C:\full\path\to\file.db;more.data.here}}}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-ef2216192d.eagle.
75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
[expr {$code eq "Ok" ? [catch { object invoke _Dynamic${id}.Test${id} Main } result] : [set result ""]}] $result } -cleanup { cleanupDb $fileName unset -nocomplain result results errors code sql dataSource id db fileName } -constraints {eagle monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite compileCSharp} -match regexp -result {^Ok\ System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 |
[expr {$code eq "Ok" ? [catch {
object invoke _Dynamic${id}.Test${id} Main
} result] : [set result ""]}] $result
} -cleanup {
cleanupDb $fileName
unset -nocomplain result results errors code sql dataSource id db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite compileCSharp} -match regexp -result {^Ok\
System#CodeDom#Compiler#CompilerResults#\d+ \{\} 0 \{\}$}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/tkt-f2c47a01eb.eagle.
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
..
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
set results } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain dataRow dataRows dataTable results connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \ -result {{t1 t1_2 False} {t1 t1_1 False} {t1 sqlite_autoindex_t1_1 True}}} ############################################################################### runTest {test tkt-f2c47a01eb-1.2 {GetSchema w/INDEXES, composite PK} -setup { setupDb [set fileName tkt-f2c47a01eb-1.2.db] } -body { set connection [getDbConnection] ................................................................................ set results } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain dataRow dataRows dataTable results connection db fileName } -constraints \ {eagle monoBug28 command.sql compile.DATA SQLite System.Data.SQLite} \ -result {{t1 t1_2 False} {t1 t1_1 False} {t1 sqlite_autoindex_t1_1 True}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
|
|
|
|
|
|
|
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
..
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
set results } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain dataRow dataRows dataTable results connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{t1 t1_2 False} {t1 t1_1 False} {t1\ sqlite_autoindex_t1_1 True}}} ############################################################################### runTest {test tkt-f2c47a01eb-1.2 {GetSchema w/INDEXES, composite PK} -setup { setupDb [set fileName tkt-f2c47a01eb-1.2.db] } -body { set connection [getDbConnection] ................................................................................ set results } -cleanup { cleanupDb $fileName freeDbConnection unset -nocomplain dataRow dataRows dataTable results connection db fileName } -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\ System.Data.SQLite} -result {{t1 t1_2 False} {t1 t1_1 False} {t1\ sqlite_autoindex_t1_1 True}}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
Changes to Tests/tkt-fe50b8c2e8.eagle.
33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
DbTypeToTypeName null AnsiString None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ DbTypeToTypeName null String None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ DbTypeToTypeName null Decimal None] \ [object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \ DbTypeToTypeName null Binary None] } -constraints {eagle System.Data.SQLite} -result \ {AnsiString String Decimal Binary VARCHAR NVARCHAR DECIMAL BLOB}} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
| |
33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
DbTypeToTypeName null AnsiString None] \
[object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \
DbTypeToTypeName null String None] \
[object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \
DbTypeToTypeName null Decimal None] \
[object invoke -flags +NonPublic System.Data.SQLite.SQLiteConvert \
DbTypeToTypeName null Binary None]
} -constraints {eagle command.object System.Data.SQLite} -result \
{AnsiString String Decimal Binary VARCHAR NVARCHAR DECIMAL BLOB}}
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue
|
Changes to Tests/version.eagle.
75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 .. 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 ... 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 ... 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 ... 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 ... 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 ... 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 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 222 223 224 225 226 227 228 229 230 231 232 233 234 |
runTest {test version-1.2 {'System.Data.SQLite' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $systemDataSQLiteDllFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle file_System.Data.SQLite.dll} -result $version(full)} ############################################################################### runTest {test version-1.3 {'System.Data.SQLite.Linq' binary version} -body { file version $systemDataSQLiteLinqDllFile } -constraints {eagle file_System.Data.SQLite.Linq.dll} -result $version(full)} ................................................................................ runTest {test version-1.4 {'System.Data.SQLite.Linq' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $systemDataSQLiteLinqDllFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle file_System.Data.SQLite.Linq.dll} -result $version(full)} ############################################################################### runTest {test version-1.5 {'System.Data.SQLite.EF6' binary version} -body { file version $systemDataSQLiteEf6DllFile } -constraints {eagle file_System.Data.SQLite.EF6.dll} -result $version(full)} ................................................................................ runTest {test version-1.6 {'System.Data.SQLite.EF6' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $systemDataSQLiteEf6DllFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle file_System.Data.SQLite.EF6.dll} -result $version(full)} ############################################################################### runTest {test version-1.7 {'SQLite.Designer' binary version} -body { file version $sqliteDesignerDllFile } -constraints {eagle file_SQLite.Designer.dll} -result $version(full)} ................................................................................ runTest {test version-1.8 {'SQLite.Designer' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $sqliteDesignerDllFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle file_SQLite.Designer.dll} -result $version(full)} ############################################################################### runTest {test version-1.9 {'test' binary version} -body { file version $testExeFile } -constraints {eagle file_test.exe} -result $version(full)} ................................................................................ runTest {test version-1.10 {'test' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $testExeFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle file_test.exe} -result $version(full)} ############################################################################### runTest {test version-1.11 {'testlinq' binary version} -body { file version $testLinqExeFile } -constraints {eagle file_testlinq.exe} -result $version(full)} ................................................................................ runTest {test version-1.12 {'testlinq' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $testLinqExeFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle file_testlinq.exe} -result $version(full)} ############################################################################### runTest {test version-1.13 {'testef6' binary version} -body { file version $testEf6ExeFile } -constraints {eagle file_testef6.exe} -result $version(full)} ................................................................................ runTest {test version-1.14 {'testef6' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $testEf6ExeFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle file_testef6.exe} -result $version(full)} ############################################################################### runTest {test version-1.15 {SQLiteVersion} -body { object invoke System.Data.SQLite.SQLiteConnection SQLiteVersion } -constraints {eagle SQLite System.Data.SQLite} -match regexp -result \ {^\d+\.\d+\.\d+(?:\.\d+)?$}} ############################################################################### runTest {test version-1.16 {SQLiteSourceId} -body { object invoke System.Data.SQLite.SQLiteConnection SQLiteSourceId } -constraints {eagle SQLite System.Data.SQLite} -match regexp -result \ {^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} [0-9a-f]{40}$}} ############################################################################### runTest {test version-1.17 {InteropVersion} -body { object invoke System.Data.SQLite.SQLiteConnection InteropVersion } -constraints {eagle SQLiteInterop System.Data.SQLite} -result $version(full)} ############################################################################### runTest {test version-1.18 {InteropSourceId} -body { object invoke System.Data.SQLite.SQLiteConnection InteropSourceId } -constraints {eagle SQLiteInterop System.Data.SQLite} -match regexp -result \ {^[0-9a-f]{40} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} UTC$}} ############################################################################### runTest {test version-1.19 {ProviderVersion} -body { object invoke System.Data.SQLite.SQLiteConnection ProviderVersion } -constraints {eagle System.Data.SQLite} -result $version(full)} ############################################################################### runTest {test version-1.20 {ProviderSourceId} -body { # # NOTE: The ProviderSourceId property value may be null, which # would result in an empty string being returned here. # object invoke System.Data.SQLite.SQLiteConnection ProviderSourceId } -constraints {eagle System.Data.SQLite} -match regexp -result \ {^(?:|[0-9a-f]{40} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} UTC)$}} ############################################################################### unset -nocomplain patterns ############################################################################### |
| > | > | > | > | | | | | | | | > | | | | |
75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 .. 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 ... 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 ... 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 ... 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 ... 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 ... 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 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 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 |
runTest {test version-1.2 {'System.Data.SQLite' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $systemDataSQLiteDllFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle command.object file_System.Data.SQLite.dll} -result \ $version(full)} ############################################################################### runTest {test version-1.3 {'System.Data.SQLite.Linq' binary version} -body { file version $systemDataSQLiteLinqDllFile } -constraints {eagle file_System.Data.SQLite.Linq.dll} -result $version(full)} ................................................................................ runTest {test version-1.4 {'System.Data.SQLite.Linq' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $systemDataSQLiteLinqDllFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle command.object file_System.Data.SQLite.Linq.dll} -result \ $version(full)} ############################################################################### runTest {test version-1.5 {'System.Data.SQLite.EF6' binary version} -body { file version $systemDataSQLiteEf6DllFile } -constraints {eagle file_System.Data.SQLite.EF6.dll} -result $version(full)} ................................................................................ runTest {test version-1.6 {'System.Data.SQLite.EF6' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $systemDataSQLiteEf6DllFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle command.object file_System.Data.SQLite.EF6.dll} -result \ $version(full)} ############################################################################### runTest {test version-1.7 {'SQLite.Designer' binary version} -body { file version $sqliteDesignerDllFile } -constraints {eagle file_SQLite.Designer.dll} -result $version(full)} ................................................................................ runTest {test version-1.8 {'SQLite.Designer' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $sqliteDesignerDllFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle command.object file_SQLite.Designer.dll} -result \ $version(full)} ############################################################################### runTest {test version-1.9 {'test' binary version} -body { file version $testExeFile } -constraints {eagle file_test.exe} -result $version(full)} ................................................................................ runTest {test version-1.10 {'test' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $testExeFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle command.object file_test.exe} -result $version(full)} ############################################################################### runTest {test version-1.11 {'testlinq' binary version} -body { file version $testLinqExeFile } -constraints {eagle file_testlinq.exe} -result $version(full)} ................................................................................ runTest {test version-1.12 {'testlinq' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $testLinqExeFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle command.object file_testlinq.exe} -result $version(full)} ############################################################################### runTest {test version-1.13 {'testef6' binary version} -body { file version $testEf6ExeFile } -constraints {eagle file_testef6.exe} -result $version(full)} ................................................................................ runTest {test version-1.14 {'testef6' assembly version} -body { set assemblyName [object invoke -alias System.Reflection.AssemblyName \ GetAssemblyName $testEf6ExeFile] $assemblyName Version.ToString } -cleanup { unset -nocomplain assemblyName } -constraints {eagle command.object file_testef6.exe} -result $version(full)} ############################################################################### runTest {test version-1.15 {SQLiteVersion} -body { object invoke System.Data.SQLite.SQLiteConnection SQLiteVersion } -constraints {eagle command.object SQLite System.Data.SQLite} -match regexp \ -result {^\d+\.\d+\.\d+(?:\.\d+)?$}} ############################################################################### runTest {test version-1.16 {SQLiteSourceId} -body { object invoke System.Data.SQLite.SQLiteConnection SQLiteSourceId } -constraints {eagle command.object SQLite System.Data.SQLite} -match regexp \ -result {^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} [0-9a-f]{40}$}} ############################################################################### runTest {test version-1.17 {InteropVersion} -body { object invoke System.Data.SQLite.SQLiteConnection InteropVersion } -constraints {eagle command.object SQLiteInterop System.Data.SQLite} -result \ $version(full)} ############################################################################### runTest {test version-1.18 {InteropSourceId} -body { object invoke System.Data.SQLite.SQLiteConnection InteropSourceId } -constraints {eagle command.object SQLiteInterop System.Data.SQLite} -match \ regexp -result {^[0-9a-f]{40} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} UTC$}} ############################################################################### runTest {test version-1.19 {ProviderVersion} -body { object invoke System.Data.SQLite.SQLiteConnection ProviderVersion } -constraints {eagle command.object System.Data.SQLite} -result $version(full)} ############################################################################### runTest {test version-1.20 {ProviderSourceId} -body { # # NOTE: The ProviderSourceId property value may be null, which # would result in an empty string being returned here. # object invoke System.Data.SQLite.SQLiteConnection ProviderSourceId } -constraints {eagle command.object System.Data.SQLite} -match regexp -result \ {^(?:|[0-9a-f]{40} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} UTC)$}} ############################################################################### unset -nocomplain patterns ############################################################################### |
Changes to Tests/vtab.eagle.
97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 ... 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 ... 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 ... 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 ... 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 ... 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 .... 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 .... 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 .... 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 .... 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 .... 1587 1588 1589 1590 1591 1592 1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 .... 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 .... 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 |
[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 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] ................................................................................ [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 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 { ................................................................................ [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 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 { ................................................................................ [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 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 { ................................................................................ [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 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 { ................................................................................ [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 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\}\}$}]} ############################################################################### ................................................................................ [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 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\}\}$}]} ############################################################################### ................................................................................ [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 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 { ................................................................................ [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 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 ................................................................................ [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 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 ................................................................................ [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 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 { ................................................................................ [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 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 { ................................................................................ [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 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\}$}]} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |
< | | > | < | | | < | | | < | | | < | | | < | | | < | | | < | | | < | | | < | | | | | < | | | < | | | |
97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 ... 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 ... 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 ... 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 ... 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 ... 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 .... 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 .... 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 .... 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 .... 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 .... 1578 1579 1580 1581 1582 1583 1584 1585 1586 1587 1588 1589 1590 1591 1592 1593 .... 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 .... 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 |
[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] ................................................................................ [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 { ................................................................................ [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 { ................................................................................ [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 { ................................................................................ [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 { ................................................................................ [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\}\}$}]} ############################################################################### ................................................................................ [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\}\}$}]} ############################################################################### ................................................................................ [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 { ................................................................................ [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 ................................................................................ [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 ................................................................................ [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 { ................................................................................ [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 { ................................................................................ [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\}$}]} ############################################################################### runSQLiteTestEpilogue runTestEpilogue |