Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add detailed comments on the 'getAppDomainPreamble' unit test infrastructure procedure and its role in running tests that require an isolated application domain. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
295690bb913be765e0068a4ed3c76be3 |
| User & Date: | mistachkin 2011-10-11 12:13:56.386 |
Context
|
2011-10-13
| ||
| 06:19 | Both BOOLEAN and BOOL should end up being presented as the System.Boolean CLR type. Fix for ticket [544dba0a2f]. check-in: 453dc69391 user: mistachkin tags: trunk | |
|
2011-10-11
| ||
| 12:13 | Add detailed comments on the 'getAppDomainPreamble' unit test infrastructure procedure and its role in running tests that require an isolated application domain. check-in: 295690bb91 user: mistachkin tags: trunk | |
| 07:21 | Merge all fixes, enhancements, and tests related to ticket [343d392b51] into trunk. check-in: fc49363310 user: mistachkin tags: trunk | |
Changes
Changes to Tests/common.eagle.
| ︙ | ︙ | |||
152 153 154 155 156 157 158 159 160 161 162 163 164 165 |
proc getBinaryFileName { fileName } {
return [file nativename \
[file join [getBinaryDirectory] [file tail $fileName]]]
}
proc getAppDomainPreamble { {prefix ""} {suffix ""} } {
return [uplevel 1 [list subst [appendArgs $prefix {
if {[hasRuntimeOption native]} then {
object invoke Interpreter.GetActive AddRuntimeOption native
}
set ::path {$::path}
set ::test_year {[getBuildYear]}
| > > > > > > > > > > > > > > > > > > > | 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 |
proc getBinaryFileName { fileName } {
return [file nativename \
[file join [getBinaryDirectory] [file tail $fileName]]]
}
proc getAppDomainPreamble { {prefix ""} {suffix ""} } {
#
# NOTE: This procedure returns a test setup script suitable for evaluation
# by a test interpreter created in an isolated application domain.
# The script being returned will be surrounded by the prefix and
# suffix "script fragments" specified by the caller, if any. The
# entire script being returned will be substituted via [subst], in
# the context of the caller. This step is necessary so that some
# limited context information, primarily related to the test build
# directory, can be transferred to the interpreter in the isolated
# application domain, making it able to successfully run tests that
# require one or more of the files in the build directory. Callers
# to this procedure should keep in mind that the test script being
# returned cannot only rely on any script library procedures not
# included in the EagleLibrary package (i.e. "init.eagle"). Also,
# all variable references and all "nested" commands (i.e. those in
# square brackets), unless they are specially quoted, will end up
# being evaluated in the context of the calling interpreter and not
# the test interpreter created in the isolated application domain.
#
return [uplevel 1 [list subst [appendArgs $prefix {
if {[hasRuntimeOption native]} then {
object invoke Interpreter.GetActive AddRuntimeOption native
}
set ::path {$::path}
set ::test_year {[getBuildYear]}
|
| ︙ | ︙ | |||
406 407 408 409 410 411 412 |
#
# NOTE: Open the database connection now, placing the opaque handle value
# into the variable specified by the caller.
#
set db [sql open -type SQLite [subst $connection]]
}
| | | 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 |
#
# NOTE: Open the database connection now, placing the opaque handle value
# into the variable specified by the caller.
#
set db [sql open -type SQLite [subst $connection]]
}
proc cleanupDb { fileName {varName db} } {
#
# NOTE: Refer to the specified variable (e.g. "db") in the context of the
# caller. The handle to the opened database is stored there.
#
upvar 1 $varName db
#
|
| ︙ | ︙ |