Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Simplify the getBuildBaseDirectory test suite infrastructure helper procedure. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
e34afc81002ef8f2a4e7bb9730fef7e1 |
| User & Date: | mistachkin 2013-02-27 07:08:23 |
Context
|
2013-02-27
| ||
| 07:26 | Update SQLite core library to the latest trunk. check-in: 956d686069 user: mistachkin tags: trunk | |
| 07:08 | Simplify the getBuildBaseDirectory test suite infrastructure helper procedure. check-in: e34afc8100 user: mistachkin tags: trunk | |
| 07:02 | Enhance detection and handling of multiple sets of build output by the test suite. Update Eagle script library in externals to latest trunk. check-in: 7197d1e4c5 user: mistachkin tags: trunk | |
Changes
Changes to Tests/common.eagle.
202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 |
#
if {[info exists ::build_base_directory] && \
[string length $::build_base_directory] > 0} then {
#
# NOTE: The location of the build base directory has been overridden;
# therefore, use it verbatim.
#
set path $::build_base_directory
} elseif {[info exists ::common_directory] && \
[string length $::common_directory] > 0} then {
#
# NOTE: Next, fallback to the parent directory of the one containing
# this file (i.e. "common.eagle"), if available.
#
set path [file dirname $::common_directory]
} else {
#
# NOTE: Finally, fallback to the parent directory of the EagleTest
# path. The EagleTest package guarantees that this variable
# will be set to the directory containing the first file to
# execute the [runTestPrologue] script library procedure.
#
set path [file dirname $::path]
}
}
proc joinBuildDirectory { path native year platform configuration } {
#
# NOTE: Figure out and then return the fully qualified path to the build
# directory based on all the arguments provided by our caller.
|
| | | > | > > > > > > |
202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 |
#
if {[info exists ::build_base_directory] && \
[string length $::build_base_directory] > 0} then {
#
# NOTE: The location of the build base directory has been overridden;
# therefore, use it verbatim.
#
return $::build_base_directory
} elseif {[info exists ::common_directory] && \
[string length $::common_directory] > 0} then {
#
# NOTE: Next, fallback to the parent directory of the one containing
# this file (i.e. "common.eagle"), if available.
#
return [file dirname $::common_directory]
} elseif {[info exists ::path] && \
[string length $::path] > 0} then {
#
# NOTE: Finally, fallback to the parent directory of the EagleTest
# path. The EagleTest package guarantees that this variable
# will be set to the directory containing the first file to
# execute the [runTestPrologue] script library procedure.
#
return [file dirname $::path]
} else {
#
# NOTE: No path is available, return an empty string. This point
# should not be reached.
#
return ""
}
}
proc joinBuildDirectory { path native year platform configuration } {
#
# NOTE: Figure out and then return the fully qualified path to the build
# directory based on all the arguments provided by our caller.
|