Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Move test suite SecurityProtocol handling into the vendor script and make it more robust. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
f68d495bea05ee2f90109c996bf0cb73 |
User & Date: | mistachkin 2019-10-05 03:01:24.914 |
Context
2019-10-05
| ||
03:32 | Add support for new DBCONFIG options from the SQLite core library. Pursuant to [03b6b0edd7]. check-in: 42082ffc4d user: mistachkin tags: trunk | |
03:01 | Move test suite SecurityProtocol handling into the vendor script and make it more robust. check-in: f68d495bea user: mistachkin tags: trunk | |
02:15 | Simplify test suite changes from check-in [cdd3330990]. check-in: 0388466597 user: mistachkin tags: trunk | |
Changes
Changes to Externals/Eagle/lib/Eagle1.0/vendor.eagle.
︙ | ︙ | |||
79 80 81 82 83 84 85 86 87 88 89 90 91 92 | # if {![uplevel 1 [list info exists test_overrides]]} then { uplevel 1 [list set test_overrides $varNames] } return $result } proc refreshAutoPath {} { if {[llength [info commands debug]] > 0 && \ [llength [info subcommands debug refreshautopath]] > 0 && \ [catch {debug refreshautopath true}] == 0} then { return debug } | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 | # if {![uplevel 1 [list info exists test_overrides]]} then { uplevel 1 [list set test_overrides $varNames] } return $result } proc checkForSecurityProtocols { channel quiet } { # # HACK: There is at least one test and one build tool in this source # tree require using HTTPS. Therefore, make sure all protocol # versions are enabled so we do not get spurious TLS failures. # if {![info exists ::no(checkSecurityProtocols)] && \ [llength [info commands object]] > 0} then { set allSecurityProtocols "" if {[catch { set oldSecurityProtocols [object invoke \ System.Net.ServicePointManager SecurityProtocol] set allSecurityProtocols [join [string map [list " " " "] \ [string trim [string map [list SystemDefault ""] [object \ invoke Enum GetNames System.Net.SecurityProtocolType]]]] \ ", "] object invoke System.Net.ServicePointManager SecurityProtocol \ $allSecurityProtocols set newSecurityProtocols [object invoke \ System.Net.ServicePointManager SecurityProtocol] } error] == 0} then { if {!$quiet} then { catch { tqputs $channel [appendArgs \ "---- forcibly enabled all HTTPS security protocols \"" \ $allSecurityProtocols "\", old \"" $oldSecurityProtocols \ "\", new \"" $newSecurityProtocols \"\n] } } } else { if {!$quiet} then { catch { tqputs $channel [appendArgs \ "==== WARNING: could not forcibly enable all HTTPS " \ "security protocols " [expr {[string length \ $allSecurityProtocols] > 0 ? [appendArgs \" \ $allSecurityProtocols \"] : "<unknown>"}] ", error: " \ \n\t $error \n] } } } } } proc refreshAutoPath {} { if {[llength [info commands debug]] > 0 && \ [llength [info subcommands debug refreshautopath]] > 0 && \ [catch {debug refreshautopath true}] == 0} then { return debug } |
︙ | ︙ | |||
437 438 439 440 441 442 443 444 445 446 447 448 449 450 | # directory then modify the TestPath property of the current # interpreter to point directly to it. # if {[string length $vendor_test_directory] > 0} then { setupInterpreterTestPath stdout $vendor_test_directory \ [checkForVendorQuiet setupInterpreterTestPath] } } # # HACK: When the Eagle core test suite infrastructure is beta 44 or # lower, override the [getKnownMonoVersions] procedure to add # more "known" versions of the Mono runtime. Eventually, this # override should be removed (i.e. once the Eagle core library | > > > > > > > | 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 | # directory then modify the TestPath property of the current # interpreter to point directly to it. # if {[string length $vendor_test_directory] > 0} then { setupInterpreterTestPath stdout $vendor_test_directory \ [checkForVendorQuiet setupInterpreterTestPath] } # # NOTE: Check if the HTTPS security protocols need to be adjusted for # use with the test suite and/or build tools. # checkForSecurityProtocols stdout \ [checkForVendorQuiet checkForSecurityProtocols] } # # HACK: When the Eagle core test suite infrastructure is beta 44 or # lower, override the [getKnownMonoVersions] procedure to add # more "known" versions of the Mono runtime. Eventually, this # override should be removed (i.e. once the Eagle core library |
︙ | ︙ |
Changes to Tests/session.eagle.
︙ | ︙ | |||
1345 1346 1347 1348 1349 1350 1351 | ############################################################################### runTest {test session-1.9 {apply change set (remote stream)} -setup { setupDb [set fileName session-1.9.db] cleanupSomeText | < < < < < < < | 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 | ############################################################################### runTest {test session-1.9 {apply change set (remote stream)} -setup { setupDb [set fileName session-1.9.db] cleanupSomeText } -body { createTheSchema $db main set connection [getDbConnection] set webClient [object create -alias System.Net.WebClient] |
︙ | ︙ |