Artifact 95c47b85872a1e61b9a264c624cc4176b186edcad04722683c55df75b6ef7b0f:

• File tests/common.tcl — part of check-in [d966a301eb] at 2024-02-24 22:22:56 on branch trunk — Clean-up gcc compiler warnings (user: bohagan, size: 667) [annotate] [blame] [check-ins using] [more...]

# Common Constraints
package require tls

# Supported protocols
set protocols [list ssl2 ssl3 tls1 tls1.1 tls1.2 tls1.3]
foreach protocol $protocols {
    ::tcltest::testConstraint $protocol 0
    ::tcltest::testConstraint !$protocol 1
}

foreach protocol [::tls::protocols] {
    ::tcltest::testConstraint $protocol 1
    ::tcltest::testConstraint !$protocol 0
}

# OpenSSL version
::tcltest::testConstraint OpenSSL [string match "OpenSSL*" [::tls::version]]

# Legacy OpenSSL v1.1.1 vs new v3.x
scan [lindex [split [::tls::version]] 1] %f version
::tcltest::testConstraint new_api [expr {$version >= 3.0}]
::tcltest::testConstraint old_api [expr {$version < 3.0}]