$ 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
$ 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
$
$ 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