System.Data.SQLite
Check-in [822b7c577c]
Not logged in

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

Overview
Comment:More improvements to test suite infrastructure helper procedures.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | customDataTypes
Files: files | file ages | folders
SHA1: 822b7c577c628e3bb3d6bbd5802ccf6ce7dd7d87
User & Date: mistachkin 2016-06-20 04:50:46
Context
2016-06-20
04:51
When looking up type callbacks, permit the parameter name to be used if the appropriate connection flag is set. check-in: e268cdb240 user: mistachkin tags: customDataTypes
04:50
More improvements to test suite infrastructure helper procedures. check-in: 822b7c577c user: mistachkin tags: customDataTypes
03:25
Fix typo in the BindValueUserData property. check-in: 9449fba6d8 user: mistachkin tags: customDataTypes
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to lib/System.Data.SQLite/common.eagle.

  2113   2113         #
  2114   2114         # NOTE: If the string conforms to format of the normal exception
  2115   2115         #       error strings, extract and return only the error message
  2116   2116         #       portion itself.
  2117   2117         #
  2118   2118         set patterns [list \
  2119   2119         {System\.Data\.SQLite\.SQLiteException \(0x80004005\): (.+?)  (?: )?at} \
  2120         -      {System\.Data\.SQLite\.SQLiteException: (.+?)  (?: )?at}]
         2120  +      {System\.Data\.SQLite\.SQLiteException: (.+?)  (?: )?at} \
         2121  +      {Eagle\._Components\.Public\.ScriptException: (.+?)  (?: )?at}]
  2121   2122   
  2122   2123         foreach pattern $patterns {
  2123   2124           if {[regexp -- $pattern $value dummy message]} then {
  2124   2125             set message [string map [list \r\n \n] [string trim $message]]
  2125   2126             set lines [split $message \n]
  2126   2127   
  2127   2128             if {[llength $lines] == 2} then {
................................................................................
  2187   2188               ![array exists ::dataSource]} then {
  2188   2189             set database [appendArgs "data source \"" $::dataSource \"]
  2189   2190           } else {
  2190   2191             set database <unknown>
  2191   2192           }
  2192   2193         }
  2193   2194   
         2195  +      #
         2196  +      # NOTE: Even though there is only one source of flags so far, they
         2197  +      #       must be combined using the correct syntax for enumerated
         2198  +      #       flag values for the .NET Framework.
         2199  +      #
         2200  +      set flags [combineFlags $flags ""]
         2201  +
  2194   2202         #
  2195   2203         # NOTE: Show (and log) the local connection flags and the associated
  2196   2204         #       data source or file name.
  2197   2205         #
  2198   2206         if {!$quiet} then {
  2199   2207           if {![info exists ::no(emitLocalFlags)] && \
  2200   2208               (![info exists ::no(emitLocalFlagsIfNone)] || \