summaryrefslogtreecommitdiff
path: root/src/lib/libssl/test/tpkcs7.com
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libssl/test/tpkcs7.com')
-rw-r--r--src/lib/libssl/test/tpkcs7.com54
1 files changed, 54 insertions, 0 deletions
diff --git a/src/lib/libssl/test/tpkcs7.com b/src/lib/libssl/test/tpkcs7.com
new file mode 100644
index 0000000000..047834fba4
--- /dev/null
+++ b/src/lib/libssl/test/tpkcs7.com
@@ -0,0 +1,54 @@
1$! TPKCS7.COM -- Tests pkcs7 keys
2$
3$ __arch := VAX
4$ if f$getsyi("cpu") .ge. 128 then __arch := AXP
5$ exe_dir := sys$disk:[-.'__arch'.exe.apps]
6$
7$ cmd := mcr 'exe_dir'openssl pkcs7
8$
9$ t := testp7.pem
10$ if p1 .nes. "" then t = p1
11$
12$ write sys$output "testing PKCS7 conversions"
13$ if f$search("fff.*") .nes "" then delete fff.*;*
14$ if f$search("ff.*") .nes "" then delete ff.*;*
15$ if f$search("f.*") .nes "" then delete f.*;*
16$ convert/fdl=sys$input: 't' fff.p
17RECORD
18 FORMAT STREAM_LF
19$
20$ write sys$output "p -> d"
21$ 'cmd' -in fff.p -inform p -outform d -out f.d
22$ if $severity .ne. 1 then exit 3
23$ write sys$output "p -> p"
24$ 'cmd' -in fff.p -inform p -outform p -out f.p
25$ if $severity .ne. 1 then exit 3
26$
27$ write sys$output "d -> d"
28$ 'cmd' -in f.d -inform d -outform d -out ff.d1
29$ if $severity .ne. 1 then exit 3
30$ write sys$output "p -> d"
31$ 'cmd' -in f.p -inform p -outform d -out ff.d3
32$ if $severity .ne. 1 then exit 3
33$
34$
35$ write sys$output "d -> p"
36$ 'cmd' -in f.d -inform d -outform p -out ff.p1
37$ if $severity .ne. 1 then exit 3
38$ write sys$output "p -> p"
39$ 'cmd' -in f.p -inform p -outform p -out ff.p3
40$ if $severity .ne. 1 then exit 3
41$
42$ backup/compare fff.p f.p
43$ if $severity .ne. 1 then exit 3
44$ backup/compare fff.p ff.p1
45$ if $severity .ne. 1 then exit 3
46$ backup/compare fff.p ff.p3
47$ if $severity .ne. 1 then exit 3
48$
49$ backup/compare f.p ff.p1
50$ if $severity .ne. 1 then exit 3
51$ backup/compare f.p ff.p3
52$ if $severity .ne. 1 then exit 3
53$
54$ delete f.*;*,ff.*;*,fff.*;*