diff options
Diffstat (limited to 'src/lib/libssl/test/testenc.com')
| -rw-r--r-- | src/lib/libssl/test/testenc.com | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/src/lib/libssl/test/testenc.com b/src/lib/libssl/test/testenc.com index 621d9a2126..75acd6f07f 100644 --- a/src/lib/libssl/test/testenc.com +++ b/src/lib/libssl/test/testenc.com | |||
| @@ -1,13 +1,16 @@ | |||
| 1 | $! TESTENC.COM -- Test encoding and decoding | 1 | $! TESTENC.COM -- Test encoding and decoding |
| 2 | $ | 2 | $ |
| 3 | $ __arch := VAX | 3 | $ __arch = "VAX" |
| 4 | $ if f$getsyi("cpu") .ge. 128 then - | 4 | $ if f$getsyi("cpu") .ge. 128 then - |
| 5 | __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") | 5 | __arch = f$edit( f$getsyi( "ARCH_NAME"), "UPCASE") |
| 6 | $ if __arch .eqs. "" then __arch := UNK | 6 | $ if __arch .eqs. "" then __arch = "UNK" |
| 7 | $! | ||
| 8 | $ if (p1 .eqs. 64) then __arch = __arch+ "_64" | ||
| 7 | $ | 9 | $ |
| 8 | $ testsrc := makefile. | 10 | $ exe_dir = "sys$disk:[-.''__arch'.exe.apps]" |
| 9 | $ test := p.txt | 11 | $ testsrc = "makefile." |
| 10 | $ cmd := mcr 'exe_dir'openssl | 12 | $ test = "p.txt" |
| 13 | $ cmd = "mcr ''exe_dir'openssl" | ||
| 11 | $ | 14 | $ |
| 12 | $ if f$search(test) .nes. "" then delete 'test';* | 15 | $ if f$search(test) .nes. "" then delete 'test';* |
| 13 | $ convert/fdl=sys$input: 'testsrc' 'test' | 16 | $ convert/fdl=sys$input: 'testsrc' 'test' |