Index: Tests/version.eagle
==================================================================
--- Tests/version.eagle
+++ Tests/version.eagle
@@ -166,10 +166,50 @@
unset -nocomplain assemblyName
} -constraints {eagle file_testlinq.exe} -result $version(full)}
###############################################################################
+runTest {test version-1.11 {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.12 {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.13 {InteropVersion} -body {
+ object invoke System.Data.SQLite.SQLiteConnection InteropVersion
+} -constraints {eagle SQLiteInterop System.Data.SQLite} -result $version(full)}
+
+###############################################################################
+
+runTest {test version-1.14 {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.15 {ProviderVersion} -body {
+ object invoke System.Data.SQLite.SQLiteConnection ProviderVersion
+} -constraints {eagle System.Data.SQLite} -result $version(full)}
+
+###############################################################################
+
+runTest {test version-1.16 {ProviderSourceId} -body {
+ 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$}}
+
+###############################################################################
+
set patterns [list \
[appendArgs Version= [string map [list . \\.] $version(full)] ,] \
[appendArgs [string map [list . \\.] $version(full)] \
] \
[appendArgs [string map [list . \\.] $version(full)] \
@@ -290,11 +330,11 @@
if {![haveConstraint [appendArgs file_ $constraint]]} then {
checkForFile $test_channel $fileName $constraint
}
- runTest {test [appendArgs version-1.11. $i] \
+ runTest {test [appendArgs version-1.17. $i] \
[appendArgs "pattern {" $pattern "} in file \"" $fileName \"] -body {
regexp -- $pattern [readFile $fileName]
} -constraints [list eagle [appendArgs file_ $constraint]] -result {1}}
}