diff options
Diffstat (limited to '')
| -rw-r--r-- | src/lib/libssl/test/dummytest.c | 5 | ||||
| -rw-r--r-- | src/lib/libssl/test/maketests.com | 2 | ||||
| -rw-r--r-- | src/lib/libssl/test/tcrl.com | 4 | ||||
| -rw-r--r-- | src/lib/libssl/test/testenc.com | 4 | ||||
| -rw-r--r-- | src/lib/libssl/test/tpkcs7.com | 4 | ||||
| -rw-r--r-- | src/lib/libssl/test/tpkcs7d.com | 4 | ||||
| -rw-r--r-- | src/lib/libssl/test/treq.com | 4 | ||||
| -rw-r--r-- | src/lib/libssl/test/trsa.com | 4 | ||||
| -rw-r--r-- | src/lib/libssl/test/tsid.com | 4 | ||||
| -rw-r--r-- | src/lib/libssl/test/tx509.com | 4 |
10 files changed, 28 insertions, 11 deletions
diff --git a/src/lib/libssl/test/dummytest.c b/src/lib/libssl/test/dummytest.c index f98f003ef9..5b4467e042 100644 --- a/src/lib/libssl/test/dummytest.c +++ b/src/lib/libssl/test/dummytest.c | |||
| @@ -8,7 +8,7 @@ | |||
| 8 | 8 | ||
| 9 | int main(int argc, char *argv[]) | 9 | int main(int argc, char *argv[]) |
| 10 | { | 10 | { |
| 11 | char *p, *q, *program; | 11 | char *p, *q = 0, *program; |
| 12 | 12 | ||
| 13 | p = strrchr(argv[0], '/'); | 13 | p = strrchr(argv[0], '/'); |
| 14 | if (!p) p = strrchr(argv[0], '\\'); | 14 | if (!p) p = strrchr(argv[0], '\\'); |
| @@ -34,7 +34,8 @@ int main(int argc, char *argv[]) | |||
| 34 | } | 34 | } |
| 35 | 35 | ||
| 36 | for(p = program; *p; p++) | 36 | for(p = program; *p; p++) |
| 37 | if (islower(*p)) *p = toupper(*p); | 37 | if (islower((unsigned char)(*p))) |
| 38 | *p = toupper((unsigned char)(*p)); | ||
| 38 | 39 | ||
| 39 | q = strstr(program, "TEST"); | 40 | q = strstr(program, "TEST"); |
| 40 | if (q > p && q[-1] == '_') q--; | 41 | if (q > p && q[-1] == '_') q--; |
diff --git a/src/lib/libssl/test/maketests.com b/src/lib/libssl/test/maketests.com index b3bf8bb837..91e859deab 100644 --- a/src/lib/libssl/test/maketests.com +++ b/src/lib/libssl/test/maketests.com | |||
| @@ -887,7 +887,7 @@ $ CC = CC + "/DEFINE=(" + CCDEFS + ")" + CCDISABLEWARNINGS | |||
| 887 | $! | 887 | $! |
| 888 | $! Show user the result | 888 | $! Show user the result |
| 889 | $! | 889 | $! |
| 890 | $ WRITE SYS$OUTPUT "Main Compiling Command: ",CC | 890 | $ WRITE/SYMBOL SYS$OUTPUT "Main Compiling Command: ",CC |
| 891 | $! | 891 | $! |
| 892 | $! Else The User Entered An Invalid Arguement. | 892 | $! Else The User Entered An Invalid Arguement. |
| 893 | $! | 893 | $! |
diff --git a/src/lib/libssl/test/tcrl.com b/src/lib/libssl/test/tcrl.com index 2e6ab2814d..86bf9735aa 100644 --- a/src/lib/libssl/test/tcrl.com +++ b/src/lib/libssl/test/tcrl.com | |||
| @@ -13,7 +13,9 @@ $ write sys$output "testing CRL conversions" | |||
| 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* | 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* | 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 15 | $ if f$search("f.*") .nes "" then delete f.*;* | 15 | $ if f$search("f.*") .nes "" then delete f.*;* |
| 16 | $ copy 't' fff.p | 16 | $ convert/fdl=sys$input: 't' fff.p |
| 17 | RECORD | ||
| 18 | FORMAT STREAM_LF | ||
| 17 | $ | 19 | $ |
| 18 | $ write sys$output "p -> d" | 20 | $ write sys$output "p -> d" |
| 19 | $ 'cmd' -in fff.p -inform p -outform d -out f.d | 21 | $ 'cmd' -in fff.p -inform p -outform d -out f.d |
diff --git a/src/lib/libssl/test/testenc.com b/src/lib/libssl/test/testenc.com index 3b66f2e0d0..c24fa388c0 100644 --- a/src/lib/libssl/test/testenc.com +++ b/src/lib/libssl/test/testenc.com | |||
| @@ -9,7 +9,9 @@ $ 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 | $ if f$search(test) .nes. "" then delete 'test';* |
| 12 | $ copy 'testsrc' 'test' | 12 | $ convert/fdl=sys$input: 'testsrc' 'test' |
| 13 | RECORD | ||
| 14 | FORMAT STREAM_LF | ||
| 13 | $ | 15 | $ |
| 14 | $ if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;* | 16 | $ if f$search(test+"-cipher") .nes. "" then delete 'test'-cipher;* |
| 15 | $ if f$search(test+"-clear") .nes. "" then delete 'test'-clear;* | 17 | $ if f$search(test+"-clear") .nes. "" then delete 'test'-clear;* |
diff --git a/src/lib/libssl/test/tpkcs7.com b/src/lib/libssl/test/tpkcs7.com index 9e345937c6..047834fba4 100644 --- a/src/lib/libssl/test/tpkcs7.com +++ b/src/lib/libssl/test/tpkcs7.com | |||
| @@ -13,7 +13,9 @@ $ write sys$output "testing PKCS7 conversions" | |||
| 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* | 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* | 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 15 | $ if f$search("f.*") .nes "" then delete f.*;* | 15 | $ if f$search("f.*") .nes "" then delete f.*;* |
| 16 | $ copy 't' fff.p | 16 | $ convert/fdl=sys$input: 't' fff.p |
| 17 | RECORD | ||
| 18 | FORMAT STREAM_LF | ||
| 17 | $ | 19 | $ |
| 18 | $ write sys$output "p -> d" | 20 | $ write sys$output "p -> d" |
| 19 | $ 'cmd' -in fff.p -inform p -outform d -out f.d | 21 | $ 'cmd' -in fff.p -inform p -outform d -out f.d |
diff --git a/src/lib/libssl/test/tpkcs7d.com b/src/lib/libssl/test/tpkcs7d.com index 7d4f8794a4..193bb72137 100644 --- a/src/lib/libssl/test/tpkcs7d.com +++ b/src/lib/libssl/test/tpkcs7d.com | |||
| @@ -13,7 +13,9 @@ $ write sys$output "testing PKCS7 conversions (2)" | |||
| 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* | 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* | 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 15 | $ if f$search("f.*") .nes "" then delete f.*;* | 15 | $ if f$search("f.*") .nes "" then delete f.*;* |
| 16 | $ copy 't' fff.p | 16 | $ convert/fdl=sys$input: 't' fff.p |
| 17 | RECORD | ||
| 18 | FORMAT STREAM_LF | ||
| 17 | $ | 19 | $ |
| 18 | $ write sys$output "p -> d" | 20 | $ write sys$output "p -> d" |
| 19 | $ 'cmd' -in fff.p -inform p -outform d -out f.d | 21 | $ 'cmd' -in fff.p -inform p -outform d -out f.d |
diff --git a/src/lib/libssl/test/treq.com b/src/lib/libssl/test/treq.com index 22c22c3aa9..5524e485ba 100644 --- a/src/lib/libssl/test/treq.com +++ b/src/lib/libssl/test/treq.com | |||
| @@ -13,7 +13,9 @@ $ write sys$output "testing req conversions" | |||
| 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* | 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* | 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 15 | $ if f$search("f.*") .nes "" then delete f.*;* | 15 | $ if f$search("f.*") .nes "" then delete f.*;* |
| 16 | $ copy 't' fff.p | 16 | $ convert/fdl=sys$input: 't' fff.p |
| 17 | RECORD | ||
| 18 | FORMAT STREAM_LF | ||
| 17 | $ | 19 | $ |
| 18 | $ write sys$output "p -> d" | 20 | $ write sys$output "p -> d" |
| 19 | $ 'cmd' -in fff.p -inform p -outform d -out f.d | 21 | $ 'cmd' -in fff.p -inform p -outform d -out f.d |
diff --git a/src/lib/libssl/test/trsa.com b/src/lib/libssl/test/trsa.com index 6b6c318e2b..6dbe59ef64 100644 --- a/src/lib/libssl/test/trsa.com +++ b/src/lib/libssl/test/trsa.com | |||
| @@ -24,7 +24,9 @@ $ write sys$output "testing RSA conversions" | |||
| 24 | $ if f$search("fff.*") .nes "" then delete fff.*;* | 24 | $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 25 | $ if f$search("ff.*") .nes "" then delete ff.*;* | 25 | $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 26 | $ if f$search("f.*") .nes "" then delete f.*;* | 26 | $ if f$search("f.*") .nes "" then delete f.*;* |
| 27 | $ copy 't' fff.p | 27 | $ convert/fdl=sys$input: 't' fff.p |
| 28 | RECORD | ||
| 29 | FORMAT STREAM_LF | ||
| 28 | $ | 30 | $ |
| 29 | $ write sys$output "p -> d" | 31 | $ write sys$output "p -> d" |
| 30 | $ 'cmd' -in fff.p -inform p -outform d -out f.d | 32 | $ 'cmd' -in fff.p -inform p -outform d -out f.d |
diff --git a/src/lib/libssl/test/tsid.com b/src/lib/libssl/test/tsid.com index bde23f9bb9..abd1d4d737 100644 --- a/src/lib/libssl/test/tsid.com +++ b/src/lib/libssl/test/tsid.com | |||
| @@ -13,7 +13,9 @@ $ write sys$output "testing session-id conversions" | |||
| 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* | 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* | 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 15 | $ if f$search("f.*") .nes "" then delete f.*;* | 15 | $ if f$search("f.*") .nes "" then delete f.*;* |
| 16 | $ copy 't' fff.p | 16 | $ convert/fdl=sys$input: 't' fff.p |
| 17 | RECORD | ||
| 18 | FORMAT STREAM_LF | ||
| 17 | $ | 19 | $ |
| 18 | $ write sys$output "p -> d" | 20 | $ write sys$output "p -> d" |
| 19 | $ 'cmd' -in fff.p -inform p -outform d -out f.d | 21 | $ 'cmd' -in fff.p -inform p -outform d -out f.d |
diff --git a/src/lib/libssl/test/tx509.com b/src/lib/libssl/test/tx509.com index 985969c566..7b2592f773 100644 --- a/src/lib/libssl/test/tx509.com +++ b/src/lib/libssl/test/tx509.com | |||
| @@ -13,7 +13,9 @@ $ write sys$output "testing X509 conversions" | |||
| 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* | 13 | $ if f$search("fff.*") .nes "" then delete fff.*;* |
| 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* | 14 | $ if f$search("ff.*") .nes "" then delete ff.*;* |
| 15 | $ if f$search("f.*") .nes "" then delete f.*;* | 15 | $ if f$search("f.*") .nes "" then delete f.*;* |
| 16 | $ copy 't' fff.p | 16 | $ convert/fdl=sys$input: 't' fff.p |
| 17 | RECORD | ||
| 18 | FORMAT STREAM_LF | ||
| 17 | $ | 19 | $ |
| 18 | $ write sys$output "p -> d" | 20 | $ write sys$output "p -> d" |
| 19 | $ 'cmd' -in fff.p -inform p -outform d -out f.d | 21 | $ 'cmd' -in fff.p -inform p -outform d -out f.d |
