Teach ssl_test_new how to test the FIPS module

[oweals/openssl.git] / test / ssl-tests / ssltests_base.pm

diff --git a/test/ssl-tests/ssltests_base.pm b/test/ssl-tests/ssltests_base.pm
index 05aab97e13dcb217a2640f0907a70e057cc690d4..98c9a839ad5151ac2e08150b66d2897506055b62 100644 (file)
--- a/test/ssl-tests/ssltests_base.pm
+++ b/test/ssl-tests/ssltests_base.pm
@@ -1,17 +1,33 @@
 # -*- mode: perl; -*-
+# Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the Apache License 2.0 (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
 
 ## SSL test configurations
 
 package ssltests;
 
+sub test_pem
+{
+    my ($file) = @_;
+    my $dir_sep = $^O ne "VMS" ? "/" : "";
+    return "\${ENV::TEST_CERTS_DIR}" . $dir_sep . $file,
+}
+
+our $fips_mode = 0;
+our $no_deflt_libctx = 0;
+
 our %base_server = (
-    "Certificate" => "\${ENV::TEST_CERTS_DIR}/servercert.pem",
-    "PrivateKey"  => "\${ENV::TEST_CERTS_DIR}/serverkey.pem",
+    "Certificate" => test_pem("servercert.pem"),
+    "PrivateKey"  => test_pem("serverkey.pem"),
     "CipherString" => "DEFAULT",
 );
 
 our %base_client = (
-    "VerifyCAFile" => "\${ENV::TEST_CERTS_DIR}/rootcert.pem",
+    "VerifyCAFile" => test_pem("rootcert.pem"),
     "VerifyMode" => "Peer",
     "CipherString" => "DEFAULT",
 );