Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Pickup Eagle script library fixes from upstream. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9e66a41b59fe28475a0caa103db53282 |
| User & Date: | mistachkin 2016-03-24 20:42:23 |
Context
|
2016-03-24
| ||
| 20:42 | Avoid calling Win32 specific SQLite APIs on non-Windows platforms. check-in: 70d83a095a user: mistachkin tags: trunk | |
| 20:42 | Pickup Eagle script library fixes from upstream. check-in: 9e66a41b59 user: mistachkin tags: trunk | |
| 04:59 | In the batch build tool, add support for per-configuration MSBuild properties. Use them to enable all the typical diagnostic features in the Mono debug builds. check-in: 4e85b70ca1 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Test1.0/epilogue.eagle.
123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 |
$operationCount \n]
unset operationCount
#
# NOTE: Show the current state of the memory.
#
catch {debug memory} memory
tputs $test_channel [appendArgs "---- ending memory: " \
[formatListAsDict $memory <none>] \n]
unset memory
#
# NOTE: Show the current state of the native stack.
#
catch {debug stack true} stack
tputs $test_channel [appendArgs "---- ending stack: " \
[formatListAsDict $stack <none>] \n]
unset stack
#
# NOTE: Check for and display any duplicate test names that we found. In
# theory, this checking may produce false positives if a test file
# (or the entire test suite) is run multiple times without resetting
|
| > | | > | |
123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
$operationCount \n]
unset operationCount
#
# NOTE: Show the current state of the memory.
#
set memory(0) [catch {debug memory} memory(1)]
tputs $test_channel [appendArgs "---- ending memory: " \
[formatListAsDict [expr {$memory(0) == 0 ? $memory(1) : ""}] \
<none>] \n]
unset memory
#
# NOTE: Show the current state of the native stack.
#
set stack(0) [catch {debug stack true} stack(1)]
tputs $test_channel [appendArgs "---- ending stack: " \
[formatListAsDict [expr {$stack(0) == 0 ? $stack(1) : ""}] \
<none>] \n]
unset stack
#
# NOTE: Check for and display any duplicate test names that we found. In
# theory, this checking may produce false positives if a test file
# (or the entire test suite) is run multiple times without resetting
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 |
tputs $test_channel [appendArgs "---- threadId: " \
[info tid] \n]
tputs $test_channel [appendArgs "---- processors: " \
[info processors] \n]
if {[llength [info commands object]] > 0} then {
catch {object invoke Console.InputEncoding WebName} encoding
} else {
set encoding unavailable
}
tputs $test_channel [appendArgs "---- input encoding: " \
$encoding \n]
if {[llength [info commands object]] > 0} then {
catch {object invoke Console.OutputEncoding WebName} encoding
} else {
set encoding unavailable
}
tputs $test_channel [appendArgs "---- output encoding: " \
$encoding \n]
unset encoding
catch {host query} host
tputs $test_channel [appendArgs "---- host query: " \
[formatListAsDict $host <none>] \n]
unset host
catch {debug memory} memory
tputs $test_channel [appendArgs "---- starting memory: " \
[formatListAsDict $memory <none>] \n]
unset memory
catch {debug stack true} stack
tputs $test_channel [appendArgs "---- starting stack: " \
[formatListAsDict $stack <none>] \n]
unset stack
catch {file drive} drive
tputs $test_channel [appendArgs "---- system drive: " \
[formatListAsDict $drive <none>] \n]
unset drive
}
tputs $test_channel [appendArgs "---- executable: \"" \
$bin_file \"\n]
|
> | > < > | > | > < > | | > | | > | | > | | > | |
767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 |
tputs $test_channel [appendArgs "---- threadId: " \
[info tid] \n]
tputs $test_channel [appendArgs "---- processors: " \
[info processors] \n]
if {[llength [info commands object]] > 0} then {
set encoding(0) [catch {
object invoke Console.InputEncoding WebName
} encoding(1)]
} else {
set encoding(0) 0; set encoding(1) unavailable
}
tputs $test_channel [appendArgs "---- input encoding: " \
[expr {$encoding(0) == 0 ? $encoding(1) : "<none>"}] \n]
if {[llength [info commands object]] > 0} then {
set encoding(0) [catch {
object invoke Console.OutputEncoding WebName
} encoding(1)]
} else {
set encoding(0) 0; set encoding(1) unavailable
}
tputs $test_channel [appendArgs "---- output encoding: " \
[expr {$encoding(0) == 0 ? $encoding(1) : "<none>"}] \n]
unset encoding
set host(0) [catch {host query} host(1)]
tputs $test_channel [appendArgs "---- host query: " \
[formatListAsDict [expr {$host(0) == 0 ? $host(1) : ""}] \
<none>] \n]
unset host
set memory(0) [catch {debug memory} memory(1)]
tputs $test_channel [appendArgs "---- starting memory: " \
[formatListAsDict [expr {$memory(0) == 0 ? $memory(1) : ""}] \
<none>] \n]
unset memory
set stack(0) [catch {debug stack true} stack(1)]
tputs $test_channel [appendArgs "---- starting stack: " \
[formatListAsDict [expr {$stack(0) == 0 ? $stack(1) : ""}] \
<none>] \n]
unset stack
set drive(0) [catch {file drive} drive(1)]
tputs $test_channel [appendArgs "---- system drive: " \
[formatListAsDict [expr {$drive(0) == 0 ? $drive(1) : ""}] \
<none>] \n]
unset drive
}
tputs $test_channel [appendArgs "---- executable: \"" \
$bin_file \"\n]
|