System.Data.SQLite
Check-in [7b5145866e]
Not logged in

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

Overview
Comment:In the test suite infrastructure, allow the database and temporary directories to be overridden via the scratch_directory variable.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7b5145866e940d8946fb850d179e68b04cc9aebe
User & Date: mistachkin 2012-10-13 15:52:42
Context
2012-10-13
17:57
Modify the debug defines in the interop assembly project to include SQLITE_ENABLE_EXPENSIVE_ASSERT. check-in: 232e3ae933 user: mistachkin tags: trunk
15:52
In the test suite infrastructure, allow the database and temporary directories to be overridden via the scratch_directory variable. check-in: 7b5145866e user: mistachkin tags: trunk
09:09
Reduce the use of global variables by the stress test workloads. check-in: 3ef1f5528b user: mistachkin tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to Externals/Eagle/lib/Eagle1.0/vendor.eagle.

171
172
173
174
175
176
177

178
179
180
181
182
183
184
185
186
    #
    # NOTE: Check for any overridden settings that may have been specified via
    #       the command line, etc.
    #
    checkForTestOverrides stdout [expr {[info exists test_overrides] ? \
        $test_overrides : [list binary_directory build_base_directory \
        build_directory common_directory connection_flags database_directory \

        datetime_format temporary_directory test_configuration test_overrides \
        test_year test_year_clr_v2 test_year_clr_v4 vendor_directory]}] false

    #
    # NOTE: This variable will contain the name of the directory containing the
    #       vendor-specific testing infrastructure.  If the variable does not
    #       already exist, create it; otherwise, it has been overridden and the
    #       existing value should be left intact.
    #







>
|
|







171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
    #
    # NOTE: Check for any overridden settings that may have been specified via
    #       the command line, etc.
    #
    checkForTestOverrides stdout [expr {[info exists test_overrides] ? \
        $test_overrides : [list binary_directory build_base_directory \
        build_directory common_directory connection_flags database_directory \
        datetime_format scratch_directory temporary_directory \
        test_configuration test_overrides test_year test_year_clr_v2 \
        test_year_clr_v4 vendor_directory]}] false

    #
    # NOTE: This variable will contain the name of the directory containing the
    #       vendor-specific testing infrastructure.  If the variable does not
    #       already exist, create it; otherwise, it has been overridden and the
    #       existing value should be left intact.
    #

Changes to Tests/common.eagle.

305
306
307
308
309
310
311







312
313
314
315
316
317
318
...
323
324
325
326
327
328
329







330
331
332
333
334
335
336
      if {[info exists ::database_directory] && \
          [string length $::database_directory] > 0} then {
        #
        # NOTE: The location of the database directory has been overridden;
        #       therefore, use it.
        #
        return [file normalize $::database_directory]







      } else {
        return [getTemporaryPath]
      }
    }
 
    proc getTemporaryDirectory {} {
      #
................................................................................
      if {[info exists ::temporary_directory] && \
          [string length $::temporary_directory] > 0} then {
        #
        # NOTE: The location of the temporary directory has been overridden;
        #       therefore, use it.
        #
        return [file normalize $::temporary_directory]







      } else {
        return [getTemporaryPath]
      }
    }
 
    proc getTestOverridesPreamble { {extraVarNames ""} } {
      set varNames [list]







>
>
>
>
>
>
>







 







>
>
>
>
>
>
>







305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
...
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
      if {[info exists ::database_directory] && \
          [string length $::database_directory] > 0} then {
        #
        # NOTE: The location of the database directory has been overridden;
        #       therefore, use it.
        #
        return [file normalize $::database_directory]
      } elseif {[info exists ::scratch_directory] && \
          [string length $::scratch_directory] > 0} then {
        #
        # NOTE: The location of the scratch directory has been overridden;
        #       therefore, use it.
        #
        return [file normalize $::scratch_directory]
      } else {
        return [getTemporaryPath]
      }
    }
 
    proc getTemporaryDirectory {} {
      #
................................................................................
      if {[info exists ::temporary_directory] && \
          [string length $::temporary_directory] > 0} then {
        #
        # NOTE: The location of the temporary directory has been overridden;
        #       therefore, use it.
        #
        return [file normalize $::temporary_directory]
      } elseif {[info exists ::scratch_directory] && \
          [string length $::scratch_directory] > 0} then {
        #
        # NOTE: The location of the scratch directory has been overridden;
        #       therefore, use it.
        #
        return [file normalize $::scratch_directory]
      } else {
        return [getTemporaryPath]
      }
    }
 
    proc getTestOverridesPreamble { {extraVarNames ""} } {
      set varNames [list]