Tell the user what test is being performed.

[openssl.git] / test / tests.com

diff --git a/test/tests.com b/test/tests.com
index 315ce4445fc1436a89bf7398c0044508e1fd00ce..4237ab28a683d19fc91b08cf80412422a37135d0 100644 (file)
--- a/test/tests.com
+++ b/test/tests.com
@@ -6,11 +6,17 @@ $     __proc = f$element(0,";",f$environment("procedure"))
 $      __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 := AXP
+$      if f$getsyi("cpu") .ge. 128 then -
+          __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
 $
@@ -18,6 +24,9 @@ $     if p1 .nes. ""
 $      then
 $          tests = p1
 $      else
+$! NOTE: This list reflects the list of dependencies following the
+$! "alltests" target in Makefile.  This should make it easy to see
+$! if there's a difference that needs to be taken care of.
 $          tests := -
        test_des,test_idea,test_sha,test_md4,test_md5,test_hmac,-
        test_md2,test_mdc2,test_wp,-
@@ -25,7 +34,8 @@ $         tests := -
        test_rand,test_bn,test_ec,test_ecdsa,test_ecdh,-
        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_ss,test_ca,test_engine,test_evp,test_ssl,test_tsa,test_ige,-
+       test_jpake,test_cms
 $      endif
 $      tests = f$edit(tests,"COLLAPSE")
 $
@@ -58,12 +68,16 @@ $   SSLTEST :=      ssltest
 $      RSATEST :=      rsa_test
 $      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
 $
@@ -267,8 +281,21 @@ $  else
 $          @testtsa.com
 $      endif
 $      return
+$ test_ige: 
+$      write sys$output "Test IGE mode"
+$      mcr 'texe_dir''igetest'
+$      return
+$ 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