PR: 2160

[openssl.git] / test / tests.com

diff --git a/test/tests.com b/test/tests.com
index 702d087107ae68b8ecaefb7b57e4317ad4292c9e..d151cd39553499ff33d53d074a9dce74891f6b20 100644 (file)
--- a/test/tests.com
+++ b/test/tests.com
@@ -7,12 +7,16 @@ $     __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'
+$
 $      set default '__here'
+$
 $      on control_y then goto exit
 $      on error then goto exit
 $
@@ -31,7 +35,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")
 $
@@ -283,8 +287,13 @@ $ test_jpake:
 $      write sys$output "Test JPAKE"
 $      mcr 'texe_dir''jpaketest'
 $      return
+$ test_cms:
+$      write sys$output "CMS consistency test"
+$      perl CMS-TEST.PL
+$      return
 $
 $
 $ exit:
 $      set default '__save_default'
+$      deassign sslroot
 $      exit