Print openssl version information at the end of the tests

[openssl.git] / test / tests.com

diff --git a/test/tests.com b/test/tests.com
index 6bd60ca3907200c93b7a5f131ff276eb989f09ad..a82cfe3c9e3e81c653e984a3f876ab8cc845daf7 100644 (file)
--- a/test/tests.com
+++ b/test/tests.com
@@ -12,6 +12,10 @@ $    if __arch .eqs. "" then __arch := UNK
 $      texe_dir := sys$disk:[-.'__arch'.exe.test]
 $      exe_dir := sys$disk:[-.'__arch'.exe.apps]
 $
+$      sslroot = f$parse("sys$disk:[-.apps];",,,,"syntax_only") - "].;"+ ".]"
+$      define /translation_attributes = concealed sslroot 'sslroot'
+$      openssl_conf := sslroot:[000000]openssl-vms.cnf
+$
 $      set default '__here'
 $
 $      on control_y then goto exit
@@ -67,12 +71,14 @@ $   ENGINETEST :=   enginetest
 $      EVPTEST :=      evp_test
 $      IGETEST :=      igetest
 $      JPAKETEST :=    jpaketest
+$      ASN1TEST :=     asn1test
 $
 $      tests_i = 0
 $ loop_tests:
 $      tests_e = f$element(tests_i,",",tests)
 $      tests_i = tests_i + 1
 $      if tests_e .eqs. "," then goto exit
+$      write sys$output "---> ''tests_e'"
 $      gosub 'tests_e'
 $      goto loop_tests
 $
@@ -286,10 +292,14 @@ $ mcr 'texe_dir''jpaketest'
 $      return
 $ test_cms:
 $      write sys$output "CMS consistency test"
+$      ! The following makes perl include the DCL symbol table in the env.
+$      define/user perl_env_tables clisym_local,lnm$file_dev,ctrl_env
 $      perl CMS-TEST.PL
 $      return
 $
 $
 $ exit:
+$      mcr 'exe_dir'openssl version -a
 $      set default '__save_default'
+$      deassign sslroot
 $      exit