diff options
author | Richard Levitte <levitte@openssl.org> | 2000-03-13 19:05:18 +0000 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2000-03-13 19:05:18 +0000 |
commit | bc23b70e47531cabe5b3c329ba0b5d58777fbb7b (patch) | |
tree | 77a843dcfa533407be8286a7d36efb84c5f66bda /test | |
parent | 41f0aae69ba76ef2e0f0422920375077a55087cc (diff) |
Synchronise with Unix.
Diffstat (limited to 'test')
-rw-r--r-- | test/trsa.com | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test/trsa.com b/test/trsa.com index 28add5eefd..7862e902db 100644 --- a/test/trsa.com +++ b/test/trsa.com @@ -4,6 +4,22 @@ $ __arch := VAX $ if f$getsyi("cpu") .ge. 128 then __arch := AXP $ exe_dir := sys$disk:[-.'__arch'.exe.apps] $ +$ found_it := NO +$ define/user sys$output trsa-standard-commands. +$ mcr 'exe_dir'openssl list-standard-commands +$ open/read f trsa-standard-commands. +$ loop_standard_commands: +$ read/end=loop_standard_commands_end f i +$ if f$edit(i,"lowercase") .eqs. "rsa" +$ then +$ found_it := YES +$ goto loop_standard_commands_end +$ endif +$ goto loop_standard_commands +$ loop_standard_commands_end: +$ close f +$ delete trsa-standard-commands.;* +$ $ cmd := mcr 'exe_dir'openssl rsa $ $ t := testrsa.pem |