Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Further enhancements to the test suite infrastructure. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | ef6 |
| Files: | files | file ages | folders |
| SHA1: |
da255bcf7c6e714ad274e59a3ef5deb3 |
| User & Date: | mistachkin 2014-01-13 02:16:08.163 |
Context
|
2014-01-13
| ||
| 02:31 | Fix comments and formatting. check-in: 2d06ea75cc user: mistachkin tags: ef6 | |
| 02:16 | Further enhancements to the test suite infrastructure. check-in: da255bcf7c user: mistachkin tags: ef6 | |
| 01:51 | Add the testef6 binaries to the test automation setup batch file. check-in: ac75215581 user: mistachkin tags: ef6 | |
Changes
Changes to Tests/common.eagle.
| ︙ | ︙ | |||
102 103 104 105 106 107 108 |
if {[info exists ::test_years] && [llength $::test_years] > 0} then {
#
# NOTE: Use the specified list of test years.
#
return $::test_years
} else {
#
| | | 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 |
if {[info exists ::test_years] && [llength $::test_years] > 0} then {
#
# NOTE: Use the specified list of test years.
#
return $::test_years
} else {
#
# NOTE: Use the default list of test years (i.e. all).
#
return [list 2005 2008 2010 2012 2013]
}
}
proc getBuildNetFx {} {
#
|
| ︙ | ︙ | |||
139 140 141 142 143 144 145 |
2012 {
return netFx45
}
2013 {
return netFx451
}
default {
| | | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 |
2012 {
return netFx45
}
2013 {
return netFx451
}
default {
return netFx35; # TODO: Good "fallback" default?
}
}
}
}
proc getBuildPlatform { native } {
if {[info exists ::test_platform] && \
|
| ︙ | ︙ | |||
174 175 176 177 178 179 180 181 182 183 184 185 186 187 |
#
return [expr {
$native ? [machineToPlatform $::tcl_platform(machine)] : ""
}]
} else {
#
# NOTE: No machine architecture is available, return an empty string.
#
return ""
}
}
proc getBuildConfiguration {} {
#
| > > | 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 |
#
return [expr {
$native ? [machineToPlatform $::tcl_platform(machine)] : ""
}]
} else {
#
# NOTE: No machine architecture is available, return an empty string.
# It is important to return an empty string here because the
# result of this procedure may be used with [file join].
#
return ""
}
}
proc getBuildConfiguration {} {
#
|
| ︙ | ︙ | |||
532 533 534 535 536 537 538 539 540 541 542 543 544 545 |
# NOTE: The release version has been overridden; therefore, use it
# verbatim.
#
return $::release_version
} else {
#
# NOTE: No release version is available, return an empty string.
#
return ""
}
}
proc getBuildFileName { fileName {platform ""} } {
#
| > > | 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 |
# NOTE: The release version has been overridden; therefore, use it
# verbatim.
#
return $::release_version
} else {
#
# NOTE: No release version is available, return an empty string.
# It is important to return an empty string here because the
# result of this procedure may be used with [file join].
#
return ""
}
}
proc getBuildFileName { fileName {platform ""} } {
#
|
| ︙ | ︙ | |||
2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 |
# legacy tests run with exactly the same set of Managed
# Debugging Assistants configured.
#
foreach fileName $mdaConfigFileNames {
tryCopyBinaryFile EagleShell.exe.mda.config "" $fileName
}
foreach fileName $externalFileNames {
tryCopyExternalFile $fileName
}
}
if {![info exists ::no(copySqliteNativeFiles)]} then {
if {![info exists ::no(copySqliteImplicitFiles)]} then {
| > > > > > > | 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 |
# legacy tests run with exactly the same set of Managed
# Debugging Assistants configured.
#
foreach fileName $mdaConfigFileNames {
tryCopyBinaryFile EagleShell.exe.mda.config "" $fileName
}
#
# NOTE: Copy the external binaries, if any, to the directory that
# contains the Eagle shell. This is typically used to make
# sure assemblies referenced by the ones being tested are
# available during the testing process.
#
foreach fileName $externalFileNames {
tryCopyExternalFile $fileName
}
}
if {![info exists ::no(copySqliteNativeFiles)]} then {
if {![info exists ::no(copySqliteImplicitFiles)]} then {
|
| ︙ | ︙ | |||
2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 |
#
# NOTE: Skip trying to load any files if instructed.
#
if {![info exists ::no(loadSqliteFiles)]} then {
if {![info exists ::no(loadSqliteImplicitFiles)]} then {
tryLoadAssembly System.Data.SQLite.dll
tryLoadAssembly System.Data.SQLite.Linq.dll
tryLoadAssembly System.Data.SQLite.EF6.dll
}
if {![info exists ::no(loadSqliteNonImplicitFiles)]} then {
if {![info exists ::no(loadSqlitePlatformFiles)] && \
[string length $platform] > 0} then {
tryLoadAssembly System.Data.SQLite.dll $platform
| > > > > > > | 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 |
#
# NOTE: Skip trying to load any files if instructed.
#
if {![info exists ::no(loadSqliteFiles)]} then {
if {![info exists ::no(loadSqliteImplicitFiles)]} then {
tryLoadAssembly System.Data.SQLite.dll
}
if {![info exists ::no(loadSqliteLinqFiles)]} then {
tryLoadAssembly System.Data.SQLite.Linq.dll
}
if {![info exists ::no(loadSqliteEf6Files)]} then {
tryLoadAssembly System.Data.SQLite.EF6.dll
}
if {![info exists ::no(loadSqliteNonImplicitFiles)]} then {
if {![info exists ::no(loadSqlitePlatformFiles)] && \
[string length $platform] > 0} then {
tryLoadAssembly System.Data.SQLite.dll $platform
|
| ︙ | ︙ | |||
2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 |
tputs $::test_channel \
"---- checking for System.Data.SQLite build year... "
set year [getBuildYear]
addConstraint [appendArgs buildYear. $year]
tputs $::test_channel [appendArgs \" $year \"\n]
#
# NOTE: Check the current build configuration. This should normally
# be either "Debug" or "Release".
#
tputs $::test_channel \
"---- checking for System.Data.SQLite build configuration... "
| > > > > > > > > > > > > | 2887 2888 2889 2890 2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 2910 2911 2912 |
tputs $::test_channel \
"---- checking for System.Data.SQLite build year... "
set year [getBuildYear]
addConstraint [appendArgs buildYear. $year]
tputs $::test_channel [appendArgs \" $year \"\n]
#
# NOTE: Check the current build .NET Framework. Basically, this
# indicates which version of the .NET Framework is being
# by the assembly binaries under test.
#
tputs $::test_channel \
"---- checking for System.Data.SQLite build .NET Framework... "
set netFx [getBuildNetFx]
addConstraint [appendArgs buildFramework. $netFx]
tputs $::test_channel [appendArgs \" $netFx \"\n]
#
# NOTE: Check the current build configuration. This should normally
# be either "Debug" or "Release".
#
tputs $::test_channel \
"---- checking for System.Data.SQLite build configuration... "
|
| ︙ | ︙ |