System.Data.SQLite

Check-in [385a304305]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix 'checkForSecurityProtocols' test suite helper procedure for use with .NET Core.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 385a30430551ea224c9312ce33423756a695948f
User & Date: mistachkin 2019-10-06 00:54:03.810
Context
2019-10-06
01:27
Another fix related to handling of the 'checkForSecurityProtocols' test suite helper procedure. check-in: 66c88f2048 user: mistachkin tags: trunk
00:54
Merge updates from trunk. check-in: 5bfabcc99b user: mistachkin tags: netStandard21
00:54
Fix 'checkForSecurityProtocols' test suite helper procedure for use with .NET Core. check-in: 385a304305 user: mistachkin tags: trunk
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
Changes
Unified Diff Ignore Whitespace Patch
Changes to Externals/Eagle/lib/Eagle1.0/vendor.eagle.
︙︙
93
94
95
96
97
98
99
100
101
102
103
104















105
106
107
108
109
110
111

      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 {









|
<
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>








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

      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 [object invoke \

              Enum GetNames System.Net.SecurityProtocolType]

          set allSecurityProtocols [string map \
              [list SystemDefault ""] $allSecurityProtocols]

          if {[isDotNetCore]} then {
            #
            # HACK: Including "Ssl3" will cause an exception to be thrown
            #       in the ServicePointManager.ValidateSecurityProtocol()
            #       method.
            #
            set allSecurityProtocols [string map \
                [list Ssl3 ""] $allSecurityProtocols]
          }

          set allSecurityProtocols [join [string map [list "  " " "] \
              [string trim $allSecurityProtocols]] ", "]

          object invoke System.Net.ServicePointManager SecurityProtocol \
              $allSecurityProtocols

          set newSecurityProtocols [object invoke \
              System.Net.ServicePointManager SecurityProtocol]
        } error] == 0} then {
︙︙