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 702d087107ae68b8ecaefb7b57e4317ad4292c9e..a82cfe3c9e3e81c653e984a3f876ab8cc845daf7 100644 (file)
--- a/test/tests.com
+++ b/test/tests.com
@@ -7,12 +7,17 @@ $     __here = f$parse(f$parse("A.;",__proc) - "A.;","[]A.;") - "A.;"
 $      __save_default = f$environment("default")
 $      __arch := VAX
 $      if f$getsyi("cpu") .ge. 128 then -
-          __arch := f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
+          __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE")
 $      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
 $      on error then goto exit
 $
@@ -31,7 +36,7 @@ $         tests := -
        test_enc,test_x509,test_rsa,test_crl,test_sid,-
        test_gen,test_req,test_pkcs7,test_verify,test_dh,test_dsa,-
        test_ss,test_ca,test_engine,test_evp,test_ssl,test_tsa,test_ige,-
-       test_jpake
+       test_jpake,test_cms
 $      endif
 $      tests = f$edit(tests,"COLLAPSE")
 $
@@ -66,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
 $
@@ -283,8 +290,16 @@ $ test_jpake:
 $      write sys$output "Test JPAKE"
 $      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