Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Enable easier use of Managed Debugging Assistants during the test suite. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3d3dcd4a76cc43eee5ee579075340c0c |
| User & Date: | mistachkin 2013-01-05 20:40:47 |
Context
|
2013-01-05
| ||
| 21:57 | Add another MDA to the example configuration file. check-in: bae364e5e7 user: mistachkin tags: trunk | |
| 20:40 | Enable easier use of Managed Debugging Assistants during the test suite. check-in: 3d3dcd4a76 user: mistachkin tags: trunk | |
|
2013-01-04
| ||
| 20:47 | Update SQLite to the latest trunk code. check-in: d832fb7645 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/bin/EagleShell.exe.mda.config.
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
..
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: $
*
-->
<mdaConfig xmlns="http://schemas.microsoft.com/CLR/2004/10/mda">
<assistants>
<!--
<bindingFailure />
<callbackOnCollectedDelegate listSize="50" />
<contextSwitchDeadlock enable="true" />
<dangerousThreadingAPI />
<dateTimeInvalidLocalFormat />
<dirtyCastAndCallOnInterface />
<disconnectedContext enable="true" />
................................................................................
<overlappedFreeError />
<pInvokeLog>
<filter>
<match dllName="advapi32.dll" />
<match dllName="advpack.dll" />
<match dllName="kernel32.dll" />
<match dllName="mscoree.dll" />
<match dllName="ntdll.dll" />
<match dllName="shell32.dll" />
<match dllName="user32.dll" />
<match dllName="wintrust.dll" />
</filter>
</pInvokeLog>
<pInvokeStackImbalance />
<raceOnRCWCleanup />
<reentrancy />
<releaseHandleFailed />
<reportAvOnComRelease allowAv="true" />
<streamWriterBufferedDataLost />
<virtualCERCall />
-->
</assistants>
</mdaConfig>
|
|
>
|
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
..
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: $
*
-->
<mdaConfig xmlns="http://schemas.microsoft.com/CLR/2004/10/mda">
<assistants>
<!--++
<bindingFailure />
<callbackOnCollectedDelegate listSize="50" />
<contextSwitchDeadlock enable="true" />
<dangerousThreadingAPI />
<dateTimeInvalidLocalFormat />
<dirtyCastAndCallOnInterface />
<disconnectedContext enable="true" />
................................................................................
<overlappedFreeError />
<pInvokeLog>
<filter>
<match dllName="advapi32.dll" />
<match dllName="advpack.dll" />
<match dllName="kernel32.dll" />
<match dllName="mscoree.dll" />
<match dllName="msvcrt.dll" />
<match dllName="ntdll.dll" />
<match dllName="shell32.dll" />
<match dllName="user32.dll" />
<match dllName="wintrust.dll" />
</filter>
</pInvokeLog>
<pInvokeStackImbalance />
<raceOnRCWCleanup />
<reentrancy />
<releaseHandleFailed />
<reportAvOnComRelease allowAv="true" />
<streamWriterBufferedDataLost />
<virtualCERCall />
++-->
</assistants>
</mdaConfig>
|
Changes to Tests/common.eagle.
468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 ... 515 516 517 518 519 520 521 522 523 524 525 526 527 528 .... 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1616 1617 1618 1619 |
return [uplevel 1 [list subst [appendArgs $prefix {
if {[hasRuntimeOption native]} then {
object invoke Interpreter.GetActive AddRuntimeOption native
}
} [getTestOverridesPreamble [list path test_channel]] $suffix]]]
}
proc tryCopyBuildFile { fileName } {
#
# NOTE: If we cannot copy the assembly then it is probably already loaded.
#
set sourceFileName [getBuildFileName $fileName]
if {![file exists $sourceFileName]} then {
tputs $::test_channel [appendArgs \
"---- skipped copying build file \"" $sourceFileName \
"\", it does not exist\n"]
return
}
set targetFileName [getBinaryFileName $fileName]
if {[catch {
file copy -force $sourceFileName $targetFileName}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied build file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
................................................................................
tputs $::test_channel [appendArgs \
"---- deleted binary file \"" $fileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to delete binary file \"" $fileName \"\n]
}
}
proc tryCopyAssembly { fileName {pdb true} } {
tryCopyBuildFile $fileName
if {$pdb} then {
tryCopyBuildFile [appendArgs [file rootname $fileName] .pdb]
}
................................................................................
#
# NOTE: Skip trying to load any files if we are so instructed.
#
if {![info exists ::no(loadSqliteFiles)]} then {
tryLoadAssembly System.Data.SQLite.dll
tryLoadAssembly System.Data.SQLite.Linq.dll
}
}
catch {
tputs $::test_channel [appendArgs \
"---- file version of \"sqlite3.dll\"... " \
[file version [getBinaryFileName sqlite3.dll]] \n]
}
|
| > | < > > > > | > > > > > > > > > > > > > > > > > > > > > > > > > | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > |
468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 ... 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 .... 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 |
return [uplevel 1 [list subst [appendArgs $prefix {
if {[hasRuntimeOption native]} then {
object invoke Interpreter.GetActive AddRuntimeOption native
}
} [getTestOverridesPreamble [list path test_channel]] $suffix]]]
}
proc tryCopyBinaryFile { fileName {newFileName ""} } {
set sourceFileName [getBinaryFileName $fileName]
if {![file exists $sourceFileName]} then {
tputs $::test_channel [appendArgs \
"---- skipped copying binary file \"" $sourceFileName \
"\", it does not exist\n"]
return
}
if {[string length $newFileName] > 0} then {
set targetFileName [getBuildFileName $newFileName]
} else {
set targetFileName [getBuildFileName $fileName]
}
if {[catch {
file copy -force $sourceFileName $targetFileName}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied binary file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to copy binary file from \"" $sourceFileName \
"\" to \"" $targetFileName \"\n]
}
}
proc tryCopyBuildFile { fileName {newFileName ""} } {
set sourceFileName [getBuildFileName $fileName]
if {![file exists $sourceFileName]} then {
tputs $::test_channel [appendArgs \
"---- skipped copying build file \"" $sourceFileName \
"\", it does not exist\n"]
return
}
if {[string length $newFileName] > 0} then {
set targetFileName [getBinaryFileName $newFileName]
} else {
set targetFileName [getBinaryFileName $fileName]
}
if {[catch {
file copy -force $sourceFileName $targetFileName}] == 0} then {
tputs $::test_channel [appendArgs \
"---- copied build file from \"" $sourceFileName "\" to \"" \
$targetFileName \"\n]
} else {
................................................................................
tputs $::test_channel [appendArgs \
"---- deleted binary file \"" $fileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to delete binary file \"" $fileName \"\n]
}
}
proc tryDeleteBuildFile { fileName } {
set fileName [getBuildFileName $fileName]
if {![file exists $fileName]} then {
tputs $::test_channel [appendArgs \
"---- skipped deleting build file \"" $fileName \
"\", it does not exist\n"]
return
}
if {[catch {file delete $fileName}] == 0} then {
tputs $::test_channel [appendArgs \
"---- deleted build file \"" $fileName \"\n]
} else {
tputs $::test_channel [appendArgs \
"---- failed to delete build file \"" $fileName \"\n]
}
}
proc tryCopyAssembly { fileName {pdb true} } {
tryCopyBuildFile $fileName
if {$pdb} then {
tryCopyBuildFile [appendArgs [file rootname $fileName] .pdb]
}
................................................................................
#
# NOTE: Skip trying to load any files if we are so instructed.
#
if {![info exists ::no(loadSqliteFiles)]} then {
tryLoadAssembly System.Data.SQLite.dll
tryLoadAssembly System.Data.SQLite.Linq.dll
}
#
# NOTE: Skip trying to delete external files if we are so instructed.
#
if {![info exists ::no(deleteSqliteExternalFiles)]} then {
tryDeleteBuildFile Installer.exe.mda.config
tryDeleteBuildFile test.exe.mda.config
tryDeleteBuildFile testlinq.exe.mda.config
}
#
# NOTE: Skip trying to copy external files if we are so instructed.
#
if {![info exists ::no(copySqliteExternalFiles)]} then {
#
# NOTE: Copy the MDA configuration file for the Eagle shell to the
# build output directory; however, use the name of the legacy
# test executable. This will make sure that the legacy tests
# run with the same set of MDAs configured.
#
tryCopyBinaryFile EagleShell.exe.mda.config Installer.exe.mda.config
tryCopyBinaryFile EagleShell.exe.mda.config test.exe.mda.config
tryCopyBinaryFile EagleShell.exe.mda.config testlinq.exe.mda.config
}
}
catch {
tputs $::test_channel [appendArgs \
"---- file version of \"sqlite3.dll\"... " \
[file version [getBinaryFileName sqlite3.dll]] \n]
}
|