System.Data.SQLite
Check-in [06c39db73a]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add some simple tests of the new properties.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 06c39db73ac6361bcb01ddb0c7a65627b3bd1c62
User & Date: mistachkin 2013-09-17 08:00:10
Context
2013-09-18
02:10
Add experimental support for interfacing with the authorizer callback mechanism in the SQLite core library. check-in: 12c508890c user: mistachkin tags: trunk
2013-09-17
08:00
Add some simple tests of the new properties. check-in: 06c39db73a user: mistachkin tags: trunk
07:04
Rename the ManagedVersion property to ProviderVersion. Rename the ManagedSourceId property to ProviderSourceId. Add InteropVersion and InteropSourceId properties to the SQLiteConnection class. check-in: 25174c66f9 user: mistachkin tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Tests/version.eagle.

   164    164     $assemblyName Version.ToString
   165    165   } -cleanup {
   166    166     unset -nocomplain assemblyName
   167    167   } -constraints {eagle file_testlinq.exe} -result $version(full)}
   168    168   
   169    169   ###############################################################################
   170    170   
          171  +runTest {test version-1.11 {SQLiteVersion} -body {
          172  +  object invoke System.Data.SQLite.SQLiteConnection SQLiteVersion
          173  +} -constraints {eagle SQLite System.Data.SQLite} -match regexp -result \
          174  +{^\d+\.\d+\.\d+(?:\.\d+)?$}}
          175  +
          176  +###############################################################################
          177  +
          178  +runTest {test version-1.12 {SQLiteSourceId} -body {
          179  +  object invoke System.Data.SQLite.SQLiteConnection SQLiteSourceId
          180  +} -constraints {eagle SQLite System.Data.SQLite} -match regexp -result \
          181  +{^\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} [0-9a-f]{40}$}}
          182  +
          183  +###############################################################################
          184  +
          185  +runTest {test version-1.13 {InteropVersion} -body {
          186  +  object invoke System.Data.SQLite.SQLiteConnection InteropVersion
          187  +} -constraints {eagle SQLiteInterop System.Data.SQLite} -result $version(full)}
          188  +
          189  +###############################################################################
          190  +
          191  +runTest {test version-1.14 {InteropSourceId} -body {
          192  +  object invoke System.Data.SQLite.SQLiteConnection InteropSourceId
          193  +} -constraints {eagle SQLiteInterop System.Data.SQLite} -match regexp -result \
          194  +{^[0-9a-f]{40} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} UTC$}}
          195  +
          196  +###############################################################################
          197  +
          198  +runTest {test version-1.15 {ProviderVersion} -body {
          199  +  object invoke System.Data.SQLite.SQLiteConnection ProviderVersion
          200  +} -constraints {eagle System.Data.SQLite} -result $version(full)}
          201  +
          202  +###############################################################################
          203  +
          204  +runTest {test version-1.16 {ProviderSourceId} -body {
          205  +  object invoke System.Data.SQLite.SQLiteConnection ProviderSourceId
          206  +} -constraints {eagle System.Data.SQLite} -match regexp -result \
          207  +{^[0-9a-f]{40} \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2} UTC$}}
          208  +
          209  +###############################################################################
          210  +
   171    211   set patterns [list \
   172    212       [appendArgs Version= [string map [list . \\.] $version(full)] ,] \
   173    213       [appendArgs <version> [string map [list . \\.] $version(full)] \
   174    214           </version>] \
   175    215       [appendArgs <version> [string map [list . \\.] $version(full)] \
   176    216           </version>] \
   177    217       [appendArgs <version> [string map [list . \\.] $version(full)] \
................................................................................
   288    328     set constraint [string map [list / _ \\ _] $fileName]
   289    329     set fileName [file join $root_path $fileName]
   290    330   
   291    331     if {![haveConstraint [appendArgs file_ $constraint]]} then {
   292    332       checkForFile $test_channel $fileName $constraint
   293    333     }
   294    334   
   295         -  runTest {test [appendArgs version-1.11. $i] \
          335  +  runTest {test [appendArgs version-1.17. $i] \
   296    336         [appendArgs "pattern {" $pattern "} in file \"" $fileName \"] -body {
   297    337       regexp -- $pattern [readFile $fileName]
   298    338     } -constraints [list eagle [appendArgs file_ $constraint]] -result {1}}
   299    339   }
   300    340   
   301    341   ###############################################################################
   302    342