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 |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
9ef15e9c9512a74dedbc0b3929f98f0d |
User & Date: | mistachkin 2016-06-17 17:35:19.357 |
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 | # # NOTE: No, we did not alter the search path. # return false } proc execShell { options args } { set command [list exec] | > > > > > > | > | > > > > > > > > > > > > > > > > > > > > | > | > > > > > | 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 | # # 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 |
︙ | ︙ | |||
2712 2713 2714 2715 2716 2717 2718 2719 2720 2721 2722 2723 2724 2725 | } } 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 { | > > > > > > > > > | 2745 2746 2747 2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2759 2760 2761 2762 2763 2764 2765 2766 2767 | } } 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 | proc #support {} { # <help> # Shows the requirements for obtaining commercial support and/or # redirects to the appropriate web site using the default browser. # </help> | < | > | > | | < < | < > | | < < < < | < < | | < < < < | | < | < < < < | < < < < < < < < < < < | | | < < < < < < < < < < < | | | | | | | | | | | | | | | | | | | | | | < | 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 | set code 1 } # # NOTE: Display and/or log the results for the test that we just # completed. # | | | 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 | 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 |
︙ | ︙ | |||
3133 3134 3135 3136 3137 3138 3139 | tqputs $::test_channel \ "---- removed \"testConstraint\" alias\n" } } } } | | | | 3133 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 | 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 } |
︙ | ︙ | |||
3288 3289 3290 3291 3292 3293 3294 3295 3296 3297 3298 3299 3300 3301 | "---- 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. # | > > > > > > | 3288 3289 3290 3291 3292 3293 3294 3295 3296 3297 3298 3299 3300 3301 3302 3303 3304 3305 3306 3307 | "---- 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 | 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 \ | > | | | | | 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 | 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" |
︙ | ︙ | |||
2163 2164 2165 2166 2167 2168 2169 2170 2171 2172 2173 2174 2175 2176 | } 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 { # | > > > > > > > > > > > > > > > > > > > > > > | 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 | } 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 | # 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", | | | 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 | # 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 } # |
︙ | ︙ | |||
1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 | # # 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 } | > > > > > > > | 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 | # # 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 } |
︙ | ︙ | |||
1381 1382 1383 1384 1385 1386 1387 | } # # NOTE: Has script debugger support been enabled (at compile-time)? # if {![info exists no(compileDebugger)]} then { # | | | > > > > > > > > > > > > > > > > > > > > > | 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 | } # # 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 { # |
︙ | ︙ | |||
1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 | 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". # | > > > > > > > > > > | 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 | 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". # |
︙ | ︙ | |||
1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 | 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", | > > > > > > > > > > > > > > > > > > > > > | 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 | 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", |
︙ | ︙ | |||
1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 | } } # # 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". # | > > > > > > > > > > > > > > > > > | 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 | } } # # 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". # |
︙ | ︙ | |||
1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 | 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". | > > > > > > > > > > > > > > | 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 | 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". |
︙ | ︙ | |||
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 | 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? | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 | 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? |
︙ | ︙ |