File tls-ciphers.patch of Package tls
--- tests/ciphers.test
+++ tests/ciphers.test
@@ -48,36 +48,6 @@
EXP-RC4-MD5
}
-set ::EXPECTEDCIPHERS(openssl) {
- AES128-SHA
- AES256-SHA
- DES-CBC-SHA
- DES-CBC3-SHA
- DHE-DSS-AES128-SHA
- DHE-DSS-AES256-SHA
- DHE-DSS-RC4-SHA
- DHE-RSA-AES128-SHA
- DHE-RSA-AES256-SHA
- EDH-DSS-DES-CBC-SHA
- EDH-DSS-DES-CBC3-SHA
- EDH-RSA-DES-CBC-SHA
- EDH-RSA-DES-CBC3-SHA
- EXP-DES-CBC-SHA
- EXP-EDH-DSS-DES-CBC-SHA
- EXP-EDH-RSA-DES-CBC-SHA
- EXP-RC2-CBC-MD5
- EXP-RC4-MD5
- EXP1024-DES-CBC-SHA
- EXP1024-DHE-DSS-DES-CBC-SHA
- EXP1024-DHE-DSS-RC4-SHA
- EXP1024-RC2-CBC-MD5
- EXP1024-RC4-MD5
- EXP1024-RC4-SHA
- IDEA-CBC-SHA
- RC4-MD5
- RC4-SHA
-}
-
proc listcompare {wants haves} {
array set want {}
array set have {}
@@ -109,7 +79,7 @@
# This will fail if you compiled against RSA bsafe or with a
# different set of defines than the default.
# Change the constraint setting above.
- listcompare $::EXPECTEDCIPHERS(openssl) [tls::ciphers ssl3]
+ listcompare [split [exec openssl ciphers -ssl3] :] [tls::ciphers ssl3]
} {}
# This version of the test is correct for OpenSSL only.
@@ -119,7 +89,7 @@
# This will fail if you compiled against RSA bsafe or with a
# different set of defines than the default.
# Change the constraint setting in all.tcl
- listcompare $::EXPECTEDCIPHERS(openssl) [tls::ciphers tls1]
+ listcompare [split [exec openssl ciphers -tls1] :] [tls::ciphers tls1]
} {}