System.Data.SQLite

Check-in [8f9ea0bf02]
Login

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

Overview
Comment:The test suite helper procedure 'moveSystemDataSQLiteDllConfig' should use the binary directory.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8f9ea0bf02db52891f3637bfb95c903f6f27d138
User & Date: mistachkin 2016-10-29 23:57:34.065
Context
2016-10-29
23:58
When testing on Mono, make sure to set the build year as various tests may rely upon it. check-in: fa057c02da user: mistachkin tags: trunk
23:57
The test suite helper procedure 'moveSystemDataSQLiteDllConfig' should use the binary directory. check-in: 8f9ea0bf02 user: mistachkin tags: trunk
22:43
Update version history docs. check-in: fe1b63b36c user: mistachkin tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to lib/System.Data.SQLite/common.eagle.
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
        append result \n
      }

      return $result
    }

    proc moveSystemDataSQLiteDllConfig { {restore false} {verbose true} } {
      set directory [object invoke AppDomain CurrentDomain.BaseDirectory]

      if {[string length $directory] == 0} then {
        if {$verbose} then {
          tputs $::test_channel [appendArgs \
              "---- skipped moving \"System.Data.SQLite.dll.config\", " \
              "no base directory\n"]
        }

        return
      }

      set fileName(1) [file normalize \
          [file join $directory System.Data.SQLite.dll.config]]







|





|







1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
        append result \n
      }

      return $result
    }

    proc moveSystemDataSQLiteDllConfig { {restore false} {verbose true} } {
      set directory [getBinaryDirectory]

      if {[string length $directory] == 0} then {
        if {$verbose} then {
          tputs $::test_channel [appendArgs \
              "---- skipped moving \"System.Data.SQLite.dll.config\", " \
              "no binary directory\n"]
        }

        return
      }

      set fileName(1) [file normalize \
          [file join $directory System.Data.SQLite.dll.config]]