diff options
Diffstat (limited to 'src/lib/libssl/test/testenc.com')
| -rw-r--r-- | src/lib/libssl/test/testenc.com | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/src/lib/libssl/test/testenc.com b/src/lib/libssl/test/testenc.com index 0756e8bada..3b66f2e0d0 100644 --- a/src/lib/libssl/test/testenc.com +++ b/src/lib/libssl/test/testenc.com | |||
| @@ -8,19 +8,23 @@ $ testsrc := makefile.ssl | |||
| 8 | $ test := p.txt | 8 | $ test := p.txt |
| 9 | $ cmd := mcr 'exe_dir'openssl | 9 | $ cmd := mcr 'exe_dir'openssl |
| 10 | $ | 10 | $ |
| 11 | $ if f$search(test) .nes. "" then delete 'test';* | ||
| 11 | $ copy 'testsrc' 'test' | 12 | $ copy 'testsrc' 'test' |
| 12 | $ | 13 | $ |
| 14 | $ if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;* | ||
| 15 | $ if f$search(test+"-clear") .nes. "" then delete 'test'-clear;* | ||
| 16 | $ | ||
| 13 | $ write sys$output "cat" | 17 | $ write sys$output "cat" |
| 14 | $ 'cmd' enc -in 'test' -out 'test'-cipher | 18 | $ 'cmd' enc -in 'test' -out 'test'-cipher |
| 15 | $ 'cmd' enc -in 'test'-cipher -out 'test'-clear | 19 | $ 'cmd' enc -in 'test'-cipher -out 'test'-clear |
| 16 | $ difference/output=nl: 'test' 'test'-clear | 20 | $ backup/compare 'test' 'test'-clear |
| 17 | $ if $severity .ne. 1 then exit 3 | 21 | $ if $severity .ne. 1 then exit 3 |
| 18 | $ delete 'test'-cipher;*,'test'-clear;* | 22 | $ delete 'test'-cipher;*,'test'-clear;* |
| 19 | $ | 23 | $ |
| 20 | $ write sys$output "base64" | 24 | $ write sys$output "base64" |
| 21 | $ 'cmd' enc -a -e -in 'test' -out 'test'-cipher | 25 | $ 'cmd' enc -a -e -in 'test' -out 'test'-cipher |
| 22 | $ 'cmd' enc -a -d -in 'test'-cipher -out 'test'-clear | 26 | $ 'cmd' enc -a -d -in 'test'-cipher -out 'test'-clear |
| 23 | $ difference/output=nl: 'test' 'test'-clear | 27 | $ backup/compare 'test' 'test'-clear |
| 24 | $ if $severity .ne. 1 then exit 3 | 28 | $ if $severity .ne. 1 then exit 3 |
| 25 | $ delete 'test'-cipher;*,'test'-clear;* | 29 | $ delete 'test'-cipher;*,'test'-clear;* |
| 26 | $ | 30 | $ |
| @@ -30,16 +34,22 @@ $ open/read f 'test'-cipher-commands | |||
| 30 | $ loop_cipher_commands: | 34 | $ loop_cipher_commands: |
| 31 | $ read/end=loop_cipher_commands_end f i | 35 | $ read/end=loop_cipher_commands_end f i |
| 32 | $ write sys$output i | 36 | $ write sys$output i |
| 37 | $ | ||
| 38 | $ if f$search(test+"-"+i+"-cipher") .nes. "" then - | ||
| 39 | delete 'test'-'i'-cipher;* | ||
| 40 | $ if f$search(test+"-"+i+"-clear") .nes. "" then - | ||
| 41 | delete 'test'-'i'-clear;* | ||
| 42 | $ | ||
| 33 | $ 'cmd' 'i' -bufsize 113 -e -k test -in 'test' -out 'test'-'i'-cipher | 43 | $ 'cmd' 'i' -bufsize 113 -e -k test -in 'test' -out 'test'-'i'-cipher |
| 34 | $ 'cmd' 'i' -bufsize 157 -d -k test -in 'test'-'i'-cipher -out 'test'-'i'-clear | 44 | $ 'cmd' 'i' -bufsize 157 -d -k test -in 'test'-'i'-cipher -out 'test'-'i'-clear |
| 35 | $ difference/output=nl: 'test' 'test'-'i'-clear | 45 | $ backup/compare 'test' 'test'-'i'-clear |
| 36 | $ if $severity .ne. 1 then exit 3 | 46 | $ if $severity .ne. 1 then exit 3 |
| 37 | $ delete 'test'-'i'-cipher;*,'test'-'i'-clear;* | 47 | $ delete 'test'-'i'-cipher;*,'test'-'i'-clear;* |
| 38 | $ | 48 | $ |
| 39 | $ write sys$output i," base64" | 49 | $ write sys$output i," base64" |
| 40 | $ 'cmd' 'i' -bufsize 113 -a -e -k test -in 'test' -out 'test'-'i'-cipher | 50 | $ 'cmd' 'i' -bufsize 113 -a -e -k test -in 'test' -out 'test'-'i'-cipher |
| 41 | $ 'cmd' 'i' -bufsize 157 -a -d -k test -in 'test'-'i'-cipher -out 'test'-'i'-clear | 51 | $ 'cmd' 'i' -bufsize 157 -a -d -k test -in 'test'-'i'-cipher -out 'test'-'i'-clear |
| 42 | $ difference/output=nl: 'test' 'test'-'i'-clear | 52 | $ backup/compare 'test' 'test'-'i'-clear |
| 43 | $ if $severity .ne. 1 then exit 3 | 53 | $ if $severity .ne. 1 then exit 3 |
| 44 | $ delete 'test'-'i'-cipher;*,'test'-'i'-clear;* | 54 | $ delete 'test'-'i'-cipher;*,'test'-'i'-clear;* |
| 45 | $ | 55 | $ |