Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Further enhancements to the test suite infrastructure. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | ef6 |
| Files: | files | file ages | folders |
| SHA1: |
da255bcf7c6e714ad274e59a3ef5deb3 |
| User & Date: | mistachkin 2014-01-13 02:16:08 |
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 109 110 111 112 113 114 115 116 ... 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 ... 174 175 176 177 178 179 180 181 182 183 184 185 186 187 ... 532 533 534 535 536 537 538 539 540 541 542 543 544 545 .... 2613 2614 2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 .... 2655 2656 2657 2658 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 .... 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 |
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.
#
return [list 2005 2008 2010 2012 2013]
}
}
proc getBuildNetFx {} {
#
................................................................................
2012 {
return netFx45
}
2013 {
return netFx451
}
default {
return ""
}
}
}
}
proc getBuildPlatform { native } {
if {[info exists ::test_platform] && \
................................................................................
#
return [expr {
$native ? [machineToPlatform $::tcl_platform(machine)] : ""
}]
} else {
#
# NOTE: No machine architecture is available, return an empty string.
#
return ""
}
}
proc getBuildConfiguration {} {
#
................................................................................
# 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 ""} } {
#
................................................................................
# 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 {
................................................................................
#
# 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
................................................................................
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... "
|
| | > > > > > > > > > > > > > > > > > > > > > > > > > > > > |
102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 ... 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 ... 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 ... 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 .... 2617 2618 2619 2620 2621 2622 2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2634 2635 2636 .... 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 .... 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 |
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 {} {
#
................................................................................
2012 {
return netFx45
}
2013 {
return netFx451
}
default {
return netFx35; # TODO: Good "fallback" default?
}
}
}
}
proc getBuildPlatform { native } {
if {[info exists ::test_platform] && \
................................................................................
#
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 {} {
#
................................................................................
# 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 ""} } {
#
................................................................................
# 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 {
................................................................................
#
# 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
................................................................................
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... "
|