diff options
Diffstat (limited to 'src/lib/libssl/test/tverify.com')
-rw-r--r-- | src/lib/libssl/test/tverify.com | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/lib/libssl/test/tverify.com b/src/lib/libssl/test/tverify.com index 2060184d1e..021d701d79 100644 --- a/src/lib/libssl/test/tverify.com +++ b/src/lib/libssl/test/tverify.com | |||
@@ -8,22 +8,22 @@ $ copy/concatenate [-.certs]*.pem certs.tmp | |||
8 | $ | 8 | $ |
9 | $ old_f := | 9 | $ old_f := |
10 | $ loop_certs: | 10 | $ loop_certs: |
11 | $ c := NO | 11 | $ verify := NO |
12 | $ more := YES | ||
12 | $ certs := | 13 | $ certs := |
13 | $ loop_certs2: | 14 | $ loop_certs2: |
14 | $ f = f$search("[-.certs]*.pem") | 15 | $ f = f$search("[-.certs]*.pem") |
15 | $ if f .nes. "" .and. f .nes. old_f | 16 | $ if f .nes. "" .and. f .nes. old_f |
16 | $ then | 17 | $ then |
17 | $ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem" | 18 | $ certs = certs + " [-.certs]" + f$parse(f,,,"NAME") + ".pem" |
18 | $ c := YES | 19 | $ verify := YES |
19 | $ if f$length(certs) .lt. 180 then goto loop_certs2 | 20 | $ if f$length(certs) .lt. 180 then goto loop_certs2 |
21 | $ else | ||
22 | $ more := NO | ||
20 | $ endif | 23 | $ endif |
21 | $ certs = certs - " " | 24 | $ certs = certs - " " |
22 | $ | 25 | $ |
23 | $ if c | 26 | $ if verify then mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs' |
24 | $ then | 27 | $ if more then goto loop_certs |
25 | $ mcr 'exe_dir'openssl verify "-CAfile" certs.tmp 'certs' | ||
26 | $ goto loop_certs | ||
27 | $ endif | ||
28 | $ | 28 | $ |
29 | $ delete certs.tmp;* | 29 | $ delete certs.tmp;* |