System.Data.SQLite: Check-in [12aacef1c3]

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

Overview

Comment:	In the test suite infrastructure, make sure the auto-selection process checks in the platform-specific sub-directory.
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| trunk
Files:	files \| file ages \| folders
SHA1:	12aacef1c36115751318b9a0544444d75befb9d9
User & Date:	mistachkin 2015-02-18 22:43:01

Context

2015-02-18
22:46		Improve the changes in the previous check-in. check-in: 470251caba user: mistachkin tags: trunk
22:43		In the test suite infrastructure, make sure the auto-selection process checks in the platform-specific sub-directory. check-in: 12aacef1c3 user: mistachkin tags: trunk
2015-02-13
21:30		Refactor NuGet packages. check-in: 126b7c1987 user: mistachkin tags: trunk

Changes

Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to Tests/common.eagle.

   442    442         }
   443    443   
   444    444         #
   445    445         # NOTE: Build the fully qualified file name for the interop assembly
   446    446         #       containing the System.Data.SQLite native components.  If this
   447    447         #       file exists, we should have everything we need.
   448    448         #
          449  +      set fileName [file nativename [file join $directory \
          450  +          [machineToPlatform $::tcl_platform(machine)] SQLite.Interop.dll]]
          451  +
          452  +      if {[file exists $fileName]} then {
          453  +        return true
          454  +      }
          455  +
   449    456         set fileName [file nativename [file join $directory \
   450    457             SQLite.Interop.dll]]
   451    458   
   452    459         if {[file exists $fileName]} then {
   453    460           return true
   454    461         }
   455    462   
   456    463         #
   457    464         # NOTE: Build the fully qualified file name for the SQLite core
   458    465         #       library.  If this file exists, we should have everything we
   459    466         #       need.
   460    467         #
          468  +      set fileName [file nativename [file join $directory \
          469  +          [machineToPlatform $::tcl_platform(machine)] sqlite3.dll]]
          470  +
          471  +      if {[file exists $fileName]} then {
          472  +        return true
          473  +      }
          474  +
   461    475         set fileName [file nativename [file join $directory \
   462    476             sqlite3.dll]]
   463    477   
   464    478         if {[file exists $fileName]} then {
   465    479           return true
   466    480         }
   467    481