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]
 } {}