1 files changed, 29 insertions, 0 deletions

diff --git a/src/lib/libssl/test/tverify.com b/src/lib/libssl/test/tverify.com
new file mode 100644
index 0000000000..021d701d79
--- /dev/null
+++ b/src/lib/libssl/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;*