Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update Eagle in externals to the beta 36 release. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
9ef15e9c9512a74dedbc0b3929f98f0d |
| User & Date: | mistachkin 2016-06-17 17:35:19 |
Context
|
2016-06-18
| ||
| 21:34 | Add IsReadOnly method to the SQLiteConnection class. check-in: c4f8b9e65b user: mistachkin tags: trunk | |
|
2016-06-17
| ||
| 17:35 | Update Eagle in externals to the beta 36 release. check-in: 9ef15e9c95 user: mistachkin tags: trunk | |
|
2016-06-15
| ||
| 20:25 | Add test case for ticket [2abbf2c244]. check-in: 8f68a04dcc user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/bin/Eagle.dll.
cannot compute difference between binary files
Changes to Externals/Eagle/bin/EagleShell.exe.
cannot compute difference between binary files
Changes to Externals/Eagle/bin/EagleShell32.exe.
cannot compute difference between binary files
Changes to Externals/Eagle/bin/x64/Spilornis.dll.
cannot compute difference between binary files
Changes to Externals/Eagle/bin/x86/Spilornis.dll.
cannot compute difference between binary files
Changes to Externals/Eagle/lib/Eagle1.0/init.eagle.
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
....
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
|
#
# NOTE: No, we did not alter the search path.
#
return false
}
proc execShell { options args } {
set command [list exec]
if {[llength $options] > 0} then {eval lappend command $options}
lappend command --
#
# HACK: Assume that Mono is somewhere along the PATH.
#
if {[isMono]} then {
lappend command mono \
[appendArgs \" [file nativename [info nameofexecutable]] \"]
} else {
lappend command [info nameofexecutable]
}
if {[llength $args] > 0} then {eval lappend command $args}
return [uplevel 1 $command]
}
proc lshuffle { list } {
#
# NOTE: This code for this algorithm was stolen from the Tcl library
# struct package and modified to conform with the Eagle style
................................................................................
}
}
return $result
}
proc loadWordTcl { directory } {
uplevel 1 [list source [file join $directory word.tcl]]
}
#
# NOTE: Add script library files borrowed from native Tcl.
#
if {![interp issafe]} then {
|
>
>
>
>
>
>
|
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
....
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
|
#
# NOTE: No, we did not alter the search path.
#
return false
}
proc execShell { options args } {
#
# NOTE: Start out with just the base [exec] command.
#
set command [list exec]
#
# NOTE: Add options for the [exec] command, if any.
#
if {[llength $options] > 0} then {
eval lappend command $options
}
#
# NOTE: Always add the end-of-options marker.
#
lappend command --
#
# HACK: Assume that Mono is somewhere along the PATH.
#
if {[isMono]} then {
lappend command mono \
[appendArgs \" [file nativename [info nameofexecutable]] \"]
} else {
lappend command [info nameofexecutable]
}
#
# NOTE: If possible, check if the current interpreter has security
# enabled; if so, add the appropriate command line option for
# the sub-process.
#
if {[llength [info commands object]] > 0} then {
if {[catch {
object invoke -flags +NonPublic Interpreter.GetActive HasSecurity
} security] == 0 && $security} then {
lappend command -security true
}
}
#
# NOTE: Add command line arguments to the shell command, if any.
#
if {[llength $args] > 0} then {
eval lappend command $args
}
#
# NOTE: Finally, execute the resulting [exec] command in the context
# of the caller, returning its result.
#
return [uplevel 1 $command]
}
proc lshuffle { list } {
#
# NOTE: This code for this algorithm was stolen from the Tcl library
# struct package and modified to conform with the Eagle style
................................................................................
}
}
return $result
}
proc loadWordTcl { directory } {
if {([string length $directory] == 0 || $directory eq ".") && \
[info exists ::tcl_library]} then {
#
# NOTE: The directory specified by the caller contains no useful
# information, use the Tcl library directory instead.
#
set directory $::tcl_library
}
uplevel 1 [list source [file join $directory word.tcl]]
}
#
# NOTE: Add script library files borrowed from native Tcl.
#
if {![interp issafe]} then {
|
Changes to Externals/Eagle/lib/Eagle1.0/shell.eagle.
52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 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 |
proc #support {} {
# <help>
# Shows the requirements for obtaining commercial support and/or
# redirects to the appropriate web site using the default browser.
# </help>
if {[catch {
package require Licensing.Enterprise
set fileName(1) [certificate current]
if {[string length $fileName(1)] == 0} then {
error "No certificate file is available."
}
set certificate [certificate import -alias $fileName(1)]
if {[string length $certificate] == 0} then {
error [appendArgs \
"No certificate is available, current file \"" \
$fileName(1) "\" could not be imported."]
}
if {[catch {
certificate flags -hasflags S -hasall -strict $certificate
} error(2)]} then {
error [appendArgs \
"Support is not enabled for certificate \"" \
[$certificate Id] " - " [$certificate EntityName] \
"\", the original error message was: \{" $error(2) \
\}.]
}
set uri [$certificate -create -alias Support]
if {[string length $uri] == 0} then {
error [appendArgs \
"No support information found in certificate \"" \
[$certificate Id] " - " [$certificate EntityName] \".]
}
if {[$uri Scheme] ni [list http https]} then {
error [appendArgs \
"Support URI scheme \"" [$uri Scheme] \
"\" in certificate \"" [$certificate Id] " - " \
[$certificate EntityName] "\" is not supported, " \
"must be \"http\" or \"https\"."]
}
exec -shell [$uri ToString] &
} error(1)]} then {
set fileName(2) [file tempname]; set fileData ""
foreach varName [lsort [info vars]] {
if {$varName in [list fileData]} then {
continue
}
if {$varName eq "certificate" && \
[string length $certificate] > 0} then {
append fileData [appendArgs \n \
[list array set certificate \
[$certificate -flags +NonPublic \
ToDictionary.KeysAndValuesToString \
null false]]]
continue
}
if {[array exists $varName]} then {
append fileData [appendArgs \n \
[list array set $varName [array get $varName]]]
} else {
append fileData [appendArgs \n \
[list set $varName [set $varName]]]
}
}
append fileData \n; writeFile $fileName(2) $fileData
set ::eagle_shell(errorFileName) $fileName(2)
error [appendArgs \
"\n\nIn order to obtain commercial support, at least " \
"one of the\nfollowing requirements must be met:\n\n" \
"\t1. Valid, non-expired commercial license agreement\n" \
"\t for Eagle Enterprise Edition.\n\n" \
"\t2. Valid, non-expired commercial support contract\n" \
"\t for Eagle Standard Edition.\n\n" \
"The original error information was saved to the file:\n\n" \
[string repeat - 60] \n $fileName(2) \n [string repeat - 60] \
"\n\nPlease provide this file when contacting support."]
}
}
###########################################################################
############################# END Eagle ONLY ##############################
###########################################################################
} else {
###########################################################################
|
< | < | < < < > > | < < < < < < < < | < < < < < < < < | < > | | < < < > > > | | < < < < < < | < < | | | | | < < < < < < < < < < < | | | | | | | | | | | | | | | | | | | | < |
52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 |
proc #support {} {
# <help>
# Shows the requirements for obtaining commercial support and/or
# redirects to the appropriate web site using the default browser.
# </help>
if {[catch {package require Licensing.Core} error(1)] == 0} then {
#
# NOTE: Use the command provided by the "Core" plugin to obtain
# the support URI.
#
if {[catch {set uri [support]} error(2)] == 0} then {
#
# NOTE: Make sure the URI is actually valid.
#
if {[string length $uri] > 0} then {
exec -shell $uri &; return
} else {
set error(3) "invalid support URI was returned"
}
}
}
set fileName [file tempname]; set fileData ""
foreach varName [lsort [info vars]] {
if {$varName in [list fileData]} then {
continue
}
if {[array exists $varName]} then {
append fileData [appendArgs \n \
[list array set $varName [array get $varName]]]
} else {
append fileData [appendArgs \n \
[list set $varName [set $varName]]]
}
}
append fileData \n; writeFile $fileName $fileData
set ::eagle_shell(errorFileName) $fileName
error [appendArgs \
"\n\nIn order to obtain commercial support, at least " \
"one of the\nfollowing requirements must be met:\n\n" \
"\t1. Valid, non-expired commercial license agreement\n" \
"\t for Eagle Enterprise Edition.\n\n" \
"\t2. Valid, non-expired commercial support contract\n" \
"\t for Eagle Standard Edition.\n\n" \
"The original error information was saved to the file:\n\n" \
[string repeat - 60] \n $fileName \n [string repeat - 60] \
"\n\nPlease provide this file when contacting support."]
}
###########################################################################
############################# END Eagle ONLY ##############################
###########################################################################
} else {
###########################################################################
|
Changes to Externals/Eagle/lib/Eagle1.0/test.eagle.
1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 .... 3133 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 .... 3288 3289 3290 3291 3292 3293 3294 3295 3296 3297 3298 3299 3300 3301 |
set code 1
}
#
# NOTE: Display and/or log the results for the test that we just
# completed.
#
if {[shouldWriteTestData]} then {
tresult $code $result
} else {
tlog $result
}
#
# NOTE: If the test failed with an actual error (i.e. not just a
................................................................................
tqputs $::test_channel \
"---- removed \"testConstraint\" alias\n"
}
}
}
}
proc shouldWriteTestData {} {
if {[llength [info commands object]] > 0 && [catch {
object invoke -flags +NonPublic \
Eagle._Components.Private.TestOps ShouldWriteTestData ""
} writeTestData] == 0 && $writeTestData} then {
return false
}
return true
}
................................................................................
"---- EnumOps cleanup results: " $result \n]
catch {uplevel 1 [list object invoke -flags +NonPublic \
Eagle._Components.Private.HelpOps ClearHelpCache]} result
tputs $channel [appendArgs \
"---- HelpOps cleanup results: " $result \n]
}
proc evalWithTimeout { script {milliseconds 2000} {resultVarName ""} } {
#
# NOTE: Verify that the number of milliseconds requested is greater than
# zero.
#
|
| | | > > > > > > |
1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 .... 3133 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 .... 3288 3289 3290 3291 3292 3293 3294 3295 3296 3297 3298 3299 3300 3301 3302 3303 3304 3305 3306 3307 |
set code 1
}
#
# NOTE: Display and/or log the results for the test that we just
# completed.
#
if {[shouldWriteTestData $code]} then {
tresult $code $result
} else {
tlog $result
}
#
# NOTE: If the test failed with an actual error (i.e. not just a
................................................................................
tqputs $::test_channel \
"---- removed \"testConstraint\" alias\n"
}
}
}
}
proc shouldWriteTestData { code } {
if {[llength [info commands object]] > 0 && [catch {
object invoke -flags +NonPublic \
Eagle._Components.Private.TestOps ShouldWriteTestData "" $code
} writeTestData] == 0 && $writeTestData} then {
return false
}
return true
}
................................................................................
"---- EnumOps cleanup results: " $result \n]
catch {uplevel 1 [list object invoke -flags +NonPublic \
Eagle._Components.Private.HelpOps ClearHelpCache]} result
tputs $channel [appendArgs \
"---- HelpOps cleanup results: " $result \n]
catch {uplevel 1 [list object invoke -flags +NonPublic \
Eagle._Components.Private.StringOps ClearPreambleEncodings]} result
tputs $channel [appendArgs \
"---- StringOps cleanup results: " $result \n]
}
proc evalWithTimeout { script {milliseconds 2000} {resultVarName ""} } {
#
# NOTE: Verify that the number of milliseconds requested is greater than
# zero.
#
|
Changes to Externals/Eagle/lib/Test1.0/constraints.eagle.
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
....
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
|
proc getKnownCompileOptions {} {
return [list \
APPDOMAINS APPROVED_VERBS ARM ARM64 ASSEMBLY_RELEASE \
ASSEMBLY_STRONG_NAME_TAG ASSEMBLY_TAG ASSEMBLY_TEXT ASSEMBLY_URI \
BREAK_ON_EXITING BREAKPOINTS CACHE_ARGUMENT_TOSTRING \
CACHE_ARGUMENTLIST_TOSTRING CACHE_DICTIONARY CACHE_RESULT_TOSTRING \
CACHE_STATISTICS CACHE_STRINGLIST_TOSTRING CALLBACK_QUEUE CAS_POLICY \
CODE_ANALYSIS COM_TYPE_CACHE CONSOLE DAEMON DATA DEAD_CODE DEBUG \
DEBUGGER DEBUGGER_ARGUMENTS DEBUGGER_ENGINE DEBUGGER_EXECUTE \
DEBUGGER_EXPRESSION DEBUGGER_VARIABLE DEBUG_TRACE DEBUG_WRITE DRAWING \
DYNAMIC EAGLE EMBEDDED_LIBRARY EMBED_CERTIFICATE EXECUTE_CACHE \
EXPRESSION_FLAGS FAST_ERRORCODE FAST_ERRORINFO FOR_TEST_USE_ONLY \
HAVE_SIZEOF HISTORY IA64 INTERACTIVE_COMMANDS INTERNALS_VISIBLE_TO \
ISOLATED_INTERPRETERS ISOLATED_PLUGINS LIBRARY LICENSING \
LIMITED_EDITION LIST_CACHE MONO MONO_BUILD MONO_HACKS MONO_LEGACY \
NATIVE NATIVE_PACKAGE NATIVE_THREAD_ID NATIVE_UTILITY \
NATIVE_UTILITY_BSTR NETWORK NET_20 NET_20_FAST_ENUM NET_20_ONLY \
NET_20_SP1 NET_20_SP2 NET_30 NET_35 NET_40 NET_45 NET_451 NET_452 \
NET_46 NET_461 NON_WORKING_CODE NOTIFY NOTIFY_ACTIVE NOTIFY_ARGUMENTS \
NOTIFY_EXCEPTION NOTIFY_EXECUTE NOTIFY_EXPRESSION NOTIFY_GLOBAL \
NOTIFY_OBJECT OBSOLETE OBFUSCATION OFFICIAL PARSE_CACHE PATCHLEVEL \
PLUGIN_COMMANDS POLICY_TRACE PREVIOUS_RESULT RANDOMIZE_ID REMOTING \
SAMPLE SECURITY SERIALIZATION SHARED_ID_POOL SHELL SOURCE_ID \
SOURCE_TIMESTAMP STATIC TCL TCL_KITS TCL_THREADED TCL_THREADS \
TCL_UNICODE TCL_WRAPPER TEST THREADING THROW_ON_DISPOSED TRACE \
TYPE_CACHE UNIX USE_APPDOMAIN_FOR_ID USE_NAMESPACES VERBOSE WEB \
WINDOWS WINFORMS WIX_30 WIX_35 WIX_36 WIX_37 WIX_38 WIX_39 WIX_310 \
X64 X86 XML]
}
proc getKnownMonoVersions { {force false} } {
#
# NOTE: This job of this procedure is to return the list of "known"
................................................................................
}
if {[isEagle]} then {
###########################################################################
############################ BEGIN Eagle ONLY #############################
###########################################################################
proc checkForSoftwareUpdateTrust { channel } {
tputs $channel "---- checking for software update trust... "
if {[llength [info commands uri]] > 0 && \
[catch {uri softwareupdates} trust] == 0 && \
$trust eq "software update certificate is trusted"} then {
#
|
>
|
|
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
....
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
|
proc getKnownCompileOptions {} {
return [list \
APPDOMAINS APPROVED_VERBS ARM ARM64 ASSEMBLY_RELEASE \
ASSEMBLY_STRONG_NAME_TAG ASSEMBLY_TAG ASSEMBLY_TEXT ASSEMBLY_URI \
BREAK_ON_EXITING BREAKPOINTS CACHE_ARGUMENT_TOSTRING \
CACHE_ARGUMENTLIST_TOSTRING CACHE_DICTIONARY CACHE_RESULT_TOSTRING \
CACHE_STATISTICS CACHE_STRINGLIST_TOSTRING CALLBACK_QUEUE CAS_POLICY \
CERTIFICATE_PLUGIN CERTIFICATE_POLICY CERTIFICATE_RENEWAL \
CODE_ANALYSIS COM_TYPE_CACHE CONSOLE DAEMON DATA DEAD_CODE DEBUG \
DEBUGGER DEBUGGER_ARGUMENTS DEBUGGER_ENGINE DEBUGGER_EXECUTE \
DEBUGGER_EXPRESSION DEBUGGER_VARIABLE DEBUG_TRACE DEBUG_WRITE DRAWING \
DYNAMIC EAGLE EMBEDDED_LIBRARY EMBED_CERTIFICATE EXECUTE_CACHE \
EXPRESSION_FLAGS FAST_ERRORCODE FAST_ERRORINFO FOR_TEST_USE_ONLY \
HAVE_SIZEOF HISTORY IA64 INTERACTIVE_COMMANDS INTERNALS_VISIBLE_TO \
ISOLATED_INTERPRETERS ISOLATED_PLUGINS LIBRARY LICENSING \
LICENSE_MANAGER LIMITED_EDITION LIST_CACHE MONO MONO_BUILD MONO_HACKS \
MONO_LEGACY NATIVE NATIVE_PACKAGE NATIVE_THREAD_ID NATIVE_UTILITY \
NATIVE_UTILITY_BSTR NETWORK NET_20 NET_20_FAST_ENUM NET_20_ONLY \
NET_20_SP1 NET_20_SP2 NET_30 NET_35 NET_40 NET_45 NET_451 NET_452 \
NET_46 NET_461 NON_WORKING_CODE NOTIFY NOTIFY_ACTIVE NOTIFY_ARGUMENTS \
NOTIFY_EXCEPTION NOTIFY_EXECUTE NOTIFY_EXPRESSION NOTIFY_GLOBAL \
NOTIFY_OBJECT OBSOLETE OBFUSCATION OFFICIAL PARSE_CACHE PATCHLEVEL \
PLUGIN_COMMANDS POLICY_TRACE PREVIOUS_RESULT RANDOMIZE_ID REMOTING \
SAMPLE SECURITY SERIALIZATION SHARED_ID_POOL SHELL SOURCE_ID \
SOURCE_TIMESTAMP STATIC TCL TCL_KITS TCL_THREADED TCL_THREADS \
TCL_UNICODE TCL_WRAPPER TEST TEST_PLUGIN THREADING THROW_ON_DISPOSED \
TRACE TYPE_CACHE UNIX USE_APPDOMAIN_FOR_ID USE_NAMESPACES VERBOSE WEB \
WINDOWS WINFORMS WIX_30 WIX_35 WIX_36 WIX_37 WIX_38 WIX_39 WIX_310 \
X64 X86 XML]
}
proc getKnownMonoVersions { {force false} } {
#
# NOTE: This job of this procedure is to return the list of "known"
................................................................................
}
if {[isEagle]} then {
###########################################################################
############################ BEGIN Eagle ONLY #############################
###########################################################################
proc checkForSecurity { channel } {
tputs $channel "---- checking for security... "
if {[catch {
object invoke -flags +NonPublic Interpreter.GetActive HasSecurity
} security] == 0} then {
if {$security} then {
addConstraint security.enabled
tputs $channel yes\n
} else {
addConstraint security.disabled
tputs $channel no\n
}
} else {
addConstraint security.unavailable
tputs $channel unavailable\n
}
}
proc checkForSoftwareUpdateTrust { channel } {
tputs $channel "---- checking for software update trust... "
if {[llength [info commands uri]] > 0 && \
[catch {uri softwareupdates} trust] == 0 && \
$trust eq "software update certificate is trusted"} then {
#
|
Changes to Externals/Eagle/lib/Test1.0/prologue.eagle.
1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 .... 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 .... 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 .... 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 .... 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 .... 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 .... 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 .... 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009 3010 3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 |
# Please do not move this "quietness" test constraint
# check as subsequent test constraints may rely on it
# when determining if a warning should be emitted.
#
if {![info exists no(quiet)]} then {
#
# NOTE: For tests "basic-1.36", "benchmark-1.*", "debug-1.3",
# "debug-1.4", "glob-99.*", "object-10.*", "perf-2.2",
# and various other places within the test suite code
# itself.
#
checkForQuiet $test_channel false
}
#
................................................................................
#
# NOTE: Has thread culture detection support been disabled?
#
if {![info exists no(threadCulture)]} then {
checkForThreadCulture $test_channel
}
#
# NOTE: Has software update trust detection support been disabled?
#
if {![info exists no(softwareUpdate)]} then {
checkForSoftwareUpdateTrust $test_channel
}
................................................................................
}
#
# NOTE: Has script debugger support been enabled (at compile-time)?
#
if {![info exists no(compileDebugger)]} then {
#
# NOTE: For tests "debug-1.1", "debug-2.1", "debug-3.1" and
# "debug-4.1".
#
checkForCompileOption $test_channel DEBUGGER
}
#
# NOTE: Has application domain management support been enabled (at
# compile-time)?
#
if {![info exists no(compileAppDomains)]} then {
#
................................................................................
if {![info exists no(compileWinForms)]} then {
#
# NOTE: For tests "object-10.21", "tclLoad-1.2", "winForms-*.*".
#
checkForCompileOption $test_channel WINFORMS
}
#
# NOTE: Has native code support been enabled (at compile-time)?
#
if {![info exists no(compileNative)]} then {
#
# NOTE: For tests "debug-3.2", "expr-3.2", and "host-1.1".
#
................................................................................
if {![info exists no(compileNetwork)]} then {
#
# NOTE: For tests "commands-1.4", "socket-1.*", "socket-2.1", and
# "socket-3.1".
#
checkForCompileOption $test_channel NETWORK
}
#
# NOTE: Has native Tcl support been enabled (at compile-time)?
#
if {![info exists no(compileTcl)]} then {
#
# NOTE: For tests "commands-1.1.*", "excel-2.2", "tclCancel-1.1",
................................................................................
}
}
#
# NOTE: Has custom test method support been disabled?
#
if {![info exists no(core)] && ![info exists no(test)]} then {
#
# NOTE: Has WriteHeader testing support been disabled?
#
if {![info exists no(testWriteHeader)]} then {
#
# NOTE: For test "host-1.5".
#
................................................................................
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestComplainCallbackThrow*
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestComplainCallbackNoThrow*
}
#
# NOTE: Has custom match mode testing been disabled?
#
if {![info exists no(testMatchMode)]} then {
#
# NOTE: For test "stringMatch-101.1".
................................................................................
if {![info exists no(native)]} then {
checkForNativeCode $test_channel
}
#
# NOTE: Check for various extra commands that may be present.
#
if {![info exists no(callbackCommand)]} then {
checkForCommand $test_channel callback
}
if {![info exists no(lgetCommand)]} then {
checkForCommand $test_channel lget
}
if {![info exists no(libraryCommand)]} then {
checkForCommand $test_channel library
}
if {![info exists no(objectCommand)]} then {
checkForCommand $test_channel object
}
if {![info exists no(socketCommand)]} then {
checkForCommand $test_channel socket
}
if {![info exists no(sqlCommand)]} then {
checkForCommand $test_channel sql
}
if {![info exists no(tclCommand)]} then {
checkForCommand $test_channel tcl
}
if {![info exists no(xmlCommand)]} then {
checkForCommand $test_channel xml
}
#
# NOTE: Has namespace detection support been disabled?
|
| > > > > > > > | | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > |
1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 .... 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 .... 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 .... 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 .... 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 1571 .... 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 .... 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 .... 3071 3072 3073 3074 3075 3076 3077 3078 3079 3080 3081 3082 3083 3084 3085 3086 3087 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098 3099 3100 3101 3102 3103 3104 3105 3106 3107 3108 3109 3110 3111 3112 3113 3114 3115 3116 3117 3118 3119 3120 3121 3122 3123 3124 3125 3126 3127 3128 3129 3130 3131 3132 3133 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 3151 3152 3153 3154 3155 3156 3157 3158 3159 3160 3161 3162 3163 3164 3165 3166 3167 3168 3169 3170 3171 3172 3173 3174 3175 3176 3177 3178 3179 3180 3181 3182 3183 3184 3185 3186 3187 |
# Please do not move this "quietness" test constraint
# check as subsequent test constraints may rely on it
# when determining if a warning should be emitted.
#
if {![info exists no(quiet)]} then {
#
# NOTE: For tests "basic-1.36", "benchmark-1.*", "debug-1.3",
# "debug-1.4.*", "glob-99.*", "object-10.*", "perf-2.2",
# and various other places within the test suite code
# itself.
#
checkForQuiet $test_channel false
}
#
................................................................................
#
# NOTE: Has thread culture detection support been disabled?
#
if {![info exists no(threadCulture)]} then {
checkForThreadCulture $test_channel
}
#
# NOTE: Has security detection support been disabled?
#
if {![info exists no(security)]} then {
checkForSecurity $test_channel
}
#
# NOTE: Has software update trust detection support been disabled?
#
if {![info exists no(softwareUpdate)]} then {
checkForSoftwareUpdateTrust $test_channel
}
................................................................................
}
#
# NOTE: Has script debugger support been enabled (at compile-time)?
#
if {![info exists no(compileDebugger)]} then {
#
# NOTE: For tests "debug-1.1", "debug-2.1", "debug-3.1",
# "debug-4.1", and "proc-2.1".
#
checkForCompileOption $test_channel DEBUGGER
}
#
# NOTE: Has script debugger arguments support been enabled (at
# compile-time)?
#
if {![info exists no(compileDebuggerArguments)]} then {
#
# NOTE: For tests "object-5.1.*".
#
checkForCompileOption $test_channel DEBUGGER_ARGUMENTS
}
#
# NOTE: Has script breakpoint support been enabled (at compile-time)?
#
if {![info exists no(compileBreakpoints)]} then {
#
# NOTE: For test "proc-2.1".
#
checkForCompileOption $test_channel BREAKPOINTS
}
#
# NOTE: Has application domain management support been enabled (at
# compile-time)?
#
if {![info exists no(compileAppDomains)]} then {
#
................................................................................
if {![info exists no(compileWinForms)]} then {
#
# NOTE: For tests "object-10.21", "tclLoad-1.2", "winForms-*.*".
#
checkForCompileOption $test_channel WINFORMS
}
#
# NOTE: Has native library support been enabled (at compile-time)?
#
if {![info exists no(compileLibrary)]} then {
#
# NOTE: For tests "commands-1.*".
#
checkForCompileOption $test_channel LIBRARY
}
#
# NOTE: Has native code support been enabled (at compile-time)?
#
if {![info exists no(compileNative)]} then {
#
# NOTE: For tests "debug-3.2", "expr-3.2", and "host-1.1".
#
................................................................................
if {![info exists no(compileNetwork)]} then {
#
# NOTE: For tests "commands-1.4", "socket-1.*", "socket-2.1", and
# "socket-3.1".
#
checkForCompileOption $test_channel NETWORK
}
#
# NOTE: Has notification support been enabled (at compile-time)?
#
if {![info exists no(compileNotify)]} then {
#
# NOTE: For test "basic-1.75".
#
checkForCompileOption $test_channel NOTIFY
}
#
# NOTE: Has notification argument support been enabled (at
# compile-time)?
#
if {![info exists no(compileNotifyArguments)]} then {
#
# NOTE: For test "basic-1.75".
#
checkForCompileOption $test_channel NOTIFY_ARGUMENTS
}
#
# NOTE: Has native Tcl support been enabled (at compile-time)?
#
if {![info exists no(compileTcl)]} then {
#
# NOTE: For tests "commands-1.1.*", "excel-2.2", "tclCancel-1.1",
................................................................................
}
}
#
# NOTE: Has custom test method support been disabled?
#
if {![info exists no(core)] && ![info exists no(test)]} then {
#
# NOTE: Has ExecuteCallback testing support been disabled?
#
if {![info exists no(testExecuteCallback)]} then {
#
# NOTE: For tests "executeCallback-1.*".
#
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestAddExecuteCallback*
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestExecuteCallback1*
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestExecuteCallback2*
}
#
# NOTE: Has WriteHeader testing support been disabled?
#
if {![info exists no(testWriteHeader)]} then {
#
# NOTE: For test "host-1.5".
#
................................................................................
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestComplainCallbackThrow*
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestComplainCallbackNoThrow*
}
#
# NOTE: Has new interpreter callback testing support been disabled?
#
if {![info exists no(testNewInterpreter)]} then {
#
# NOTE: For tests "interp-1.101" and "interp-1.102".
#
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestSetNewInterpreterCallback*
checkForObjectMember $test_channel Eagle._Tests.Default \
*TestNewInterpreterCallback*
}
#
# NOTE: Has custom match mode testing been disabled?
#
if {![info exists no(testMatchMode)]} then {
#
# NOTE: For test "stringMatch-101.1".
................................................................................
if {![info exists no(native)]} then {
checkForNativeCode $test_channel
}
#
# NOTE: Check for various extra commands that may be present.
#
if {![info exists no(base64Command)]} then {
checkForCommand $test_channel base64
}
if {![info exists no(bgerrorCommand)]} then {
checkForCommand $test_channel bgerror
}
if {![info exists no(callbackCommand)]} then {
checkForCommand $test_channel callback
}
if {![info exists no(debugCommand)]} then {
checkForCommand $test_channel debug
}
if {![info exists no(doCommand)]} then {
checkForCommand $test_channel do
}
if {![info exists no(downlevelCommand)]} then {
checkForCommand $test_channel downlevel
}
if {![info exists no(guidCommand)]} then {
checkForCommand $test_channel guid
}
if {![info exists no(hashCommand)]} then {
checkForCommand $test_channel hash
}
if {![info exists no(hostCommand)]} then {
checkForCommand $test_channel host
}
if {![info exists no(invokeCommand)]} then {
checkForCommand $test_channel invoke
}
if {![info exists no(killCommand)]} then {
checkForCommand $test_channel kill
}
if {![info exists no(lgetCommand)]} then {
checkForCommand $test_channel lget
}
if {![info exists no(libraryCommand)]} then {
checkForCommand $test_channel library
}
if {![info exists no(lremoveCommand)]} then {
checkForCommand $test_channel lremove
}
if {![info exists no(nopCommand)]} then {
checkForCommand $test_channel nop
}
if {![info exists no(objectCommand)]} then {
checkForCommand $test_channel object
}
if {![info exists no(parseCommand)]} then {
checkForCommand $test_channel parse
}
if {![info exists no(scopeCommand)]} then {
checkForCommand $test_channel scope
}
if {![info exists no(socketCommand)]} then {
checkForCommand $test_channel socket
}
if {![info exists no(sqlCommand)]} then {
checkForCommand $test_channel sql
}
if {![info exists no(tclCommand)]} then {
checkForCommand $test_channel tcl
}
if {![info exists no(throwCommand)]} then {
checkForCommand $test_channel throw
}
if {![info exists no(truncateCommand)]} then {
checkForCommand $test_channel truncate
}
if {![info exists no(tryCommand)]} then {
checkForCommand $test_channel try
}
if {![info exists no(uriCommand)]} then {
checkForCommand $test_channel uri
}
if {![info exists no(versionCommand)]} then {
checkForCommand $test_channel version
}
if {![info exists no(xmlCommand)]} then {
checkForCommand $test_channel xml
}
#
# NOTE: Has namespace detection support been disabled?
|