Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix comments and formatting. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | ef6 |
| Files: | files | file ages | folders |
| SHA1: | 2d06ea75ccfbc3d5e9fb32ca3d3bdeb3f17e1d29 |
| User & Date: | mistachkin 2014-01-13 02:31:03 |
Context
|
2014-01-13
| ||
| 03:14 | Merge updates from trunk. check-in: ba04fdc873 user: mistachkin tags: ef6 | |
| 02:31 | Fix comments and formatting. check-in: 2d06ea75cc user: mistachkin tags: ef6 | |
| 02:16 | Further enhancements to the test suite infrastructure. check-in: da255bcf7c user: mistachkin tags: ef6 | |
Changes
Changes to Tests/common.eagle.
606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 ... 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 ... 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 ... 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 ... 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 .... 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 .... 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 1259 1260 1261 1262 .... 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 .... 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 .... 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 .... 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127 2128 2129 2130 2131 2132 2133 .... 2135 2136 2137 2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 .... 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2166 2167 2168 2169 2170 .... 2177 2178 2179 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 .... 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2250 2251 2252 2253 2254 2255 2256 .... 2265 2266 2267 2268 2269 2270 2271 2272 2273 2274 2275 2276 2277 2278 2279 2280 2281 2282 .... 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 2363 2364 2365 .... 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389 2390 2391 2392 2393 2394 2395 .... 2782 2783 2784 2785 2786 2787 2788 2789 2790 2791 2792 2793 2794 2795 2796 2797 2798 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 2817 2818 2819 2820 2821 2822 2823 2824 2825 2826 2827 2828 .... 2890 2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 .... 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 |
# NOTE: Returns the full path for the file containing the SQLite core
# native library code for this platform. First, check and see if
# the SQLite core native library has already been loaded. Next,
# fallback to what the full path should be, based on whether the
# mixed-mode assembly is being used and the name of the current
# platform.
#
if {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.UnsafeNativeMethods \
_SQLiteNativeModuleFileName} fileName] == 0 && \
[string length $fileName] > 0} then {
#
# NOTE: The SQLite core native library has already been loaded via
# the native library pre-loader. Return that file name now.
#
return $fileName
}
................................................................................
} else {
set targetFileName [getBinaryFileName $fileName $platform]
}
set targetDirectory [file dirname $targetFileName]
if {[catch {
if {![file exists $targetDirectory]} then {
file mkdir $targetDirectory
}
file copy -force $sourceFileName $targetFileName}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied external file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to copy external file from \"" $sourceFileName \
"\" to \"" $targetFileName \"\n]
................................................................................
} else {
set targetFileName [getBuildFileName $fileName $platform]
}
set targetDirectory [file dirname $targetFileName]
if {[catch {
if {![file exists $targetDirectory]} then {
file mkdir $targetDirectory
}
file copy -force $sourceFileName $targetFileName}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied binary file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to copy binary file from \"" $sourceFileName \
"\" to \"" $targetFileName \"\n]
................................................................................
} else {
set targetFileName [getBinaryFileName $fileName $platform]
}
set targetDirectory [file dirname $targetFileName]
if {[catch {
if {![file exists $targetDirectory]} then {
file mkdir $targetDirectory
}
file copy -force $sourceFileName $targetFileName}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied build file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to copy build file from \"" $sourceFileName \
"\" to \"" $targetFileName \"\n]
................................................................................
[file rootname $fileName] .pdb] $platform
}
}
proc tryLoadAssembly { fileName {platform ""} } {
set fileName [getBinaryFileName $fileName $platform]
if {[catch {set assembly \
[object load -loadtype File -alias $fileName]}] == 0} then {
#
# NOTE: Now, add the necessary test constraint.
#
addConstraint [file rootname [file tail $fileName]]
#
# NOTE: Grab the image runtime version from the assembly because
................................................................................
return false
}
proc checkForSQLiteLibrary { channel } {
tputs $channel "---- checking for SQLite core library... "
if {[catch {
object invoke -flags +NonPublic System.Data.SQLite.SQLite3 \
SQLiteVersion} version] == 0} then {
#
# NOTE: Check if the returned version was null. If so, make it easy
# to spot.
#
if {[string length $version] == 0} then {
set version null
}
#
# NOTE: Attempt to query the Fossil source identifier for the SQLite
# core library.
#
if {[catch {
object invoke -flags +NonPublic System.Data.SQLite.SQLite3 \
SQLiteSourceId} sourceId]} then {
#
# NOTE: We failed to query the Fossil source identifier.
#
set sourceId unknown
}
#
................................................................................
}
}
proc checkForSQLiteInterop { channel } {
tputs $channel "---- checking for SQLite interop assembly... "
if {[catch {
object invoke -flags +NonPublic System.Data.SQLite.SQLite3 \
InteropVersion} version] == 0} then {
#
# NOTE: Check if the returned version was null. If so, make it easy
# to spot.
#
if {[string length $version] == 0} then {
set version null
}
#
# NOTE: Attempt to query the Fossil source identifier for the SQLite
# core library.
#
if {[catch {
object invoke -flags +NonPublic System.Data.SQLite.SQLite3 \
InteropSourceId} sourceId]} then {
#
# NOTE: We failed to query the Fossil source identifier.
#
set sourceId unknown
}
#
................................................................................
proc checkForSQLiteDefineConstant { channel name } {
tputs $channel [appendArgs \
"---- checking for System.Data.SQLite define constant \"" $name \
"\"... "]
if {[catch {
object invoke -flags +NonPublic System.Data.SQLite.SQLite3 \
DefineConstants} defineConstants] == 0} then {
if {[lsearch -exact -nocase $defineConstants $name] != -1} then {
#
# NOTE: Yes, this define constant was enabled when the managed
# assembly was compiled.
#
addConstraint [appendArgs defineConstant.System.Data.SQLite. $name]
................................................................................
# NOTE: This returns the ADO.NET IDbConnection object instance for the
# specified databse handle. Since getting this object relies upon
# Eagle internals, great care should be taken to avoid disposing of
# this object or otherwise putting it into an invalid state.
#
if {[info exists db]} then {
if {[catch {
object invoke -flags +NonPublic -objectflags +NoDispose \
-alias Interpreter.GetActive.connections Item $db} \
result] == 0} then {
#
# NOTE: Success, return the opaque object handle.
#
return $result
} else {
#
# NOTE: Failure, report why.
................................................................................
if {$force || [isSQLiteReady]} then {
#
# BUGFIX: Before calling the native shutdown function, make sure both
# of the PRAGMA related directory names are freed.
#
checkForSQLiteDirectories $channel true
if {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.UnsafeNativeMethods \
sqlite3_shutdown} result] == 0} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"---- call sqlite3_shutdown()... ok: " $result \n]
}
} else {
if {!$quiet} then {
tputs $channel [appendArgs \
................................................................................
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 {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteMemory \
bytesAllocated} memory] == 0} then {
if {!$quiet} then {
tputs $channel [appendArgs $memory " bytes\n"]
}
} else {
set memory unknown
if {!$quiet} then {
................................................................................
}
}
if {!$quiet} then {
tputs $channel "---- maximum memory in use by SQLiteMemory... "
}
if {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteMemory \
maximumBytesAllocated} memory] == 0} then {
if {!$quiet} then {
tputs $channel [appendArgs $memory " bytes\n"]
}
} else {
set memory unknown
if {!$quiet} then {
................................................................................
}
}
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 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?
#
................................................................................
# NOTE: This call to the sqlite3_win32_set_directory function uses the
# invalid value 0 for the first argument. This code is designed
# to check if calling the function will raise an exception (i.e.
# the actual result of the function does not matter as long as no
# directory is changed).
#
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.UnsafeNativeMethods \
sqlite3_win32_set_directory 0 null}] == 0} then {
#
# NOTE: Calling the sqlite3_win32_set_directory function does not
# cause an exception; therefore, it must be available (i.e.
# even though it should return a failure return code in this
# case).
#
addConstraint sqlite3_win32_set_directory
................................................................................
# NOTE: Now make sure the database and temporary directories are
# reset their default values, which should be null for both.
# Since the sqlite3_win32_set_directory function is available,
# use it.
#
for {set index 1} {$index < 3} {incr index} {
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.UnsafeNativeMethods \
sqlite3_win32_set_directory $index null} \
result] == 0} then {
tputs $channel [appendArgs \
"---- call sqlite3_win32_set_directory(" $index \
", null)... ok: " $result \n]
} else {
tputs $channel [appendArgs \
"---- call sqlite3_win32_set_directory(" $index \
", null)... error: " \n\t $result \n]
................................................................................
if {[file exists $userSettingsFileName]} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"---- loading per-user test settings file \"" \
$userSettingsFileName \"...\n]
}
if {[catch {uplevel 1 [list source $userSettingsFileName]} \
error]} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"==== WARNING: failed to load per-user settings file \"" \
$userSettingsFileName "\", error: " \n\t $error \n]
}
}
} else {
................................................................................
if {[file exists $hostSettingsFileName]} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"---- loading per-host test settings file \"" \
$hostSettingsFileName \"...\n]
}
if {[catch {uplevel 1 [list source $hostSettingsFileName]} \
error]} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"==== WARNING: failed to load per-host settings file \"" \
$hostSettingsFileName "\", error: " \n\t $error \n]
}
}
} else {
................................................................................
}
}
catch {
tputs $::test_channel \
"---- define constants for \"System.Data.SQLite\"... "
if {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 DefineConstants} \
defineConstants] == 0} then {
tputs $::test_channel [appendArgs [formatList [lsort \
$defineConstants] <none>] \n]
} else {
tputs $::test_channel unknown\n
}
}
catch {
tputs $::test_channel \
"---- source version of \"System.Data.SQLite.dll\"... "
if {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteConnection ProviderVersion} \
version] == 0} then {
if {[string length $version] == 0} then {
set version null
}
tputs $::test_channel [appendArgs $version \n]
} else {
tputs $::test_channel unknown\n
}
}
catch {
tputs $::test_channel \
"---- source checkout of \"System.Data.SQLite.dll\"... "
if {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteConnection ProviderSourceId} \
sourceId] == 0} then {
if {[string length $sourceId] == 0} then {
set sourceId null
}
tputs $::test_channel [appendArgs $sourceId \n]
} else {
tputs $::test_channel unknown\n
}
................................................................................
set year [getBuildYear]
addConstraint [appendArgs buildYear. $year]
tputs $::test_channel [appendArgs \" $year \"\n]
#
# NOTE: Check the current build .NET Framework. Basically, this
# indicates which version of the .NET Framework is being
# by the assembly binaries under test.
#
tputs $::test_channel \
"---- checking for System.Data.SQLite build .NET Framework... "
set netFx [getBuildNetFx]
addConstraint [appendArgs buildFramework. $netFx]
tputs $::test_channel [appendArgs \" $netFx \"\n]
................................................................................
}
}
catch {
tputs $::test_channel \
"---- compile-time options for SQLite core library... "
if {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 SQLiteCompileOptions} \
compileOptions] == 0} then {
tputs $::test_channel [appendArgs [formatList [lsort \
$compileOptions] <none>] \n]
} else {
tputs $::test_channel unknown\n
}
}
catch {
tputs $::test_channel \
"---- compile-time options for SQLite interop assembly... "
if {[catch {object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 InteropCompileOptions} \
compileOptions] == 0} then {
tputs $::test_channel [appendArgs [formatList [lsort \
$compileOptions] <none>] \n]
} else {
tputs $::test_channel unknown\n
}
}
|
> | | < | | | | | > | | | | > | | | | > | | > | > | | > | | > | | > | | > | | | | > | | | > | | | > | | | > | | | > | | | | | | > | | | | > | | > | | > | | | > | | | > | | | | > | | | > | | | |
606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 ... 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 ... 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 ... 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 ... 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 .... 1190 1191 1192 1193 1194 1195 1196 1197 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 .... 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 .... 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 .... 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 .... 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 .... 2127 2128 2129 2130 2131 2132 2133 2134 2135 2136 2137 2138 2139 2140 2141 2142 2143 2144 .... 2146 2147 2148 2149 2150 2151 2152 2153 2154 2155 2156 2157 2158 2159 2160 2161 2162 2163 .... 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183 .... 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 .... 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 .... 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2291 2292 2293 2294 2295 2296 2297 .... 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375 2376 2377 2378 2379 2380 2381 .... 2396 2397 2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2411 2412 .... 2799 2800 2801 2802 2803 2804 2805 2806 2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 2817 2818 2819 2820 2821 2822 2823 2824 2825 2826 2827 2828 2829 2830 2831 2832 2833 2834 2835 2836 2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2847 2848 .... 2910 2911 2912 2913 2914 2915 2916 2917 2918 2919 2920 2921 2922 2923 2924 .... 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 |
# NOTE: Returns the full path for the file containing the SQLite core
# native library code for this platform. First, check and see if
# the SQLite core native library has already been loaded. Next,
# fallback to what the full path should be, based on whether the
# mixed-mode assembly is being used and the name of the current
# platform.
#
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.UnsafeNativeMethods _SQLiteNativeModuleFileName
} fileName] == 0 && [string length $fileName] > 0} then {
#
# NOTE: The SQLite core native library has already been loaded via
# the native library pre-loader. Return that file name now.
#
return $fileName
}
................................................................................
} else {
set targetFileName [getBinaryFileName $fileName $platform]
}
set targetDirectory [file dirname $targetFileName]
if {[catch {
if {![file exists $targetDirectory]} then {
file mkdir $targetDirectory
}
file copy -force $sourceFileName $targetFileName
}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied external file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to copy external file from \"" $sourceFileName \
"\" to \"" $targetFileName \"\n]
................................................................................
} else {
set targetFileName [getBuildFileName $fileName $platform]
}
set targetDirectory [file dirname $targetFileName]
if {[catch {
if {![file exists $targetDirectory]} then {
file mkdir $targetDirectory
}
file copy -force $sourceFileName $targetFileName
}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied binary file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to copy binary file from \"" $sourceFileName \
"\" to \"" $targetFileName \"\n]
................................................................................
} else {
set targetFileName [getBinaryFileName $fileName $platform]
}
set targetDirectory [file dirname $targetFileName]
if {[catch {
if {![file exists $targetDirectory]} then {
file mkdir $targetDirectory
}
file copy -force $sourceFileName $targetFileName
}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied build file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to copy build file from \"" $sourceFileName \
"\" to \"" $targetFileName \"\n]
................................................................................
[file rootname $fileName] .pdb] $platform
}
}
proc tryLoadAssembly { fileName {platform ""} } {
set fileName [getBinaryFileName $fileName $platform]
if {[catch {
set assembly [object load -loadtype File -alias $fileName]
}] == 0} then {
#
# NOTE: Now, add the necessary test constraint.
#
addConstraint [file rootname [file tail $fileName]]
#
# NOTE: Grab the image runtime version from the assembly because
................................................................................
return false
}
proc checkForSQLiteLibrary { channel } {
tputs $channel "---- checking for SQLite core library... "
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 SQLiteVersion
} version] == 0} then {
#
# NOTE: Check if the returned version was null. If so, make it easy
# to spot.
#
if {[string length $version] == 0} then {
set version null
}
#
# NOTE: Attempt to query the Fossil source identifier for the SQLite
# core library.
#
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 SQLiteSourceId
} sourceId]} then {
#
# NOTE: We failed to query the Fossil source identifier.
#
set sourceId unknown
}
#
................................................................................
}
}
proc checkForSQLiteInterop { channel } {
tputs $channel "---- checking for SQLite interop assembly... "
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 InteropVersion
} version] == 0} then {
#
# NOTE: Check if the returned version was null. If so, make it easy
# to spot.
#
if {[string length $version] == 0} then {
set version null
}
#
# NOTE: Attempt to query the Fossil source identifier for the SQLite
# core library.
#
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 InteropSourceId
} sourceId]} then {
#
# NOTE: We failed to query the Fossil source identifier.
#
set sourceId unknown
}
#
................................................................................
proc checkForSQLiteDefineConstant { channel name } {
tputs $channel [appendArgs \
"---- checking for System.Data.SQLite define constant \"" $name \
"\"... "]
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 DefineConstants
} defineConstants] == 0} then {
if {[lsearch -exact -nocase $defineConstants $name] != -1} then {
#
# NOTE: Yes, this define constant was enabled when the managed
# assembly was compiled.
#
addConstraint [appendArgs defineConstant.System.Data.SQLite. $name]
................................................................................
# NOTE: This returns the ADO.NET IDbConnection object instance for the
# specified databse handle. Since getting this object relies upon
# Eagle internals, great care should be taken to avoid disposing of
# this object or otherwise putting it into an invalid state.
#
if {[info exists db]} then {
if {[catch {
object invoke -flags +NonPublic -objectflags +NoDispose -alias \
Interpreter.GetActive.connections Item $db
} result] == 0} then {
#
# NOTE: Success, return the opaque object handle.
#
return $result
} else {
#
# NOTE: Failure, report why.
................................................................................
if {$force || [isSQLiteReady]} then {
#
# BUGFIX: Before calling the native shutdown function, make sure both
# of the PRAGMA related directory names are freed.
#
checkForSQLiteDirectories $channel true
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.UnsafeNativeMethods sqlite3_shutdown
} result] == 0} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"---- call sqlite3_shutdown()... ok: " $result \n]
}
} else {
if {!$quiet} then {
tputs $channel [appendArgs \
................................................................................
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 {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteMemory bytesAllocated
} memory] == 0} then {
if {!$quiet} then {
tputs $channel [appendArgs $memory " bytes\n"]
}
} else {
set memory unknown
if {!$quiet} then {
................................................................................
}
}
if {!$quiet} then {
tputs $channel "---- maximum memory in use by SQLiteMemory... "
}
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteMemory maximumBytesAllocated
} memory] == 0} then {
if {!$quiet} then {
tputs $channel [appendArgs $memory " bytes\n"]
}
} else {
set memory unknown
if {!$quiet} then {
................................................................................
}
}
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 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?
#
................................................................................
# NOTE: This call to the sqlite3_win32_set_directory function uses the
# invalid value 0 for the first argument. This code is designed
# to check if calling the function will raise an exception (i.e.
# the actual result of the function does not matter as long as no
# directory is changed).
#
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.UnsafeNativeMethods \
sqlite3_win32_set_directory 0 null
}] == 0} then {
#
# NOTE: Calling the sqlite3_win32_set_directory function does not
# cause an exception; therefore, it must be available (i.e.
# even though it should return a failure return code in this
# case).
#
addConstraint sqlite3_win32_set_directory
................................................................................
# NOTE: Now make sure the database and temporary directories are
# reset their default values, which should be null for both.
# Since the sqlite3_win32_set_directory function is available,
# use it.
#
for {set index 1} {$index < 3} {incr index} {
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.UnsafeNativeMethods \
sqlite3_win32_set_directory $index null
} result] == 0} then {
tputs $channel [appendArgs \
"---- call sqlite3_win32_set_directory(" $index \
", null)... ok: " $result \n]
} else {
tputs $channel [appendArgs \
"---- call sqlite3_win32_set_directory(" $index \
", null)... error: " \n\t $result \n]
................................................................................
if {[file exists $userSettingsFileName]} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"---- loading per-user test settings file \"" \
$userSettingsFileName \"...\n]
}
if {[catch {
uplevel 1 [list source $userSettingsFileName]
} error]} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"==== WARNING: failed to load per-user settings file \"" \
$userSettingsFileName "\", error: " \n\t $error \n]
}
}
} else {
................................................................................
if {[file exists $hostSettingsFileName]} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"---- loading per-host test settings file \"" \
$hostSettingsFileName \"...\n]
}
if {[catch {
uplevel 1 [list source $hostSettingsFileName]
} error]} then {
if {!$quiet} then {
tputs $channel [appendArgs \
"==== WARNING: failed to load per-host settings file \"" \
$hostSettingsFileName "\", error: " \n\t $error \n]
}
}
} else {
................................................................................
}
}
catch {
tputs $::test_channel \
"---- define constants for \"System.Data.SQLite\"... "
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 DefineConstants
} defineConstants] == 0} then {
tputs $::test_channel [appendArgs [formatList [lsort \
$defineConstants] <none>] \n]
} else {
tputs $::test_channel unknown\n
}
}
catch {
tputs $::test_channel \
"---- source version of \"System.Data.SQLite.dll\"... "
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteConnection ProviderVersion
} version] == 0} then {
if {[string length $version] == 0} then {
set version null
}
tputs $::test_channel [appendArgs $version \n]
} else {
tputs $::test_channel unknown\n
}
}
catch {
tputs $::test_channel \
"---- source checkout of \"System.Data.SQLite.dll\"... "
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLiteConnection ProviderSourceId
} sourceId] == 0} then {
if {[string length $sourceId] == 0} then {
set sourceId null
}
tputs $::test_channel [appendArgs $sourceId \n]
} else {
tputs $::test_channel unknown\n
}
................................................................................
set year [getBuildYear]
addConstraint [appendArgs buildYear. $year]
tputs $::test_channel [appendArgs \" $year \"\n]
#
# NOTE: Check the current build .NET Framework. Basically, this
# indicates which version of the .NET Framework is being
# used by the assembly binaries under test.
#
tputs $::test_channel \
"---- checking for System.Data.SQLite build .NET Framework... "
set netFx [getBuildNetFx]
addConstraint [appendArgs buildFramework. $netFx]
tputs $::test_channel [appendArgs \" $netFx \"\n]
................................................................................
}
}
catch {
tputs $::test_channel \
"---- compile-time options for SQLite core library... "
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 SQLiteCompileOptions
} compileOptions] == 0} then {
tputs $::test_channel [appendArgs [formatList [lsort \
$compileOptions] <none>] \n]
} else {
tputs $::test_channel unknown\n
}
}
catch {
tputs $::test_channel \
"---- compile-time options for SQLite interop assembly... "
if {[catch {
object invoke -flags +NonPublic \
System.Data.SQLite.SQLite3 InteropCompileOptions
} compileOptions] == 0} then {
tputs $::test_channel [appendArgs [formatList [lsort \
$compileOptions] <none>] \n]
} else {
tputs $::test_channel unknown\n
}
}
|