aboutsummaryrefslogtreecommitdiff
path: root/openssl/test/tverify.com
diff options
context:
space:
mode:
Diffstat (limited to 'openssl/test/tverify.com')
-rw-r--r--openssl/test/tverify.com29
1 files changed, 29 insertions, 0 deletions
diff --git a/openssl/test/tverify.com b/openssl/test/tverify.com
new file mode 100644
index 000000000..021d701d7
--- /dev/null
+++ b/openssl/test/tverify.com
@@ -0,0 +1,29 @@
+$! TVERIFY.COM
+$
+$ __arch := VAX
+$ if f$getsyi("cpu") .ge. 128 then __arch := AXP
+$ exe_dir := sys$disk:[-.'__arch'.exe.apps]
+$
+$ copy/concatenate [-.certs]*.pem certs.tmp
+$
+$ old_f :=
+$ loop_certs:
+$ verify := NO
+$ more := YES
+$ certs :=
+$ loop_certs2:
+$ f = f$search("[-.certs]*.pem")
+$ if f .nes. "" .and. f .nes. old_f
+$ then
+$ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem"
+$ verify := YES
+$ if f$length(certs) .lt. 180 then goto loop_certs2
+$ else
+$ more := NO
+$ endif
+$ certs = certs - " "
+$
+$ if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs'
+$ if more then goto loop_certs
+$
+$ delete certs.tmp;*