Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Modify unit test infrastructure to better support testing the mixed-mode assembly. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
84821b278792734e086bbf1ac9fe1245 |
| User & Date: | mistachkin 2011-07-09 21:10:41 |
Context
|
2011-07-10
| ||
| 01:48 | Updates to unit test infrastructure. check-in: 1f8786cc73 user: mistachkin tags: trunk | |
|
2011-07-09
| ||
| 21:10 | Modify unit test infrastructure to better support testing the mixed-mode assembly. check-in: 84821b2787 user: mistachkin tags: trunk | |
| 20:37 | Fix incorrect resource name for SR.resx in the VC 2010 mixed-mode assembly. check-in: 55f56ce508 user: mistachkin tags: trunk | |
Changes
Changes to Tests/common.eagle.
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
if {[isEagle]} then {
proc getBuildDirectory {} {
return [file join [file dirname $::path] bin \
[expr {[haveConstraint imageRuntime40] ? "2010" : "2008"}] \
$::test_configuration bin]
}
proc getBuildFileName { fileName } {
return [file nativename \
[file join [getBuildDirectory] [file tail $fileName]]]
}
|
> > > > > > > > > > > | | > > > > | > |
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
if {[isEagle]} then {
proc getBuildDirectory {} {
#
# NOTE: See if the "native" runtime option has been added. If so, use the
# directory for the mixed-mode assembly. To enable this option via
# the command line, enter a command similar to the following (all on
# one line):
#
# EagleShell.exe -preInitialize
# "object invoke Interpreter.GetActive AddRuntimeOption native"
# -file .\path\to\all.eagle
#
if {[object invoke Interpreter.GetActive HasRuntimeOption native]} then {
return [file join [file dirname $::path] bin \
[expr {[haveConstraint imageRuntime40] ? "2010" : "2008"}] \
[machineToPlatform $::tcl_platform(machine)] $::test_configuration]
} else {
return [file join [file dirname $::path] bin \
[expr {[haveConstraint imageRuntime40] ? "2010" : "2008"}] \
$::test_configuration bin]
}
}
proc getBuildFileName { fileName } {
return [file nativename \
[file join [getBuildDirectory] [file tail $fileName]]]
}
|