dougm 02/01/20 11:20:26
Modified: perl-framework/t/ssl varlookup.t
Log:
change some hardwired values to pattern matches
Revision Changes Path
1.9 +4 -4 httpd-test/perl-framework/t/ssl/varlookup.t
Index: varlookup.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/ssl/varlookup.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- varlookup.t 9 Jan 2002 18:45:29 -0000 1.8
+++ varlookup.t 20 Jan 2002 19:20:26 -0000 1.9
@@ -133,16 +133,16 @@
SSL_SERVER_M_VERSION qr(^\d+$)
SSL_CLIENT_M_SERIAL qr(^\d+$)
SSL_SERVER_M_SERIAL qr(^\d+$)
-SSL_PROTOCOL 'TLSv1'
+SSL_PROTOCOL qr((TLS|SSL)v([1-3])$)
SSL_CLIENT_V_START qr($cert_datefmt);
SSL_SERVER_V_START qr($cert_datefmt);
SSL_SESSION_ID
SSL_CLIENT_V_END qr($cert_datefmt);
SSL_SERVER_V_END qr($cert_datefmt);
-SSL_CIPHER 'EDH-RSA-DES-CBC3-SHA'
+SSL_CIPHER qr(^[A-Z0-9-]+$)
SSL_CIPHER_EXPORT 'false'
-SSL_CIPHER_ALGKEYSIZE '168'
-SSL_CIPHER_USEKEYSIZE '168'
+SSL_CIPHER_ALGKEYSIZE qr(^\d+$)
+SSL_CIPHER_USEKEYSIZE qr(^\d+$)
SSL_CLIENT_S_DN "$client_dn"
SSL_SERVER_S_DN "$server_dn"
|